Veri sayfasından tarih kriterine göre aylara makro ile aktarma

[newversion]

Ek Dosyada Veri sayfamdaki verileri ödeme zamanı sütunundaki tarih aralıklarına göre,diğer sayfalara nasıl aktarabilirim?

 

[Murat OSMA]

SUBAT sayfasını ŞUBAT olarak değiştirip.
Şu kodları deneyiniz;

Sub Sayfalara_Aktar()
Dim i%, a%
For i = 2 To Sayfa1.Range("A65536").End(3).Row
    For a = 2 To Sheets.Count
        If Replace(LCase(Format(Sayfa1.Cells(i, "H"), "mmmm")), "İ", "i") = _
           Replace(LCase(Sheets(a).Name), "İ", "i") Then
           Sayfa1.Cells(i, 1).Resize(, 8).Copy _
           Sheets(a).Range("A65536").End(3)(2, 1)
        End If
    Next a
Next i
i = Empty: a = Empty
End Sub

 

[newversion]

Bu ne hız?.Tam işimi halledebilecek şekilde oldu.Emeğinize sağlık.Çok teşekkür ederim.

 

[Murat OSMA]

Dönüşünüz geç oldu ama olsun.

İyi günler.

 

[newversion]

Macronuz üzerinde değişiklikler yapıp ayları 12 aya çıkarmak için uğraşıyorum.Yüzsüzlük yapıp bunu da sormamak için saatlerdir uğraşıyorum.Ancak beceremedim.Ayları küçük harfle ve türkçe girince sorun çözüldü.

 

[Murat OSMA]

Şu kodları kullanabilirsiniz;

Sub Sayfalara_Aktar()
    Dim i%, a%
    For i = 2 To Sayfa1.Range("A65536").End(3).Row
        For a = 2 To Sheets.Count
            If Replace(Replace(UCase(LCase(Format(Sayfa1.Cells(i, "H"), "mmmm"))), "ı", "I"), "I", "İ") = _
               Replace(Replace(UCase(LCase(Sheets(a).Name)), "ı", "I"), "I", "İ") Then
               Sayfa1.Cells(i, 1).Resize(, 8).Copy _
               Sheets(a).Range("A65536").End(3)(2, 1)
           End If
        Next a
    Next i
    i = Empty: a = Empty
End Sub

 

[newversion]

Teşekkür ederim.Şimdi sorun tamamen çözüldü

 

[Murat OSMA]

Rica ederim, iyi günler.

 

[necati_ergin]

Merhaba, Murat OSMA
rica etsem bu kodların satır satır açıklamasını yapabilir misiniz?