Fatura sayfasındaki verilerin ürün guruplarına göre dağılımı

[xagox]

Selamlar
Değerli forum üyeleri
Sorunum ile ilgili forumda bir örnek bulamadım.Ek'de gönderdiğim dosyada yapmak istediğimi anlattım. Faturaların detaylı kaydedildiği sayfadan verileri aylık bazda ürün gruplarına göre dağıtmak istiyorum. Bu konu ile ilgili bir makro yazılabilir mi?
Yardımcı olursanız memnun olurum.
Herkese saygı ve sevgiler,,

 

[Orion1]

Dosyanız ektedir.

Sub aktar()
Dim myarr(), sat As Long, i As Long, k As Range
myarr = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", _
"TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
On Error Resume Next
Application.ScreenUpdating = False
For i = 1 To 12
    Sheets(myarr(i)).Range("A2:IV65536").ClearContents
Next i
Sheets("FATURALAR").Select

For i = 2 To Cells(65536, "B").End(xlUp).Row
    With Sheets(myarr(Month(Cells(i, "B").Value)))
        sat = .Cells(65536, "B").End(xlUp).Row + 1
        .Cells(sat, "A").Value = sat
        .Cells(sat, "B").Value = Cells(i, "C").Value
        .Cells(sat, "C").Value = Cells(i, "B").Value
        Set k = .Range("D1:IV1").Find(Cells(i, "E").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            .Cells(sat, k.Column).Value = Cells(i, "D").Value
        End If
        .Cells(sat, "G").Value = Cells(i, "H").Value
    End With
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır.", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[xagox]

Çok Teşekkür Ederim Evren Bey

Selamlar
Sayın Evren
Yardımınız ve çözümünüz için çok teşekkür ederim. Ellerinize sağlık
Başarılar dilerim...

 

[Orion1]

Selamlar
Sayın Evren
Yardımınız ve çözümünüz için çok teşekkür ederim. Ellerinize sağlık
Başarılar dilerim...

Rica ederim.
İyi çalışmalar.

 

[furkhan22]

ilginize teşekkürler. buna benzer kodlar bulmuştum. ama benim istediğim sayfa1 deki veriler A1 B1 C1 .....gibi peşpeşe hücrelere girilecek. Ama sayfa2 ye aynı bilgiler sayfa A1 deki sayfa2 A1 sayfa B1 deki sayfa C1e sayfa1 C1deki sayfa2 d2 ye girmesi gerekir. Dosya yollamadım. Çünki nasıl göndereceğimi bilmiyorum. Bu konuda da yardımlarınızı beklerim.

Çalışmalarınızda başarılar dilerim.