bir sayfadaki veriyi başka bir sayfaya kopyalamak

[karakaçan]

Arkadşlar ekli dosyada açıkladığım gibi sayfa 2 deki veriyi sayfa 3 e satır ve sütun sayısı kadar kopyalamak istiyorum. Yardımcı olur musunuz?

 

[Orion1]

Dosyanız ektedir.

Sub aktar59()
Dim sat As Long, sut As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
sut = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, "B"), Cells(Rows.Count, Columns.Count)).ClearContents
Range(Cells(2, 2), Cells(sat, sut - 2)).Value = Sheets("Sayfa2").Range("A1").Value
Range(Cells(2, sut - 1), Cells(sat, sut - 1)).Value = Sheets("Sayfa2").Range("B1").Value
Range(Cells(2, sut), Cells(sat, sut)).Value = Sheets("Sayfa2").Range("C1").Value
End Sub

 

[karakaçan]

Hocam çok teşekkür ederim. Kafama takılıp duruyordu. Sorun halloldu. Hayırlı ramazanlar.........