Soru Vba İki tarihi çıkartıp kalanı gün olarak bulmak

[Cengizhantr06]

Veri adlı sayfada
F2 sütunundaki tarihten bugünün tarihini çıkartıp gün olarak G2 sütununa yazdırmak istiyorum ama döngü olarak yani f2 hücresinden son dolu satıra kadar bugünün tarihini çıkartıp g2 hücresine yazdırmak istiyorum kod ile

Örneğin f2 hücresi 16.11.2027 bundan bugünün tarihini çıkartıp gün olarak G2 hücresine yazdırmak istiyorum
Son dolu satıra kadar

 

[volki_112]

@Cengizhantr06 yapay zekanın yazdığı kodlar, deneyiniz.

Sub TarihFarkHesapla()
    Dim SonSatir As Long
    Dim i As Long
    Dim Tarih As Date
    Dim Bugun As Date
    Dim Fark As Long
    
    ' Bugünün tarihini al
    Bugun = Date
    
    ' Veri sayfasındaki son dolu satırı bul
    SonSatir = Cells(Rows.Count, "F").End(xlUp).Row
    
    ' Döngü başlat (F2'den son dolu satıra kadar)
    For i = 2 To SonSatir
        ' F sütunundaki tarihi al
        Tarih = Cells(i, "F").Value
        
        ' Eğer F sütununda geçerli bir tarih varsa
        If IsDate(Tarih) Then
            ' Tarih farkını hesapla
            Fark = DateDiff("d", Tarih, Bugun)
            
            ' G sütununa sonucu yazdır
            Cells(i, "G").Value = Fark
        End If
    Next i
End Sub

 

[Cengizhantr06]

@volki_112 süper oldu çok teşekkür ederim nasıl yapıyorsunuz yapay zeka ile ?

 

[volki_112]

bir çok yapay zeka modeli var.
chatgpt.com

Microsoft Copilot: Your AI companion

Microsoft Copilot is your companion to inform, entertain, and inspire. Get advice, feedback, and straightforward answers. Try Copilot now.

copilot.microsoft.com

https://claude.ai/ bu sitelerden birine girip üye olup sorunuzu sorunuz size kodları verir. Hepsi de ücretsizdir.

@volki_112 süper oldu çok teşekkür ederim nasıl yapıyorsunuz yapay zeka ile ?

 

[Cengizhantr06]

bir çok yapay zeka modeli var.
chatgpt.com

Microsoft Copilot: Your AI companion

Microsoft Copilot is your companion to inform, entertain, and inspire. Get advice, feedback, and straightforward answers. Try Copilot now.

copilot.microsoft.com

https://claude.ai/ bu sitelerden birine girip üye olup sorunuzu sorunuz size kodları verir. Hepsi de ücretsizdir.

Çok teşekkür ederim deneyeceğim

 

[Cengizhantr06]

17 gün fazla çıkarıyor neden olabilir ki

 

[volki_112]

bende sonuç doğru çıkıyor. dosyanızı paylaşırsanız bakalım

 

[Cengizhantr06]

bende sonuç doğru çıkıyor. dosyanızı paylaşırsanız bakalım

Ben yanlış hesaplamışım düzeldi çok teşekkür ederim burda tıkanıp kalmıştım işiniz rast gelsin