• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Cengizhantr06

Cengizhantr06

Katılım
16 Mayıs 2020
Mesajlar
327
Excel Vers. ve Dili
Office 365 Türkçe
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
 
@Cengizhantr06 yapay zekanın yazdığı kodlar, deneyiniz.
Kod: 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst