tarih yazdırma

[tontun]

b1 sütünuna temmuz yazdığım zaman a2 den başlayıp aşağıya doğru 01.07.2013 ten 31.07.2013 tarihine kadar alt alta yazdırabilirmiyiz

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Farklı yöntemlerle de yapılabilinir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    
    Dim Aylar
    Dim Ay  As Integer
    Dim Son As Long
    
    Aylar = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
    
    Ay = Application.Match(Range("B1"), Application.Transpose(Aylar), 0)
    
    Range("A2") = DateSerial(Year(Date), Ay, 1)
    Son = DateSerial(Year(Date), Ay + 1, 0)
    
    Range("A3:A32").ClearContents
    Range("A2:A32").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=1, Stop:=Son, Trend:=False
    
End Sub

 

[tontun]

teşekkür ederim