2 sayfa arası veri kopyalama sorunu hk.

[qny1]

Merhaba,
2 çalışma sayfam var sepet ve satış

sepet sayfasındaki verileri makro ile satış sayfasında ki son dolu satırın altına kopyalayıp, sepet sayfasındaki verileri silmek istiyorum. sepet sayfasındaki verileri silmeyi başka bir makro ile hallediyorum.

forumda bulduğum kodları biraz kendime uyarlamayı denedim. aşağıdaki kod ile kopyalama yapabiliyorum ancak; satış sayfasında 89. satırdan itibaren yazmaya başlıyor, 2. satırdan itibaren yazmaya başlasa sorun olmayacak. yardımlarınızı rica ederim.

Sub aktar()
Sheets("SEPET").Range("A2:x12000").copy
sat = Sheets("SATIŞ").Cells(65536, "A").End(xlUp).Row + 1
Sheets("SATIŞ").Range("A" & sat).PasteSpecial
Application.CutCopyMode = False
MsgBox "İşlem tamam"
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Aramıza hoş geldiniz. SATIŞ sayfasında A sütununda 88. hücreyi kontrol ediniz. Yani A2:X12000 arasını bir defa manuel olarak siliniz.
Makronuz temiz çalışıyor.
İyi çalışmalar

 

[qny1]

Hoşbuldum.
Hücrelerin hepsini sildim . her kayıtta , satış sayfasında araya 17 tane boş satır bırakıyor .

 

[Tevfik_Kursun]

Merhaba,
Ancak şimdi bakabildim. Eğer sizin dosyanızda benim dosyadakinden farklı bir durum varsa lütfen bir örnek koyunuz.
İyi çalışmalar