Her ayın 1'inde çalışan makro

[zırzır]

Arkadaşlar her ayın 1'inci günü olduğu zaman bir makro çalıştırmak istiyorum. Mümkünmüdür.

 

[fedeal]

Private Sub Workbook_Open()
If Sheets("sayfa1").Cells(1, 2).Value = 1 Then
MsgBox "ayın biri", , "fedeal" 'sayfa1 sarı hücre 1 olunca çalışacak.
End If
End Sub

ekteki dosyayı inceleyin,saygılar.

 

[zırzır]

Sayın fedeal,yukarıdaki kod ile istediğim makroyu çalıştırdım.Teşekkür ederim.Size bir sorum daha
var,kodu değiştirerek ay sonundada istediğim makroyu çalıştıracağım ancak 30,31 ve 28,29 şubat
gibi değişken ay sonlarındada makro çalıştırabilirmiyim.

 

[Necdet]

Merhaba,

Aşağıdaki kodu ThisWorkbook'un kod bölümüne kopyalayınız.

Private Sub Workbook_Open()
If Day(Date) = 1 Then AydaBirCalis
End Sub

Çalışacak olan makroyu da bir modüle kopyalayınız.

Sub AydaBirCalis()
MsgBox "Bugün Ayın Biri Olduğu İçin Ben Çalıştım...."
End Sub

 

[fedeal]

Private Sub Workbook_Open()
If Day(Date)+1 = 1 Then AydaBirCalis
End Sub

Sub AydaBirCalis()
MsgBox "Bugün Ayın Biri Olduğu İçin Ben Çalıştım...."
End Sub

sayın Necdet YEŞERTENER'in kodları güzel bu şekilde yazınca ayın son günü çalışacaktır.(denemedim ama olmalı)

 

[Necdet]

sayın Necdet YEŞERTENER'in kodları güzel bu şekilde yazınca ayın son günü çalışacaktır.(denemedim ama olmalı)

Ayın son günü çalışması gerekiyorsa kod :

Private Sub Workbook_Open()
If Day(Date) = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) Then AydaBirCalis
End Sub

 

[zırzır]

Sayın Necdet Yeşertener ve fedeal,verdiğiniz kodlar işimi gördü ikinizede teşekkür ederim,sağlıcakla
kalın.

 

[baydeniro]

Çok teşekkürler

 

[zırzır]

Arkadaşlar, ThisWorkbook sayfasına yapıştırdığım aşağıdaki kodlar,diğer kodların çalışmasını
engelliyor.Bu kodlari başka bir yerde çalıştırmanın imkanı varmı.

Private Sub Workbook_Open()
If Sheets("sayfa1").Cells(1, 2).Value = 1 Then
MsgBox "ayın biri", , "fedeal" 'sayfa1 sarı hücre 1 olunca çalışacak.
End If
End Sub

 

[zırzır]

Yardımlarınızı bekliyorum.Saygılar

 

[fedeal]

sub auto_open()
If Sheets("sayfa1").Cells(1, 2).Value = 1 Then
MsgBox "ayın biri", , "fedeal" 'sayfa1 sarı hücre 1 olunca çalışacak.
End If
end sub

modüle kopyalaya bilirsiniz auto_open olayı varsa altına yazabilirsiniz,iyi çalışmalar.

 

[zırzır]

Teşekkür ederim sayın fedeal.İyi geceler.

 

[fedeal]

Teşekkür ederim sayın fedeal.İyi geceler.

ricaederim,iyi çalışmalar.