Eğer C sütununda bu aya ait veri varsa makro çalışsın.

[kelkitli]

Değerli Dostlar Selamlar,
Eğer C sütununda bu aya ait bir veya birkaç tarih varsa makro çalışsın istiyorum. Nasıl yapılır.

 

[hamitcan]

Sub buay()
    For i = 1 To 5
    If Month(Cells(i, 3)) = 9 Then MsgBox "e"
    Next
End Sub

 

[Orion1]

Alternatif.

Sub Buay()
Dim hcr As Range, aybasi As Date, aysonu As Date
aybasi = DateSerial(Year(Date), Month(Date), 1)
aysonu = DateSerial(Year(Date), Month(Date) + 1, 1) - 1
For Each hcr In Range("C1:C" & Cells(65536, "C").End(xlUp).Row)
    If hcr.Value >= aybasi And hcr.Value <= aysonu Then
        MsgBox "İstenilen makro çalıştırıldı..!!"
        Exit For
    End If
Next
End Sub

 

[kelkitli]

Sayın hamitcan,
Sayın Evren Hocam,
cevap verdiğiniz için ikinize de ayrı ayrı teşekkür ederim.
Ben bu aya ait derken hangi ayda isem o ay, yani makroyu 2 ay sonra çalıştırdığımızı düşünelim. Belki ben noksan anlatmışımdır.
Sayın Hamit Bey için de bu kodu yazmak zor değildir de iletişim noksanlığı olsa gerek.
Evren Hocam benim sorularıma daha alışkın olmalı ki biraz eksikte anlatsam düzelterek yorumluyor, ben de bundan dolayı eksiksiz soru yöneltmiş gibi barınıp gidiyorum.

 

[hamitcan]

Dim i
Sub buay()
    For i = 1 To 12
    If Month(Cells(i, 3)) = Month(Date) Then makro
    Next
End Sub
Sub makro()
    MsgBox i & ". satır bu aya eşittir."
End Sub

 

[Orion1]

Dim i
Sub buay()
    For i = 1 To 12
    If Month(Cells(i, 3)) = Month(Date) Then makro
    Next
End Sub
Sub makro()
    MsgBox i & ". satır bu aya eşittir."
End Sub

Hamit bey bu durmdada içinde bulunmadığımız bir yılın bu aya ait değerleri kabul edilmiş olur.
Mesela 2007 yılının ekim ayı ile 2006 yılının ekim ayı sorgu aralığı içine girmiş olabilir.
İyi günler.

 

[hamitcan]

Hamit bey bu durmdada içinde bulunmadığımız bir yılın bu aya ait değerleri kabul edilmiş olur.
Mesela 2007 yılının ekim ayı ile 2006 yılının ekim ayı sorgu aralığı içine girmiş olabilir.
İyi günler.

Sayın Evren bey, o zaman "yıl" kriterini de ekleriz, sorun çözülür.