Tarih (ay) Kısıtına Göre Ana Sekmeden Ay Sekmelerine Veri Atma

[zurrani]

Merhaba Arkadaşlar,

Etkin ve yetkin arkadaşlara bir sorum olacak Ana sekmede satır satır veriler var. Bu verilerin A sütunundaki tarihin ay bilgisine göre bu ana sekmedeki A-E sütunları arası veri içeren satırları ay ay oluşturulmuş sekmelere ay bilgisine göre otomatik kopyalama karmaşık bir formülle yapılabilir mi yoksa makro şeklinde mi düşünülmeli?

Ana sekme "ana"
Ay sekmeleri "ocak,şubat,mart..."
Tarih bilgisi "ana" sekmesinde A sütununda
Kopyalanacak veriler A-D arası

Şimdiden çok teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub dagit()
   
    Dim Sa As Worksheet, i As Long, syf As String, sat As Long, deg As String
   
    Set Sa = Sheets("ana")
   
    For i = 1 To Worksheets.Count
        If Sheets(i).Name <> "ana" Then
            Sheets(i).Range("A2:D" & Rows.Count).ClearContents
        End If
    Next i

    For i = 2 To Sa.Cells(Rows.Count, "A").End(xlUp).Row
        syf = Format(Sa.Cells(i, "A"), "mmmm")
        On Error Resume Next
        sat = Sheets(syf).Cells(Rows.Count, "A").End(xlUp).Row + 1
        If Err.Number = 0 Then
            Sa.Cells(i, "A").Resize(1, 4).Copy Sheets(syf).Cells(sat, "A")
        Else
            deg = syf & vbLf & deg
        End If
    Next i
   
    If deg <> "" Then MsgBox "Bulamadığım Sayfalar:" & vbLf & deg
   
End Sub

 

[zurrani]

Çok teşekkür ederim Ömer Hocam, gayet güzel çalışıyor