userform sonraki kayda geç

[yok_06]

aşağıdaki kodla kayıtları sorunsuz güncelliyorum fakat bir sonraki kayda otomatik geçmesini istiyorum bana bir örnek kod verebilirmisiniz.
İD olarak b değerler var onlardan yada otomatik olarakta geçebilir.

Private Sub Güncelle_Click()
ActiveCell.Offset(0, 6).Value = babaadi.Value
ActiveCell.Offset(0, 7).Value = anaadi.Value
ActiveCell.Offset(0, 46).Value = sms.Value
ActiveCell.Offset(0, 19).Value = gorusulen.Value
ActiveCell.Offset(0, 20).Value = gorusmetarihi.Value
ActiveCell.Offset(0, 21).Value = telno.Value
ActiveCell.Offset(0, 22).Value = istelefonu.Value
ActiveCell.Offset(0, 25).Value = notlar.Value
ActiveCell.Offset(0, 26).Value = odemegunu.Value
ActiveCell.Offset(0, 49).Value = maastarihi.Value
ActiveCell.Offset(0, 50).Value = maasadresi.Value
ActiveCell.Offset(0, 53).Value = maastutari.Value
ActiveCell.Offset(0, 51).Value = maasilce.Value
ActiveCell.Offset(0, 52).Value = maasil.Value
ActiveCell.Offset(0, 27).Value = grapor.Value
ActiveCell.Offset(0, 70).Value = email.Value
Call Temizle_Click
End Sub

 

[Necdet]

Merhaba,

Kodlarınızın başına Son satırı bulduran kod ekleyebilirsiniz.

Örneğin A sütununa göre :

SonSat = Cells(Rows.Count,"A").end(3).row +1
Range("A" & SonSat).Select

derseniz mevcut kodlarda değişiklik yapmamış olursunuz.

 

[yok_06]

Merhaba,
bu şekildemi

SonSat = Cells(Rows.Count,"A").end(3).row +1
Range("A" & SonSat).Select
Private Sub Güncelle_Click()
ActiveCell.Offset(0, 6).Value = babaadi.Value
ActiveCell.Offset(0, 7).Value = anaadi.Value
ActiveCell.Offset(0, 46).Value = sms.Value
ActiveCell.Offset(0, 19).Value = gorusulen.Value
ActiveCell.Offset(0, 20).Value = gorusmetarihi.Value
ActiveCell.Offset(0, 21).Value = telno.Value
ActiveCell.Offset(0, 22).Value = istelefonu.Value
ActiveCell.Offset(0, 25).Value = notlar.Value
ActiveCell.Offset(0, 26).Value = odemegunu.Value
ActiveCell.Offset(0, 49).Value = maastarihi.Value
ActiveCell.Offset(0, 50).Value = maasadresi.Value
ActiveCell.Offset(0, 53).Value = maastutari.Value
ActiveCell.Offset(0, 51).Value = maasilce.Value
ActiveCell.Offset(0, 52).Value = maasil.Value
ActiveCell.Offset(0, 27).Value = grapor.Value
ActiveCell.Offset(0, 70).Value = email.Value
Call Temizle_Click
End Sub