ListBox ta son satır

[captan]

Arkadaşlar Kolay gelsin. Çalışma sayfamda Girdiğim verileri ListBox ta görüyorum Sorum ListBox ta son satırda ne olduğunu nasıl görebilirim. Kaydet butonuyla işlem yapıldıktan sonra son satırı yani en alt satırı görmek istiyorum.



Tüm arkadaşlara Kolay gelsin. . .

 

[Korhan Ayhan]

Selamlar,

Kaydet butonundaki kodların en sonuna aşağıdaki kodu uygulayın.

ListBox1.ListIndex = ListBox1.ListCount - 1

 

[captan]

Galiba ben beceremedim

 

[captan]

Dosyayı Düzelttim arkadaşlar

 

[Recep İpek]

Ekteki örneği inceleyebilirmisiniz.

Listbox'a tıklayınca son satırı Labellarda gösteriyor.

Kendinize göre uyarlayabilirsiniz.

 

[captan]

Sayın Ripek Göndermiş Olduğum dosyayı inceleyebilirmisin?

 

[Korhan Ayhan]

Selamlar,

Dosyanızdaki kodları aşağıdakiler ile değiştirip denermisiniz.

Private Sub Kaydet_Click()
For a = 2 To 4
If Controls("textbox1") = "" Then
MsgBox "VERİ GİRİŞİ EKSİKTİR"
Exit Sub
End If
Next
devam:
sonsat = [A65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 2
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
TextBox1 = ""
TextBox2 = ""
UserForm_Initialize
ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "Sayfa1!B2:C" & [A65536].End(3).Row
ListBox1.ColumnWidths = 100 & ";" & 70
End Sub

 

[Recep İpek]

İnceledim ama tam olarak anlayamadım.Anladığım kadarıyla kaydet tuşuna bastıktan sonra Departman Adı ve Departman yetkilisi alanlarında Listboxdaki son değerleri görmek istiyorsunuz.Benim yaptığım örnekte bu çalışma var.
Kendinize göre uyarlayabilirsiniz.Ayrıca son kaydı görmek için güncelleme yapmanız gerekebilir.Yani formu kapatıp açmanız gerekmektedir.

NOT:Üstad (Cost Control ) daha net açıklamış.

 

[captan]

Arkadaşlar Çok teşekkür ederim.
Sayın Cost Control kodlar çok işime yaradı.