tarih makrosu

[sirkülasyon]

Option Explicit
Private Sub CommandButton1_Click()

Dim Ay As Byte, İlk_Gün As Date, Son_Gün As Date, Tarih As Date, Satır As Byte

Range("A4:A31").ClearContents "f4:ab4 aralığında olacak"
Satır = 4

Select Case Range("B2")
Case Is = "Ocak": Ay = 1
Case Is = "Şubat": Ay = 2
Case Is = "Mart": Ay = 3
Case Is = "Nisan": Ay = 4
Case Is = "Mayıs": Ay = 5
Case Is = "Haziran": Ay = 6
Case Is = "Temmuz": Ay = 7
Case Is = "Ağustos": Ay = 8
Case Is = "Eylül": Ay = 9
Case Is = "Ekim": Ay = 10
Case Is = "Kasım": Ay = 11
Case Is = "Aralık": Ay = 12
End Select

İlk_Gün = DateSerial(Range("B1"), Ay, 1)
Son_Gün = DateSerial(Range("B1"), Ay + 1, 0)

For Tarih = İlk_Gün To Son_Gün
If Weekday(Tarih, vbMonday) < 6 Then
Cells(Satır, 1) = Tarih
Satır = Satır + 1
End If
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub


Yukarıda sunduğum makroyu siteden aldım. Tarihi sütuna veriyor. Ben satıra vermesini istiyorum. yardımcı olabilir misiniz?

 

[halit3]

Yukarıda sunduğum makroyu siteden aldım. Tarihi sütuna veriyor. Ben satıra vermesini istiyorum. yardımcı olabilir misiniz?

kod:

Option Explicit
Private Sub CommandButton1_Click()

Dim Ay As Byte, İlk_Gün As Date, Son_Gün As Date, Tarih As Date, Satır As Byte

[COLOR="red"]Range("f4:ab4")[/COLOR].ClearContents
[COLOR="red"]Satır = 6[/COLOR]

Select Case Range("B2")
Case Is = "Ocak": Ay = 1
Case Is = "Şubat": Ay = 2
Case Is = "Mart": Ay = 3
Case Is = "Nisan": Ay = 4
Case Is = "Mayıs": Ay = 5
Case Is = "Haziran": Ay = 6
Case Is = "Temmuz": Ay = 7
Case Is = "Ağustos": Ay = 8
Case Is = "Eylül": Ay = 9
Case Is = "Ekim": Ay = 10
Case Is = "Kasım": Ay = 11
Case Is = "Aralık": Ay = 12
End Select

İlk_Gün = DateSerial(Range("B1"), Ay, 1)
Son_Gün = DateSerial(Range("B1"), Ay + 1, 0)

For Tarih = İlk_Gün To Son_Gün
If Weekday(Tarih, vbMonday) < 6 Then
[COLOR="Red"]Cells(4, Satır)[/COLOR] = Tarih
Satır = Satır + 1
End If
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[sirkülasyon]

Halit3 Uzman abim teşekkür ederim. Sağolasın Varolasın

 

[halit3]

Halit3 Uzman abim teşekkür ederim. Sağolasın Varolasın

İyi çalışmalar

 

[selimmanav]

Değişik ve güzel bbir uygulama olmuş. Ama tarih xx.12.1999 tarihinde oluşuyor.(her iki uygulamada da)Bu nasıl düzeltile bilir?

 

[halit3]

Değişik ve güzel bbir uygulama olmuş. Ama tarih xx.12.1999 tarihinde oluşuyor.(her iki uygulamada da)Bu nasıl düzeltile bilir?

Bunu soruyu soran biliyor diye ben mesajıma eklememiştim.

Örnek olarak
B1 hücresine 2013 yazın
B2 hücresine Temmuz yazın
tarih bu iki hücredeki değerlere göre değişiyor.

sonucu gözlemleyin.

 

[sametozyavuz]

bu günden itibaren 7 gün satıra tarih ekleme

Sub Düğme1_Tıklat()

Range("a1").Select
ActiveCell.Value = Date
ActiveCell.Offset(0, 1) = Date + 1
ActiveCell.Offset(0, 2) = Date + 2
ActiveCell.Offset(0, 3) = Date + 3
ActiveCell.Offset(0, 4) = Date + 4
ActiveCell.Offset(0, 5) = Date + 5
ActiveCell.Offset(0, 6) = Date + 6

End Sub