Soru Kopyalama hakkında

[Cengizhantr06]

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]

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]

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]

..
İlk satır hata veriyorsa sayfanızın adı Cikis değildir.
Son değişkenini Long olarak tanımlamayı unutmayın.

 

[Cengizhantr06]

..
İlk satır hata veriyorsa sayfanızın adı Cikis değildir.
Son değişkenini Long olarak tanımlamayı unutmayın.

sayfa adı Cikis doğru ve dim son as long olarak tanımladım yine aynı malesef

 

[ÖmerFaruk]

Kullandığınız dosyayı ve exceli komple kapatıp tekrar deneyin.
Olmazsa dosyanızı paylaşın lütfen.