Sayfalara aktar

[Ahmet Sami]

İyi günler diliyorum. Sizden istediğim yardım, AKTAR düğmesine tıklayınca VERİLER sayfasında C2:C27 sütununda yer alan bilgilerin LİSTE A3:A28 ve LİSTEYIL A3:A28 sütünuna aktarması ancak yanında üstünde ve altında yer alan bilgilerin sabit kalması gerekiyor. Yani aktarma işlemi LİSTE ve LİSTEYIL sayfalarında yer alan diğer bilgilerin silinmemesi veya değişmemesi gerekiyor.
NOT: VERİLER sayfası normal olarak gizlenmiş, LİSTE VE LİSTEYIL sayfaları ise kod ile gizlenmiştir. Yani gizli olan sayfalara AKTARma işlemini yapacak (LİSTE ve LİSTEYIL sayfalarının kodlarının "False" olan yerleri "True" olarak değiştirmek suretiyle gönür hale getirebilirsiniz.)

Örnek dosya ekledim. Yardımlarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

Deneyiniz:

Sub aktar()
Application.EnableEvents = False
    Sheets("VERİLER").[C2:C27].Copy: Sheets("LİSTE").[A3].PasteSpecial Paste:=xlValues
    Sheets("VERİLER").[C2:C27].Copy: Sheets("LİSTEYIL").[A3].PasteSpecial Paste:=xlValues
Application.EnableEvents = True
End Sub

 

[Ahmet Sami]

Yusuf bey ilginize öncelikle çok teşekkür ederim. Kod çalıştı ancak "aktar" dedikten sonra her hangi bir hücrede iken ENTER tuşuna basınca aktarılanları oraya yapıştırıyor, sanırım aktarma işlemi bitmesine rağmen VERİLER sayfasında hala kopyalıyor olarak duruyor yani CTRL+C yapılmış etrafında dönen kesik çizgileri olan yani kopya aşamasında duruyor. Onu iptal edebilir miyiz. Yani aktarma işlemi yapıldığı zaman artık başka bir hücrede iken ENTER tuşuna basınca oraya yapıştırmasın unutuyorum bilgilerim siliniyor.

 

[YUSUF44]

Yapıştırma satırından sonra

Application.CutCopyMode = False

satırını ekleyin.

 

[Ahmet Sami]

Yusuf bey çok teşekkür ederim soğolun emeğinize sağlık