Dolu Olan Son Satırı Başka Sayfaya Kopyalama isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadı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.
Hazır Kod
VBA:
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 SubAçıklama
Ü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.
Faydalanılması temennisiyle
