Sıra no

[mbattal]

Selam Arkadaşlar,
Ekte gönderdiğim dosyayı forumdaki örnekler vasıtasıyla hazırladım (hiç bilmeme rağmen) fakat userform daki sıra no butonuna bastığımda hemen yanındaki alana excel sayfasındaki sıra nolarının en sonuncusundan sonraki sayıyı otomatik olarak çıkartmayı beceremedim
yardım ederseniz sevinirim
teşekkürler

 

[conari]

[a65536].End(3).Row + 1

a sütünunda en son boş satır.

 

[hamitcan]

Kodlarınızı aşağıdaki şekilde değiştirin.

Dim deneme As Integer
Private Sub CommandButton1_Click()

 Sheets("PLAN").Cells(deneme, 1) = TextBox1.Text
 Sheets("PLAN").Cells(deneme, 2) = TextBox2.Text
 Sheets("PLAN").Cells(deneme, 3) = TextBox3.Text
 
 TextBox1.Text = ""
 TextBox2.Text = ""
 TextBox3.Text = ""
End Sub

Private Sub CommandButton3_Click()
UserForm1.Hide
End Sub

Private Sub UserForm_Initialize()
deneme = Application.CountA(Sheets("PLAN").Columns("A")) + 1
 TextBox1 = deneme - 1

End Sub

 

[emrexcel123]

buyrun

dosya ektedir

 

[mbattal]

Arkadaşlar biraz geç oldu kusura bakmayın hepinize çok teşekkür ederim