Excel - Bir sonraki boş hücreye veri kopyalayıp yapıştırmak için bir Makro

Konu

Çalışma kitabında iki sayfa var. Sayfa1 özet içindir ve Sayfa2 ham veriler içindir. Sayfa2'deki verileri Sayfa1’de güncellemeniz / eklemem / kopyalamam gerekiyor. Örnek makro kodu aşağıdadır:

 Alt Özetle () Aralık ("A6: AT6"). Seçimi seçin.Copy Sayfaları ("İyileştirme Günlüğü"). Aralığı Seçin ("B283"). Seçimi Seçin. Yanlış, Transpose: = Yanlış Aralık ("B283"). 

Yukarıdaki kod çalışıyor, ancak Sayfa2'deki verileri her değiştirdiğimde Sayfa1 yalnızca verilerini değiştiriyor. İhtiyacım olan şey, her zaman Sayfa2'deki verileri değiştirdiğimde, Sayfa1'de eklenmeli (eklenmeli).

Çözüm

En son kullanılan satırı bilmeniz gerekir. Burada Aralık ("B283") .Seçimi, B sütununda en son kullanılan hücreyi bulur ve ardından altındaki bir hücreyi seçin.

 lMaxRows = Hücreler (Rows.Count, "B"). End (xlUp) .Row Aralığı ("B" & lMaxRows +1) .select 

Bu ipucu için rizvisa1'e teşekkür ederiz.

Önceki Makale Sonraki Makale

En Ipuçları