"dd.mm.yyyy" formatlı tarih sütunundan "mmmm" formatı ile seçim yapma.

[mumunal]

"dd.mm.yyyy" formatlı tarih sütunundan "mmmm" formatı ile seçim yapma.

Sub deneme()
Dim aranan_tarih, ay, tarih As Date

aranan_tarih = Sheets("Sayfa1").Cells(1, 5)

For i = 1 To 1000

tarih = Sheets("Sayfa1").Cells(i, 2)
ay = Format(tarih, "mmmm")

If ay = aranan_tarih Then

Range("C65000").End(xlUp).Offset(1, 0).Select
ActiveCell = tarih

ad = Sheets("Sayfa1").Cells(i, 1)
Range("D65000").End(xlUp).Offset(1, 0).Select
ActiveCell = ad

End If
Next i

End Sub

B1 ile B1000 arasında "gg.aa.yyyy" formatında farklı tarihler mevcut, E1 hücresine, örneğin "Temmuz" yazdığımda B sütununda tarihleri "Temmuz" olanları listeleyecek olan yukarıdaki kodu çalıştırdığımda Type Mismatch hatası veriyor. Tarih formatı uyumsuzluğu olduğunu sanıyorum. Teşekkür ederim.

 

[Muzaffer Ali]

Bir hata iletisi ile ilgili soru sorduğunuzda hangi kod satırında hata iletisi aldığınızı da belirtirseniz çözüme daha kolay ulaşılacaktır.

If ay = aranan_tarih Then

Satırını aşağıdaki ile değiştirin.

If ay = Format(aranan_tarih, "mmmm") Then