DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Public Sub Aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("A2:E65000").ClearContents
SonSatır = s1.[A65536].End(3).Row
s1.Range("A2:E" & SonSatır).Copy (s2.[A2])
s2.Range("A2:E" & SonSatır).Sort Key1:=s2.[A2]
MsgBox "Aktarım ve Sıralama İşlemi Tamamlanmıştır....."
End Sub