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

[hamzaucar60]

İ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

 

[veyselemre]

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]

Çok teşekkür ederim sorun çözüldü