makro çalışmada (aktarma) hatası

[h.aykol_]

arkadaşlar ben makro çalışmaya yeni başladım.excel 1.sayfaya veriler giriyorum.veriler kendi sayfalarına aktarırken 1000,1001,1002 satılara atıyor.neden boşluk veriyor bilemedim.acil yardım.dosya ekte

 

[Recep İpek]

Kodları aşağıdaki şekilde değiştiriniz.

Sub aktar()
Dim i, SUT, SON As Long
For i = 2 To Sheets.Count
Sheets(i).[A3:K1000].Clear
For SUT = 2 To Sheets("Tabela kopyalama sayfası").Range("a65536").End(3).Row
SON = Sheets(i).Range("a1000").End(3).Row + 1
If Sheets(i).Name = Cells(SUT, "A") Then
Sheets("Tabela kopyalama sayfası").Cells(SUT, "A").EntireRow.Copy
Sheets(i).Cells(SON, "A").PasteSpecial
Application.CutCopyMode = False
End If
Next
Next
Application.CutCopyMode = False
MsgBox "Bitti"
End Sub

 

[h.aykol_]

teşekkür

teşekkür ederim recep bey

 

[h.aykol_]

recep bey 1.satırda düzgün çalışıyor.
atıyorum 10 satırlık veri girdiğim zaman sadece birinci satırdaki bilgiyi aktarıyor.ve 1.satır haricindeki verileri siliyor.bir deneme yaparmısınız.rica etsem.lütfen!!!