Son Dolu Satırı Başka Sayfaya Kopyala

07 Eylül 2021 2064

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
Negatif Sayıları Poztif Sayıya Çevirme
Metni Tersten Yazdırma
Sendkey Yöntemi ile F Q Klavye Dönüşümü
Klavyeye Makro Atama ve Çalıştırma
Excel Dosya Arama Yapma Makrosu
Excel Crackleme İşlemi Makrosu
Dizileri Döngüye Eklemek
Sayfaların Seçilmesini Sağlama
Excel Dosya Silme İşlemi Makrosu
Açıklama İçeren Tüm Hücreleri Vurgulama
ComboBox Nesneleri ile Toplama Yapma
Excel Üzerinden Klasör Açma Kodu
Sütunlardaki Farkı Renklendirme
Tam Dizin İsmini Bulma
Birden Çok Satır Ekleme
Gizlenmiş Makro Örnekleri
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Belli Sütunlarda Alfabetik Sıralama
Makrolar ile Klasör Silme
Tek Hücreyi Kes Kopyala ve Yapıştır
Aktif Hücrenin Üstüne Satır Ekleme
Birden Çok Sütun Ekleme
Şeffaf UserForm Oluşturma Kodu
Sütunları Otomatik Sığdırma
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
Formüllü Hücreleri Renklendir
Aktif Çalışma Sayfası Dışında Tümünü Silme
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Sayılara Yeni Bir Sayı Ekleme
Tüm Formülleri Değerlere Dönüştürme
Excel Hücresine Gitme Makrosu
Bir Aralıktaki Maksimum Değeri Renklendirme
Satır Yüksekliğini Ayarla
Çift Satırlı Msgbox Örneği
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Otomatik Sıra Numarası Ekleme
Bağlantılı Resim Ekleme
Hücre İçerisine Kelime Ekleme
Makro ile Açılan Liste Oluşturma
Makro ile Biçimleri Temizleme
Sayfadaki Ad Tanımlamaları Silme
TextBox Nesnesinde Kuruş Göstermek
Aktif Satırı ve Sütunu Vurgulama
Bilgisayardaki Sürücü Sayısını Bulma
Excel Makroları ile Klasör Silme
Aktif Çalışma Sayfasını Koruma
Label Nesnesine Kayan Yazı Ekleme
Kopyala ve Biçimleri Yapıştır
Boş Hücrelerin Görünmez Alanını Vurgulama
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme

Daha önce yorum yapılmamış!

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