makrolarla kopyala yapıştır

[barisist]

ekteki dosyada mart ayının değerlerini nisana kopyala yapıştır yapacak bir makro lazım...
ama genel bir makro olmalı.
aynı makro bir dahki ay nisan değerlerini mayısa kopyalacak...(dolu olan son sütunu bul ve yanındaki sütuna kopyala tarzı bişi yazmaya çalıştım ama olmadı)
yardımcı olacak arkadaşlara şimdiden teşekkürler...

 

[hamitcan]

Sub kopyala()
    r = ActiveSheet.UsedRange.Rows.Count
    c = Rows(r).End(xlToRight).Column
    Range(Cells(2, c), Cells(r, c)).Copy Cells(2, c + 1)
    MsgBox "Bilgileriniz, " & Format(Cells(1, c), "mmmm") & " Ayından " & Format(Cells(1, c + 1), "mmmm") & " Ayına Kopyalandı."
End Sub

 

[barisist]

çok teşekkürler, ufak bi istek daha )

hamitcan çok teşekkür ederim, süper hızlı ve süper iş gören bir makro olmuş
şimdi çok ufak bi isteğim olacak
excel dosyamda 10 sayfa var. ben bu makronun örneğin sayfa1,sayfa3 ve sayfa4'te çalışmasını istiyorum. bunu nasıl sağlarım ?? her sayfaya tek tek yazmayayım, tek bi tuşla bu 3 sayfada da çalışsın...
teşekkürler...

 

[hamitcan]

Sub kopyala2()
    For Each sht In Sheets
    With sht
        r = .UsedRange.Rows.Count
        c = .Rows(r).End(xlToRight).Column
            .Range(.Cells(2, c), .Cells(r, c)).Copy .Cells(2, c + 1)
    End With
    Next
    MsgBox "Bilgileriniz " & Format(Cells(1, c), "mmmm") & " Ayından " & Format(Cells(1, c + 1), "mmmm") & " Ayına Kopyalandı."
End Sub

 

[barisist]

bişey daha

yalnız bu kod tüm sayfalarda çalıştırmaz mı ? benim istediğim o diil... 10 tane sayfam varsa bunlardan sayfa2, sayfa3 ve sayfa6,sayfa8 te çalışsın mesela. diğerlerinde çalışmasın...
zahmet oluyor ama çok makbule geçiyor. çok teşekkür ederim...

 

[hamitcan]

Sub kopyala2()
Sheets(Array("Sayfa2", "Sayfa3", "Sayfa6", "Sayfa8")).Select
    For Each sht In ActiveWorkbook.Windows(1).SelectedSheets
    With sht
        r = .UsedRange.Rows.Count
        c = .Rows(r).End(xlToRight).Column
            .Range(.Cells(2, c), .Cells(r, c)).Copy .Cells(2, c + 1)
    End With
    Next
    MsgBox "Bilgileriniz " & Format(Cells(1, c), "mmmm") & " Ayından " & Format(Cells(1, c + 1), "mmmm") & " Ayına Kopyalandı."
End Sub

 

[barisist]

teşekkürler...

%100 çözdün sorunumu... ne diyim ki... ellerin dert görmesin )