Sayfa1 deki Belirli sutunlardaki verileri Sayfa2 deki sutunlara aktarma

[zorro14]

Merhabalar.Makro ile Sayfa1 deki A-B-D-E-G sutunlarındaki 5 satırdan sonraki alt alta verileri makro ile bir kerede Sayfa2 deki A-B-C-D sutunlarındaki 5. satırdan sonra kaydetmesini istiyorum. Yardımcı olursanız çok sevinirim.
Bilmem istediğimi anlatabildim mi? İlgilenenlere şimdiden teşekkür ederim.

 

[vardar07]

Buyurun.

Sub aktar()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
[COLOR="Red"]sat = 6[/COLOR]
For i = 6 To s1.Cells(Rows.Count, 1).End(3).Row
s2.Cells(sat, "A") = s1.Cells(i, 1)
s2.Cells(sat, "B") = s1.Cells(i, 3)
s2.Cells(sat, "C") = s1.Cells(i, 5)
s2.Cells(sat, "D") = s1.Cells(i, 6)
[COLOR="red"]sat = sat + 1[/COLOR]
Next i
End Sub

 

[zorro14]

Maalesef Çalışmadı acaba hatalımı anlattım acaba. Örnek Dosyayı aşağıdaki linke yükledim. Orda İstediğimi anlatmaya çalıştım.şimdiden teşekkürler.

http://www.dosyaupload.com/2sOv

 

[PLİNT]

Merhaba
Alternatif olarak şöyle deneyin.

Sub aktar()
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s = s1.Cells(Rows.Count, 1).End(3).Row
s2.Range("A6:A" & s).Value = s1.Range("A6:A" & s).Value
s2.Range("C6:C" & s).Value = s1.Range("C6:C" & s).Value
s2.Range("E6:F" & s).Value = s1.Range("E6:F" & s).Value
End Sub

Sn vardar07 e ait kodlarda "sat" yerine "i" kullanılırsa çalışacaktır

For i = 6 To s1.Cells(Rows.co[COLOR="Red"]un[/COLOR]t, "A").End(3).Row

s2.Cells[COLOR="Red"](i[/COLOR], "A") = s1.Cells(i, 1)

 

[zorro14]

Tamam Teşekkürler. Şimdi işstediğim gibi oldu. Bilginize sağlık

 

[vardar07]

Merhaba
Alternatif olarak şöyle deneyin.
Sn vardar07 e ait kodlarda "sat" yerine "i" kullanılırsa çalışacaktır

Haklısınız sat değerini döngüye sokmamışım. Uyarı için teşekkürler. Alternatif olarak bulunsun.