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

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
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?
Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
ActiveSheet.Pastesatırından sonra Range("A1").Selectyazabilirsiniz.
 
Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
"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 : )
 
Üst