makro ile veri aktarma

[mergul]

Ekli dosyada bir sayfadan diğerine makro ile veri aktarmam gerekiyor, dosyada bilgiler mevcut, yardımcı olursanız sevinirim. şimdiden teşekkürler...

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False

Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("GİRİŞ")
Set S2 = Sheets("Filter")

S2sat = 2
S1son = S1.[A65536].End(3).Row

S2.Range("A2:F65536").ClearContents

For i = 2 To S1son
If S1.Cells(i, "A") <> "" Then

S2.Cells(S2sat, "A") = S1.Cells(i, "A")
S2.Cells(S2sat, "B") = S1.Cells(i, "B")
S2.Cells(S2sat, "C") = S1.Cells(i, "C")
S2.Cells(S2sat, "D") = S1.Cells(i, "L")
S2.Cells(S2sat, "E") = S1.Cells(i, "N")
S2.Cells(S2sat, "F") = S1.Cells(i, "BB")
S2sat = S2sat + 1
Else: End If
Next i
Set S1 = Nothing
Set S2 = Nothing
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[mergul]

Hüseyin bey ilginize teşekkür ederim, kodu nasıl kullanacağımı bilemedim, yardımcı olursanız sevinirim

 

[mergul]

sağolun hüseyin bey şimdi hallettim, çok teşekkür ederim...