Son Dolu Satırı Başka Sayfaya Kopyala

07 Eylül 2021 1963

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.

Sub aktar()

    Sayfa1.Range("A" & Sayfa1.Rows.Count).End(xlUp).EntireRow.Copy
    Sayfa2.Range("A" & Sayfa2.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    Application.CutCopyMode = False

End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Son Dolu Satırı Başka Sayfaya Kopyala

Ü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.

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
Sayılara Yeni Bir Sayı Ekleme
Makro ile Git Penceresini Açma
Aktif Çalışma Sayfası Korumasını Kaldırma
Şeffaf UserForm Oluşturma Kodu
Sayfadaki Grafikleri Yeniden Boyutlandırma
Excel Makroları ile Form Çağırma
Tekrarlayan Verileri Vurgulama
Bilgisayardaki Sürücü Sayısını Bulma
Sütunu Kes Kopyala ve Yapıştır
Excel Makroları ile Dosya Sayısını Bulma
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Pivot Tablo Alt Toplamlarını Gizleme
UserForm Nesnesine Otomatik Buton Ekleme
Excel Hücresini Seçme Makrosu
Excel Üzerinden Klasör Açma Kodu
Excel Üzerinden Klasör Alma Kodu
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Seçili Aralığı PDF Olarak Kaydetme
Tüm Formülleri Değerlere Dönüştürme
Boş Hücreleri Vurgulama
Excel Kapanırken Otomatik İşlem Yaptırma
Çalışma Kitabını E-Posta Ekine Ekleme
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Dar Kenar Boşluğu Yazdırma
Her Bir Sütundaki Maksimum Değeri Bulma
C Klasörüne Sanal Dizin Oluşturma
Makro ile Web Sitesini Açmak
Aktif Hücrenin Sütun Numarasını Bulma
Formu Kapatma Makro Kodu
Hücre Aralığını Görüntüye Dönüştürme
R1C1 Referans Stilini Etkinleştirme
Negatif Sayıları Poztif Sayıya Çevirme
Çalışma Sayfasını Kaydetme
56 Koşula Kadar Biçimlendirme Yapma
UserForm Üzerinde Dört İşlem
Makrolar ile Klasör Oluşturma
Küp Kökünü Hesaplama
Sayfaların Seçilmesini Sağlama
PDF Dosyalarını Birleştirme
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
Formül Bulunan Hücreleri Koruma ve Kilitleme
Dizinde Klasör Araması Yapma
Hatalı Hücreleri Renklendirme
Aktif Hücreye Açıklama Ekleme
Makro Çalışırken İmlecin Hareket Etmemesi
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Özet Tablo Aralığını Otomatik Güncelleştirme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...