Değişik bir satırı sütuna çevirme

[steppe]

Örnek dosyada detaylı açıkladım. Makro ile Sayfa1'deki bilgileri Sayfa2'deki gibi kopyalamak istiyorum.
Yardımlarınız için şimdiden teşekkürler.

 

[Muzaffer Ali]

Dosyanız ekte

 

[steppe]

dalgalikur kardeş,
Yardımların içiin teşekkür ederim.Yalnız,yeni kayıt geldiğinde Sayfa2 de bir alt satırdan kayıt yapmıyor.

 

[Muzaffer Ali]

Bak = 2

satırını

Bak = 1 + Sayfa2.Cells(Cells.Rows.Count, 1).End(xlUp).Row

satırı ile değiştirin