- Katılım
- 31 Aralık 2007
- Mesajlar
- 226
- Excel Vers. ve Dili
- Office 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-10-2019
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
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