Çözüldü Kopyalamadan Sonra Seçili Kalıyor

[ywzyilmaz]

Merhaba

Sayfanın birinden diğerine kopyalama yapıyorum. İşlem yapılıyor sorun yok. Altta girdiğim kod satırlarında olduğu gibi mesela "Bos" adlı sayfadan verileri alıp istediğim yere yapıştırıyor. Ama işlem bittikten sonra bos sayfasına baktığımda kopyalanan alan hala seçili duruyor. Bunu nasıl çözebilirim?

Sub blokkopya()
ActiveSheet.Protect "1234"
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("bos").Select
Range("A1:AE72").Select
Selection.Copy
Sheets("Data").Select
sonkayit = Sayfa2.Range("AA65000").End(xlUp).Row + 1
Sayfa2.Range("A" & sonkayit).Select
ActiveSheet.Paste
Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.Protect "1234"
End Sub

 

[dEdE]

ActiveSheet.Pastesatırından sonra Range("A1").Selectyazabilirsiniz.

 

[ywzyilmaz]

"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara. Çözüm bulunur."
Şu sözün üstüne
Çok teşekkür ederim : )