Aktar

[yahaci]

sevgili arkadaşlar örnek dosyada Tek gurup adlı sayfada bulunan tablodaki bilgileri Fikstür sayfasındaki taploya aktarmam gerekiyor ilgilenirseniz sevinirim saygılar

 

[Necdet]

Merhaba,

Sub Aktar()
Dim st  As Worksheet
Dim Sf  As Worksheet
Dim i   As Long
Dim j   As Long
Set st = Sheets("TEK GRUP")
Set Sf = Sheets("Fikstür")
i = st.[A65536].End(3).Row
j = Sf.[A65536].End(3).Row + 1
st.Range("A" & i & ":F" & i).Copy Sf.Range("A" & j)
st.Range("A" & i & ":F" & i).ClearContents
MsgBox "Aktarılmıştır..."
End Sub

 

[yahaci]

hocam teşekkür ederim saygılar