Tarih ve Günü Her ay değişmesi

[korax35]

arkadaşlar benim bi tablom var. bu tablo alt alta aya bağlı olarak 1-30 günleri yani mesela 01.09.2011 diğer hücre pazartesi şeklinde sıralanıyor. Buna makro atamak istedim ama her ay günler ve tarih değişiyor. bu konuda yardımcı olursanız sevinirim. şimdiden teşekkürler

 

[İhsan Tank]

Merhaba
Dosya ekler misiniz_? İçinde açıklama eklemeyi unutmayınız

 

[korax35]

arkadaşlar benim bi tablom var. bu tablo alt alta aya bağlı olarak 1-30 günleri yani mesela 01.09.2011 diğer hücre pazartesi şeklinde sıralanıyor. Buna makro atamak istedim ama her ay günler ve tarih değişiyor. bu konuda yardımcı olursanız sevinirim. şimdiden teşekkürler

dosya ektedir yardımcı olursan sevinirim. teşekkürler

Ekli dosyayı görüntüle Örnek.xlsx

 

[İhsan Tank]

dosya ektedir yardımcı olursan sevinirim. teşekkürler

Ekli dosyayı görüntüle 118186

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub tarih_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
kaplan = InputBox("Ay Giriniz", "Ay Girişi")
If kaplan = "" Then Exit Sub
trabzonspor = MsgBox(Format(kaplan, "00") & " Ay" _
& " Tarihlerini Çıkarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
hamsi = Time
Range("A3:B33").ClearContents
Range("A3") = DateSerial(Year(Date), kaplan, 1)
Range("A3:A33").DataSeries rowcol:=xlColumns, Type:=xlAutoFill, Date:=xlDay, Trend:=False
For ts = 33 To 3 Step -1
If Month(Range("A3")) <> Month(Cells(ts, "A")) Then
Rows(ts).ClearContents
Else
Cells(ts, "B") = Format(Cells(ts, "A"), "dddd")
End If
Next
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede " & Format(kaplan, "00") & " Ay Tarihlerini Çıkarttım", , "Bitiş"
End Sub

 

[korax35]

Çok teşekkürler emeğine sağlık çok işime yarayacak.

 

[İhsan Tank]

Çok teşekkürler emeğine sağlık çok işime yarayacak.

Rica ederim
:keyif: