Tarih gelince Listboxda uyarı

[muratkarakas69]

Arkadaşlar bir sıkıntım daha var uğraştım aam çözemedim. Yardımcı olursanız çok sevinirim.

Tümünü seç
    Sheets("sayfa1").Activate
    ListBox3.Clear
    Dim tarih, kriter, i
    Application.ScreenUpdating = False
        For Each tarih In Range("I2:I65536")
                kriter = tarih.Offset(0, 0)
    On Error Resume Next
          If VBA.Month(tarih) = VBA.Month(Date) And VBA.Year(tarih) = VBA.Year(Date) Then
                i = i + 1
                ListBox3.AddItem
                ListBox3.Column(0, i - 1) = tarih.Offset(0, -4)

            End If
        Next

I sutununda personelin göreve başlama tarihi var .Stajyerlik tam bir yıl sonra kaldırılacak olduğundan dolayı istediğim bana bir yıl sonra aynı ay içerisinde listbox3'de göstermesi .

 

[Taruz]

Merhaba..

Tarih değerinin bir yıl sonrası, bu yılın bulunduğumuz ayına denk gelenleri listeye almak istediğinizi anladım ben.. Eğer yanılmıyorsam bu düzenleme iş görecektir..:

Sheets("sayfa1").Activate
ListBox3.Clear
Dim tarih, kriter, i
Application.ScreenUpdating = False
    For Each tarih In Range("I2:I65536")
            kriter = tarih.Offset(0, 0)
    On Error Resume Next
      If VBA.Format(DateAdd("yyyy", 1, tarih), "mmyyyy") = _
         VBA.Format(Date, "mmyyyy") Then
            i = i + 1
            ListBox3.AddItem
            ListBox3.Column(0, i - 1) = tarih.Offset(0, 0)
 
      End If
    Next

 

[muratkarakas69]

Evet tam istediğim gibi olmuş hocam çok teşekkürler iki gündür kafayı takmıştım. Sonunda uyuyabilicem.:redface: