Aktar

[caglarr65]

İyi günler,
Veri aktarma ile ilgili sorum ekteki dosyadadır.Yardımlarınız için teşekkürler.

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Sheets("Sayfa2").Select
Application.ScreenUpdating = False
Sheets("Sayfa1").Range("A1:C65536").Clear
Range("A1:E" & Cells(65536, "A").End(xlUp).Row).Copy Sheets("Sayfa1").Range("A1")
Sheets("Sayfa1").Columns(2).Delete
Sheets("Sayfa1").Columns(3).Delete
Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub

 

[caglarr65]

Çok teşekkür ederim.1.soru için sonuç mükemmeldi.

 

[caglarr65]

Çok teşekkür ederim.1.sorunuın cevabı mükemmeldi.