BOŞ HÜCREDEN ANLAMSIZ SAYI GÖSTERMESİN (VBA)

hamzaucar60

Altın Üye
Katılım
11 Eylül 2022
Mesajlar
2
Excel Vers. ve Dili
VBA
Altın Üyelik Bitiş Tarihi
12-09-2027
İki tarih arasında yıl ve ay hesaplama makrosu yaptım 100'e kadar (döngü) boş hücrelerden veri çekip anlamsız rakamları yazıyor. tarih girilmeyen boş hücreler boş görünsün istiyorum. örnek ekte
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Private Sub Düğme1182_Tıklat()
    Dim start_date As Date
    Dim end_date As Date
    Dim diff As Integer, i As Long
    end_date = Cells(1, 8).Value

    For i = 3 To Cells(Rows.Count, 8).End(3).Row

        start_date = Cells(i, 8).Value
        If start_date > 0 And IsDate(start_date) Then
            diff = DateDiff("M", start_date, end_date)
            Cells(i, 9).Value = diff
            diff = DateDiff("YYYY", start_date, end_date)
            Cells(i, 10).Value = diff
        End If

    Next i

End Sub
 

hamzaucar60

Altın Üye
Katılım
11 Eylül 2022
Mesajlar
2
Excel Vers. ve Dili
VBA
Altın Üyelik Bitiş Tarihi
12-09-2027
Çok teşekkür ederim sorun çözüldü
 
Üst