Diğer sayfaya veri aktarma

[melihseber]

Merhabalar, herkese iyi çalışmalar,
Gönderdiğim ekte veri giriş sayfasındaki satırları bir tuşla tablo adlı sayfama aktarıyorum. Fakat aktarırken her satırın başına Grup no'ya ne yazmışsam onu yazdırmak istiyorum. (Not: satır sayıları her zaman değişik sayıda),
Mümkün müdür? bence mümkündür ama benim yapmam mümkün değil galiba

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub aktar()

Set s2 = Sheets("Tablo")
sonhucre = Application.CountA(s2.Columns(2)) + 4
Set alan = [c4].CurrentRegion
alansatiri = alan.Rows.Count
alan.Offset(1, 0).Select
Selection.Copy Destination:=s2.Cells(sonhucre, 2)
For t = sonhucre To sonhucre + alansatiri - 2
[d2].Copy Destination:=s2.Cells(t, 1)
Next

End Sub

 

[melihseber]

Hamitcan kardeşim sağolasın, ellerine sağlık.
Kodlar bana biraz karmaşık geldi ama tam istediğim gibi çalışıyor, kodları biraz değiştirerek ne işe yaradıklarını öğrenmeye çalışayım,
sana iyi çalışmalar dilerim