makro ile sütundaki satır dolu ise bir alta yazma

[tiger3156]

Merhaba arkadaşlar;
makroyu her çalıştırdığımda
örneğin sayfa 1 de a1 hücresine yazdığım sayıyı sayfa 2 de a sütununda a1 doluysa a2 ye a2 doluysa a3 gibi bu şekil devam edecek yazmasına nasıl yapabilirim,
şimdiden yardımlarınız için teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları inceleyiniz, kendi çalışmanıza uyarlayınız.

Sayfa1 de iken kodları çalıştırınız.

Sub Aktar()
    
    Dim i   As Long, _
        sh2 As Worksheet
    
    Set sh2 = Sheets("Sayfa2")
    
    i = sh2.Cells(Rows.Count, "A").End(3).Row + 1
    
    sh2.Cells(i, "A") = Range("A1")
    
End Sub

 

[muygun]

Merhaba;
Sayfa1'in kod bölümüne;

Sub sayı_yaz()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("Sayfa2")
If s2.Cells(1, 1) = "" Then sonsatir = 1
If s2.Cells(1, 1) <> "" Then sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = s1.Cells(1, 1)
Application.ScreenUpdating = True
End Sub

Kodlarını yerleştirip bir butona bağlayın.
İyi çalışmalar.

 

[tiger3156]

Teşekkürler

 

[tiger3156]

Tam istediğim gibi çok teşekkürler yardımınız için.