Soru Kopyalama hakkında

Cengizhantr06

Altın Üye
Katılım
16 Mayıs 2020
Mesajlar
301
Excel Vers. ve Dili
Office 365 Türkçe
Merhaba iyi aksamlar
Sayfa1 deki verileri yani A2 ile K2 arasındaki tüm dolu satırları seçip
Sayfa2 de A2 ile K2 son boş satıra yapıştırmak ve sonra ve yapıştırma bitince sayfa1 deki verileri temizleme
Yardımcı olur musunuz ?
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
Son=Sheets("Sayfa2").Range("A"&Rows.Count). End(3)+1
Sheets("Sayfa1").Range("A2:K2").Copy
Sheets("Sayfa2").Range("A" & Son, "K" & Son).PasteSpecial xlPasteValues
Sheets("Sayfa1").Range("A2:K2").ClearContents
 

Cengizhantr06

Altın Üye
Katılım
16 Mayıs 2020
Mesajlar
301
Excel Vers. ve Dili
Office 365 Türkçe
Son=Sheets("Sayfa2").Range("A"&Rows.Count). End(3)+1
Sheets("Sayfa1").Range("A2:K2").Copy
Sheets("Sayfa2").Range("A" & Son, "K" & Son).PasteSpecial xlPasteValues
Sheets("Sayfa1").Range("A2:K2").ClearContents
ömer bey ilk satırda hata verdi typme missmatch
Son = Sheets("Cikis").Range("A" & Rows.Count).End(3) + 1
Sheets("SEPET").Range("A2:K2").Copy
Sheets("Cikis").Range("A" & Son, "K" & Son).PasteSpecial xlPasteValues
Sheets("SEPET").Range("A2:K2").ClearContents

sepet sayfasındakileri cikis sayfasına kopyalanacak
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
..
İlk satır hata veriyorsa sayfanızın adı Cikis değildir.
Son değişkenini Long olarak tanımlamayı unutmayın.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
Kullandığınız dosyayı ve exceli komple kapatıp tekrar deneyin.
Olmazsa dosyanızı paylaşın lütfen.
 
Üst