Listbox ta aktif veri girişi gösretilsin

[Erhan Köseoğlu]

Veri girişi yapıldığında listbox ta enson girilen bilgiler görünsün, benim yaptığım şekilde liste hep aynı kalıyor, nasıl olabilir?

 

[janveljan]

Veri girişi yapıldığında listbox ta enson girilen bilgiler görünsün, benim yaptığım şekilde liste hep aynı kalıyor, nasıl olabilir?

Aşağıda kodların iki kısmında değişiklik yaptım. Bunları uygularsanız istediğiniz olacaktır.

Private Sub CommandButton1_Click()
Dim yeni As Range
Set yeni = Worksheets("sayfa1").Range("A1:a1000").Find("")
yeni.Value = Application.WorksheetFunction.Max(Worksheets("sayfa1").Range("c12:c59")) + 1
yeni.Offset(0, 0) = vagno.Value
yeni.Offset(0, 1) = vagtarih
'yeni.Offset(0, 2) = vagtrenno
'yeni.Offset(0, 4) = vagtutyer
'yeni.Offset(0, 9) = vagtamirsebebi
Application.Wait Now + TimeValue("00:00:01") / 1.5
[COLOR=red][B]ListBox1.Tag = "Yeni"
UserForm_Initialize[/B][/COLOR]
End Sub

Private Sub UserForm_Initialize()
Label3.Caption = VBA.Date
Label4.Caption = VBA.Time
ListBox1.ColumnCount = 8
ListBox1.ColumnWidths = "25;25;25;50"
ListBox1.RowSource = "Sayfa1!A1:D" & Sheets("Sayfa1").Range("A65536").End(xlUp).Row
[COLOR=red][B]If ListBox1.Tag = "Yeni" Then ListBox1.TopIndex = ListBox1.ListCount - 1
[/B][/COLOR]End Sub

 

[Erhan Köseoğlu]

önce textbox a yazıp kaydet dedediğimde kayıt işleminden sonra textbox temizleniyordu
yukarıdaki şekilde kodları değiştirdiğimde ise listbox yeni veri girişini gösteriyor ancak textboxlar silinmiyor, en son girilen veriler kalıyor, biraz uğraştım ama hem güncel bilginin listboxta görünmesini hem de kayıt işleminden sonra textbox ların silinmesini sağlayamadım

 

[janveljan]

Textboxların isimleri yanlış olabilir değiştirirsiniz.

Private Sub UserForm_Initialize()
[COLOR=red]vagno=""[/COLOR]
[COLOR=red]vagtarih=""[/COLOR]
Label3.Caption = VBA.Date
Label4.Caption = VBA.Time
ListBox1.ColumnCount = 8
ListBox1.ColumnWidths = "25;25;25;50"
ListBox1.RowSource = "Sayfa1!A1:D" & Sheets("Sayfa1").Range("A65536").End(xlUp).Row
[COLOR=black]If ListBox1.Tag = "Yeni" Then ListBox1.TopIndex = ListBox1.ListCount - 1[/COLOR]
End Sub

 

[Erhan Köseoğlu]

ilginize çok teşekkür ederim, kusura bakmayın sizi de yoruyorum.
textbox ların adı vagno ve vagtarih
dediğiniz şekilde kodları ekleyince olmadı,

 

[Erhan Köseoğlu]

bu şekilde denedim ama olmadı

 

[janveljan]

Bunu deneyin

Private Sub CommandButton1_Click()
Dim yeni As Range
Set yeni = Worksheets("sayfa1").Range("A1:a1000").Find("")
yeni.Value = Application.WorksheetFunction.Max(Worksheets("sayfa1").Range("c12:c59")) + 1
yeni.Offset(0, 0) = vagno.Value
yeni.Offset(0, 1) = vagtarih
'yeni.Offset(0, 2) = vagtrenno
'yeni.Offset(0, 4) = vagtutyer
'yeni.Offset(0, 9) = vagtamirsebebi
Application.Wait Now + TimeValue("00:00:01") / 1.5
[COLOR=red]vagno=""[/COLOR]
[COLOR=red][COLOR=red]vagtarih=""[/COLOR][/COLOR]
[COLOR=red][B]ListBox1.Tag = "Yeni"[/B][/COLOR]
[B][COLOR=red]UserForm_Initialize[/COLOR][/B]
End Sub

 

[Erhan Köseoğlu]

sayın janveljan ;
ilginize teşekkür ederim,
kodları vagno = "" ve vagtarih = "" yapınca halloldu
iyi akşamlar.

 

[janveljan]

Ya kusura bakmayın ezberden yapınca işte insan şaşıyor. Bende denedim şimdi Textboxların clear özelliği yok. Hallettiğinize sevindim, iyi çalışmalar.