Formun Initialize olayına aşağıdaki kodları yazın.
Dim saT As Long
saT = Worksheets("sayfa1").Range("a" & Rows.Count).End(3).Row
UserForm1.TextBox1.Value = 230000 + saT
ComboBox a TextBox1 adı vermek de neyin nesi anlamadım ama
TextBox1 adlı ComboBox ın Change olayındaki kodları
TextBox1 adlı ComboBox ın Click olayına alın.
Sonra TextBox1 adlı ComboBox ın Change olayındaki kodları silin.
KAYDET butonunda
.End(3)(2, 1).Value = TextBox1.Value satırına 1 ekleyin.
yani aşağıdaki gibi olacak.
.End(3)(2, 1).Value = TextBox1.Value + 1
Dosyanız tam bir karmaşa.
Bu karmaşadan çözebildiğim ve anlayabildiğim şimdilik bu kadar.
Ve lütfen o comboboxlara doğru dürüst bir ad kullanın.
Kolay gelsin.
