makro ile tarih sorgusu

[sarigozoglu]

Arkadaşlar merhaba
Set S1 = Sheets("VERI") olarak tanımladığım sayfanın

Makro ile a1 hücresinde yazmış olduğum tarihin ay ve yılını b1 hücresinde yazdığım tarihin ay ve yılı ile karşılaştırmak istiyorum.
Sonuca göre eğer ay ve yıllar eşit ise b3 hücresine "eşit" değil ise yine b3 hücresine "eşit değil" yazdırmak istiyorum.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Mahmut Bayram]

Sub karsilastir()
Dim xdate As Date
Dim ydate As Date
xdate = Worksheets("Veri").Range("A1")
ydate = Worksheets("Veri").Range("B1")
   If Month(xdate) = Month(ydate) And Year(xdate) = Year(ydate) Then
      Range("B3").Value = "eşit"
        Else
      Range("B3").Value = "eşit değil"
   End If
End Sub

 

[sarigozoglu]

Sub karsilastir()
Dim xdate As Date
Dim ydate As Date
xdate = Worksheets("Veri").Range("A1")
ydate = Worksheets("Veri").Range("B1")
   If Month(xdate) = Month(ydate) And Year(xdate) = Year(ydate) Then
      Range("B3").Value = "eşit"
        Else
      Range("B3").Value = "eşit değil"
   End If
End Sub

Çok teşekkür ederim. Zaten mevcut bir makromun içine dahil etmek için bunu tek satır olarak yazmam mümkün olabilir mi?
Örneğin;
If Month("a1") = Month("b1") And Year("a1") = Year("b1") Then Range("B3").Value = "eşit" Else Range("B3").Value = "eşit değil"

 

[Mahmut Bayram]

Hedef hücreler tarih olarak tanımlanmazsa tür uyumsuzluğu hatası verebilir.
Yani excel sizin yazdığınız şekilde

Month("a1") = Month("b1")

hücrenin türünü (biçimini) tanımayabilir.
Bundan kurtulmak için

Dim xdate As Date
Dim ydate As Date

ile türünü belirlemiş olduk.

Mümkünlüğüne gelince ben bilmiyorum olup olmadığını.
Saygılar.

 

[sarigozoglu]

Emeğiniz için çok teşekkür ederim.

If Month(S1.Range("A1")) = Month(S1.Range("B1")) And Year(S1.Range("A1")) = Year(S1.Range("B1")) Then Range("B3").Value = "eşit" Else Range("B3").Value = "eşit değil"

Bu şekli ile çözdüm