textbox içeriğinin kontrol edilmesi

[ccumhur]

arkadaslar ekte proplemimi anlatmaya çalıştım. tşk

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:80ca78217e]Private Sub CommandButton1_Click()
sonsat = [a65536].End(3).Row
If [a65536].End(3) = TextBox1 Then
Cells(sonsat + 1, "c") = Cells(sonsat, "c")
Else
Cells(sonsat + 1, "c") = Cells(sonsat, "c") + 1
End If
Cells(sonsat + 1, "a") = TextBox1
Cells(sonsat + 1, "b") = TextBox2
End Sub
[/vb:1:80ca78217e]