aya göre çalışan makro

[arzum2000]

Selamlar

Aşağıdaki makronun şu koşula göre çalışmasını istiyorum.Eğer grafikler sayfasında aı4(ilk tarih) ayın 1 i ve son tarihte grafikler sayfasında aj4 hücresindeki tarih ayın sonu ise ve tarih tek bir ay seçilmişse makro çalışsın yani tarih aralığı bir aydan fazla ise makro çalışmasın .Saygılar.

Sub ayçağır()
Application.ScreenUpdating = False
Call MDAY
Call MD2AY
Call MDAV
Application.ScreenUpdating = True
Sheets("grafikler").Activate
Sheets("grafikler").Range("ah104").Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub ayçağır()
    Dim SON_TARİH As Date
    
    SON_TARİH = DateSerial(Year(Sheets("grafikler").Range("AI4")), Month(Sheets("grafikler").Range("AI4")) + 1, 0)
    
    If SON_TARİH = Sheets("grafikler").Range("AJ4") Then
        Application.ScreenUpdating = False
        Call MDAY
        Call MD2AY
        Call MDAV
        Application.ScreenUpdating = True
        Sheets("grafikler").Activate
        Sheets("grafikler").Range("ah104").Select
    End If
End Sub

 

[arzum2000]

Teşekkür ederim.