Veri aktarma

[Yesilyurtlu]

Sayfa1 deki verileri sayfa1(2) ye nasıl aktarabiliriz makro ile

yardımcı olabilir misiniz

 

[Orion1]

Sub aktar()
Dim liste()
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
liste = Range("B7:D" & Cells(65536, "B").End(xlUp).Row)
sat = Sheets("Sayfa1 (2)").Cells(65536, "B").End(xlUp).Row + 1
Sheets("Sayfa1 (2)").Range("B" & sat).Resize(UBound(liste, 1), UBound(liste, 2)) = liste
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı"

End Sub

 

[Yesilyurtlu]

EVREN UZMANIM teşekkür ederim

 

[Orion1]

EVREN UZMANIM teşekkür ederim

Rica ederim.