Son Dolu Satırı Başka Sayfaya Kopyala

07 Eylül 2021 1982

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
Boşluk Olan Hücreleri Renklendirme
Makrolar ile Eliptik Form Oluşturma
Excel Sayfalarındaki Resimleri Silmek
Excel Tam Ekran Yapma
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Çift Satırlı Msgbox Örneği
Tarih ve Saatten Saati Kaldırma
Select Case Kullanımı
Sayıları Yeni Bir Sayıyla Çarpma
Son Dolu Satırı Başka Sayfaya Kopyala
Kopyala ve Özel Yapıştır
Makro ile Klasör Açma
Sütunu Kes Kopyala ve Yapıştır
Excel Şerit Menü Çubuğunu Gizleme
Tek Satırı Kes Kopyala ve Yapıştır
ComboBox Nesneleri ile Toplama Yapma
Satır Yüksekliklerini Otomatik Ayarlama
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
Excel Makroları ile Hücreye Saat Ekleme
Seçili Alandan İstenilen Karakteri Kaldırma
Son Dolu Satırın Bir Altına Yazdırma
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Makrolar ile Sonraki Sayfaya Geçmek
Kopyala ve Biçimleri Yapıştır
Makro ile Git Penceresini Açma
Excel Makro ile Hücreye Veri Yazma
Aktif Hücrenin Sütun Numarasını Bulma
Satırı Kes Kopyala ve Yapıştır
Aktif Çalışma Sayfasını Koruma
Hücre İçerisine Kelime Ekleme
UserForm Nesnesine Otomatik Buton Ekleme
Tek Sütunu Kes Kopyala ve Yapıştır
Çalışma Kitabını E-Posta Ekine Ekleme
Toplu Satır Silme
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Makrolar ile Klasör Oluşturma
Ondalık Sayıları Tam Sayıya Çevirme
Sütun Genişliğini Ayarla
Açıklama İçeren Tüm Hücreleri Vurgulama
UserForm Üzerine CommandButton Ekleme
Birden Çok Sütun Ekleme
Dar Kenar Boşluğu Yazdırma
Yanlış Yazılmış Hücreleri Vurgulama
Excel Seçenekleri Penceresini Açma
Metni Tersten Yazdırma
Label Nesnesine Kayan Yazı Ekleme
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
Tek Hücreyi Kes Kopyala ve Yapıştır
Belirli Kriterlere Sahip Satırları Silme

Daha önce yorum yapılmamış!

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