YEAR formatı

[emre311]

Merhaba;
Yazdığım aşağıdaki kodda data sayfasının d sütununda tarih var Sayfa1 sayfasındada b30 hücresinde "2012" yazıyor eğerde buna (yani 2012) eşitliği nasıl sağlayabilirim bir türlü bulamadım.

İf ... And Sheets("DATA").Range("D" & k).Value = Sheets("Sayfa1").Range("B30").Value Then

(data sayfasının d sütununda k kadar bölümde sayfa1 b30 da yazan yıla eşit olanları seçme)

 

[Ömer]

Merhaba,

If ... And Year(Sheets("DATA").Range("D" & k).Value) = Sheets("Sayfa1").Range("B30").Value Then

Bu şekilde deneyin.

.