Soru Sayfa 1'deki verileri Sayfa 2'ye alma

[neciperdem]

Herkese merhaba;

Sayfa1 - D10 hücresine girdiğim veriyi kaydet tuşuna bastığımda Sayfa2 - F3 hücresine kopyalamasını ve Sayfa1 - D10 hücresini boşaltmasını istiyorum. Her kayıt ettiğimde bunun alt alta devam etmesi gerekiyor.

Makro bilgim neredeyse hiç yok yardımlarınızı bekliyorum. Teşekkürler

 

[YUSUF44]

Sub aktar()
yeni=Sheets("Sayfa2").Cells(Rows.Count,"F").End(3).Row+1
Sheets("Sayfa2").Cells(yeni,"F") = Sheets("Sayfa1").[D10]
Sheets("Sayfa1").[D10].ClearContents
End Sub

Yukardaki kodları kopyalayın
Excel dosyanızda Alt+F11 yaparak VBA kod sayfasını açın
Üstte Insert Menüsünden Module'yi seçin
Açılan sayfaya kodları yapıştırın
Excel sayfasına geçin
Sayfanıza bir resim/düğme/şekil ekleyin
Eklediğinze sağ tıklayıp makro ata deyin
Açılan listeden aktar makrosunu seçip işlemi tamamlayın
Dosyanızı makro içerebilen excel dosyası olarak kaydedin

 

[neciperdem]

Sub aktar()
yeni=Sheets("Sayfa2").Cells(Rows.Count,"F").End(3).Row+1
Sheets("Sayfa2").Cells(yeni,"F") = Sheets("Sayfa1").[D10]
Sheets("Sayfa1").[D10].ClearContents
End Sub

Yukardaki kodları kopyalayın
Excel dosyanızda Alt+F11 yaparak VBA kod sayfasını açın
Üstte Insert Menüsünden Module'yi seçin
Açılan sayfaya kodları yapıştırın
Excel sayfasına geçin
Sayfanıza bir resim/düğme/şekil ekleyin
Eklediğinze sağ tıklayıp makro ata deyin
Açılan listeden aktar makrosunu seçip işlemi tamamlayın
Dosyanızı makro içerebilen excel dosyası olarak kaydedin

Yusuf Bey öncelikle yardımlarınız için çok teşekkür ederim. Makroyu istediğim gibi çalıştırdım sayenizde. Ancak makroları butonla değil de kayıt et tuşuna bastığımda (ctls+s ve fonksiyonları) çalıştırmak istiyorum. Bunun bir yolu var mı?

Ayrıca her kayıt et tuşuna bastığımda "Dikkat! Belgenizin bazı bölümleri, Belge Denetçisi tarafından kaldırılamayan kişisel bilgiler içeriyor olabilir." şeklinde bir uyarı veriyor bu normal mi ?

 

[YUSUF44]

Aşağıdaki kodları kod bölümünde ThisWorkBook/BuÇalışmaKitabı kısmına yapıştırırsanız her kaydetmede aktarım işlemini yapar:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
yeni = Sheets("Sayfa2").Cells(Rows.Count, "F").End(3).Row + 1
Sheets("Sayfa2").Cells(yeni, "F") = Sheets("Sayfa1").[D10]
Sheets("Sayfa1").[D10].ClearContents
End Sub

VBA Code Modules & Event Procedures for Sheet & ThisWorkbook

Learn the different places to store macros, functions, & VBA code in Excel. We compare the Code Module, Sheet Module, and ThisWorkbook Module. + Video

www.excelcampus.com

Belirttiğiniz uyarının çıkmaması için Dosya/Seçenekler/Güven Merkezi/Güven Merkezi Ayarları/Gizlilik Seçenekleri menü yolunu izleyerek "Kaydederken kişisel bilgileri kaldır" seçeneğinin işaretini kaldırın.

 

[neciperdem]

Yusuf bey yardımlarınız için çok teşekkür ederim.
Sayenizde gayet kullanışlı oldu.