Mevcut bilgiyi MAkro ile sayfa2 deki satırlara alt alta kaydetmek

[sonicman]

Slm. arkadaşlar

Kaydet butonuna tıkladığımda A1:Z1 hüzrelerindeki bilgiyi
SAyfa 2 deki satırlara alt alta nasıl kaydedebilirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Sayfa2 de A sütununa aktarım yapar.

Sub AKTAR()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    For X = 1 To 26
    If S1.Cells(1, X) <> "" Then S2.Cells(S2.[A65536].End(3).Row + 1, 1) = S1.Cells(1, X)
    Next: MsgBox "VER&#304;LER&#304;N&#304;Z AKTARILMI&#350;TIR.", vbInformation
End Sub

 

[turk4545]

peki hocam sayfa 1 deki a1,a2,a3,a4.....bilgileri sayfa 2 a1,a2,a3,a4.... nasıl kopyalatabiliriz..