merhaba
benzer bir problemle bende uğraşıyorum
ben aynı satıra bilgi aktarımı yapabildim
bu kodda activecell(0,8) .satıra kadar olan kod işinize yarıyabilir
ondan sonrası bir sütunda alt alta veri girişi içn deniyorum fakat olmuyor bu kodu kaydet butonu yaratıp (aktif olduğu sayfada 4 satırdan itibaren çalışıyor kolay gelsin
Private Sub Cmdkayıt_Click()
Application.ScreenUpdating = False
Range("a4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a4").Value = "" Then
Range("a4") = 1
Range("a4").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = txtfno.Text
ActiveCell.Offset(0, 2).Value = txtas.Text
ActiveCell.Offset(0, 3).Value = txtpl.Text
ActiveCell.Offset(0, 4).Value = txtarac.Text
ActiveCell.Offset(0, 5).Value = txtdefter.Text
ActiveCell.Offset(0, 6).Value = txtpers.Text
ActiveCell.Offset(0, 7).Value = Date
ActiveCell.Offset(0, 8).Value = Date
ActiveCell.Offset(1, 9).Value = txtkbir.Text
ActiveCell.Offset(2, 9).Value = txtkiki.Text
ActiveCell.Offset(3, 9).Value = txtküc.Text
ActiveCell.Offset(4, 9).Value = txtkdört.Text
ActiveCell.Offset(5, 9).Value = txtkbes.Text
acıklama = "KAYIT İÃLEMİ TAMAMLANDI"
dugme = vbkonly + vbInformation + vbDefaultButton1
baslık = "KAYIT"
MsgBox acıklama, dugme, baslık
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.