Son Dolu Satırı Başka Sayfaya Kopyala isimli makro kodu, bir sayfanın en son satırındaki dolu veriyi, diğer sayfanın en son boş satırına kopyalar.
Yararlanmanıztemennisiyle.
Hazır Kod/Formül Listesi
Dolu Olan Son Satırı Başka Sayfaya Kopyalama
- Konuyu başlatan ExcelDepo
- Başlangıç tarihi
Site Kurucusu
VBA:
Görüntülemek için giriş yapmalısınız.
(5 satır)Üstteki kodlar, resimde görünen verilerden sonra satırda olanı kopyalar ve Sayfa2'nin son boş satırına olduğu gibi yapıştırır.
Eğer yapıştırma yaparken örneğin sadece "Değerler" seçeneğini seçmek istiyorsanız, PasteSpecial satırından sonra bir boşluk bırakınca açılacak olan listeden xlPasteValues seçeneğini seçmeniz yeterli olacaktır.
Kodlarla uğraşmak istemeyenler dosyamızı inceleyebilir.
Aktar butonuna tıkladıktan sonra Sayfa2'ye geçmeyi unutmayın. Bu işlemi otomatik yapmak isterseniz, Application.CutCopyMode = False satırının üstüne Sayfa2.Select kodunu eklemeniz yeterli olacaktır.
Uygulama Adımları
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
|
Son Dolu Satırın Bir Altına Yazdırma
|
|
Son Dolu Hücreye Kopyalama
|
|
|
Dolu Textbox Sayısını Mesajla Bildirme
|
|
|
Dolu Satıra Göre Formül Çoğaltma
|
|
|
Dolu Alanları Yazdırma
|