Sırayla veri aktarımı

[m.gur]

Sub SONUC_MOT_TAN_TOPLUYA_AKTAR()
Application.ScreenUpdating = False
Set SM = Sheets("SONUC_MOT")
Set TT = Sheets("TOPLU")
TT.Select
'st.Unprotect
TT.[A3:F65536].ClearContents
SATIR = 3
For X = 4 To SM.[B65536].End(3).Row
If SM.Cells(X, 1).EntireRow.Hidden = False Then
TT.Cells(SATIR, 2) = SM.Cells(X, 3)
TT.Cells(SATIR, 3) = SM.Cells(X, 4)
TT.Cells(SATIR, 4) = SM.Cells(X, 7)
TT.Cells(SATIR, 5) = SM.Cells(X, 9)
TT.Cells(SATIR, 6) = SM.Cells(X, 5)
SATIR = SATIR + 1
End If: Next
st.Cells(SATIR, 3) = " SATIR SONU "
TT.[B3:F65536].Sort Key1:=TT.Range("F3"), Order1:=xlAscending
[B3].Select
'st.Protect
Set SM = Nothing
Set TT = Nothing
Application.ScreenUpdating = True
MsgBox "BİLGİLER AKTARILMIŞTIR." & " MUSTAFA ", vbInformation
End Sub

Yukarıdaki kodlarla "TOPLU" adlı sayfaya verileri aktarıyorum. Ancak; toplu adlı sayfada daha önceden mevcut olan verilerin altına yazması için kodu nasıl revize etmem gerekir.

 

[uzmanamele]

merhaba
bunu deneyiniz.

SATIR = Range("a65536").End(3).Row+1

 

[m.gur]

Sayın uzmanamele; çok teşekkür ederim. Formülü nereye yerleştireceğimi deneme yanılma metoduyla buldum sonunda, gayet güzel çalışıyor. İyi çalışmalar.