textbox kaydetme işleminden sonra veri girişine hazır olsun

[Erhan Köseoğlu]

Kaydet butonuna tıkladıktan sonra imleç ogrencino isimli textbox ta hazır bulunuyodu, daha sonra userform a listbox ekleyip son verinin lisbox ta görünmesi şeklinde kod yazınca imleç ogrencino textbx ında yanıp sönmüyor ve her veri girişinden önce tıklamam gerekiyor bu durun nasıl çözülebilir, kodları aşağıya ekledim



Private Sub CommandButton1_Click()
Dim yeni As Range
Set yeni = Worksheets("sayfa1").Range("A1:a1000").Find("")
yeni.Value = Application.WorksheetFunction.Max(Worksheets("sayfa1").Range("c1:c10000")) + 1
yeni.Offset(0, 0) = kitapno.Value
yeni.Offset(0, 1) = ogrencino
Application.Wait Now + TimeValue("00:00:2") / 1.5
ListBox1.Tag = "Yeni"
UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
kitapno = ""
ogrencino = ""
Label3.Caption = VBA.Date
Label4.Caption = VBA.Time
ListBox1.ColumnCount = 8
ListBox1.ColumnWidths = "20;35;30;50"
ListBox1.RowSource = "Sayfa1!A1" & Sheets("Sayfa1").Range("A65536").End(xlUp).Row
If ListBox1.Tag = "Yeni" Then ListBox1.TopIndex = ListBox1.ListCount - 1

 

[dEdE]

Merhaba,
Buraya yazdığınız kodların en sonuna

ogrencino.SetFocus

ekleyiniz.