kopyala yapıştır

[yelgecak]

Herkeze merhaba,

Ekli dosyamda sayfa1 den sayfa2 ye kopyalama yapmak istiyorum ama sayfa1 deki başlangıç ve bitiş hücre aralığı hergün değişiyor. ekli dosyamda mesela başlangıç sayfa1 A8 ile A16 arası kopyala sonra A28 ile A60 arasını kopyala bunlar tabi sayfa2 ye istediğim yere kopyalanacak bu verdiğim aralıklar hergün değişmekte yardılarınızı rica ediyorum.

 

[yelgecak]

cevaplayacak yokmu arkadaşlar. yardımlarınızı bekliyorum

 

[Merhum İdris SERDAR]

.

Makro kaydet ile şöyle bir kod elde edebilirsiniz:

Sub Macro1()

    Sheets("Sayfa1").Select
    Range("A8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    
    Sheets("Sheet1").Select
    Range("A4").Select
    ActiveSheet.Paste
    
    Sheets("Sayfa1").Select
    Range("A28").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Sheets("Sheet1").Select
    Range("A16").Select
    ActiveSheet.Paste
    Range("A16").Select
End Sub

.

 

[yelgecak]

hocam deniyorum hemen. teşekkürler

 

[yelgecak]

Sheets("Sheet1").Select

hocam bu satırda hata verdi

 

[yelgecak]

hocam şu şekilde çalıştı fakat sadece A8 ile B10 arasını alıyor. tüm dolu hücreleri nasıl aldırabiliriz. yani örnektekine göre A8 ile AQ7 alması için.

Sub Macro1()
Sheets("Sayfa1").Select
Range("A8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("sayfa2").Select
Range("A4").Select
ActiveSheet.Paste

Sheets("Sayfa1").Select
Range("A28").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("Sayfa2").Select
Range("A16").Select
ActiveSheet.Paste
Range("A16").Select

End Sub

 

[Merhum İdris SERDAR]

.

A8'e ve A28'e bir şey koyun veya ara çubuğu ile boşluk verin.

.