Şarta göre kopyalama

[ozuberk]

Merhaba üstatlar,

Tümü sayfasının “A6:A1005” arasında "Ocak, Şubat vs." ayların bilgileri yer alıyor ise “C6:N1005 aralığını” kopyalasın ve aynı isimde yer alan ayların sayfalarına “C6:N1005 aralığına” yapıştırsın istiyorum. Yardımcı olabilir misiniz.

Tümü

A	B	C	D	E	F	G	I	J	K
Ocak	Örnek1	Örnek2	Örnek3	Örnek4	Örnek5	Örnek6	Örnek7	Örnek8	Örnek9
Şubat	Örnek10	Örnek12	Örnek13	Örnek14	Örnek15	Örnek16	Örnek17	Örnek18	Örnek19

Ocak

C	D	E	F	G	I	J	K	L	M
Örnek1	Örnek2	Örnek3	Örnek4	Örnek5	Örnek6	Örnek7	Örnek8	Örnek9	Örnek10

 

[AdemCan]

Merhaba sayfaların C5 hücreleri dolu olmalıdır. Bu kod ile ilgili sayfalara alt alta kayıtlar gelir.

Sub test()
For s = 6 To Cells(Rows.Count, 1).End(3).Row
    For i = 1 To Sheets.Count
        If Cells(s, 1) = Sheets(i).Name Then
            Range("C" & s & ":N" & s).Copy Sheets(i).Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
        End If
    Next i
Next s
End Sub

 

[ozuberk]

Merhaba elinize sağlık tam istediğim gibi çok teşekkür ederim.

 

[AdemCan]

Rica ederim.