Makro son rakama göre işlem.

[TRuNsouL]

Arkadaşlar merhaba, Makro kullanarak
Sayfa1 de C sütununa sıra ile sicil numarası giriyorum.

İsteğim C sütununa en son girilen sicil numarasının son rakamını alıp Sayfa2 de bulunan B sütununa eklemek.
Yardımlarınız için teşekkür ederim.

 

[nunikmakarios]

Private Sub Aktar()
sa = Cells(Rows.Count, "C").End(3).Row

Sayfa2.Cells(1, 2) = Right(Cells(sa, 3), 1)

End Sub

 

[TRuNsouL]

Hocam ben kodunuzu şu şekilde çevirdim fakat niye hata alıyorum.
Private Sub Aktar()
Dim bn, sn As Worksheet
Set bn = Sheets("Takip")
Set sn = Sheets("Sayfa1")
sa = bn.Range(Rows.Count, "D").End(3).Row
sn.Range(1, 9) = Right(sn.Cells(sa, 3), 1)
End Sub

Burada Takip sayfasının "D" sütununa girilen rakamın son hanesini Sayfa1'in 9. sütünuna eklemeye çalışıyorum. Başaramadım.