hücreye yazılan veriyi diğer sayfadaki sütun sonuna ekleme

[yNsr43]

merhaba arkadaşlar "sayfa1" de "a4" hücresine veri yazıp entera bastiğimda otomatik "sayfa2" deki "C" sütunundaki verilerin en sonuna yazmasini istiyorum nasıl yapabilirz ?
teşekkürler.

 

[veyselemre]

Merhaba, Sayfa1'in kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$4" And Target.Value <> "" Then
        Sheets("Sayfa2").Cells(Rows.Count, 3).End(3).Offset(1).Value = Target.Value
    End If
End Sub

 

[yNsr43]

Merhaba, Sayfa1'in kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$4" And Target.Value <> "" Then
        Sheets("Sayfa2").Cells(Rows.Count, 3).End(3).Offset(1).Value = Target.Value
    End If
End Sub

teşekkürler.