listboxta kaç satır var

[Fuat Şirin]

arkadaşlar
listboxta toplam kaç satır giriş yapıldıysa yani toplam kaç satır varsa
textboxta görüntülemek istiyorum
şimdiden saygılar teşekkürler

 

[Orion1]

msgbox Listbox1.listcount

 

[Fuat Şirin]

hocam böle değilde
textboxta göstersin istiyorum
yani kaç tane satır varsa (giriş )
yapıldıysa göstersin istiyorum

 

[Orion1]

hocam böle değilde
textboxta göstersin istiyorum
yani kaç tane satır varsa (giriş )
yapıldıysa göstersin istiyorum

msgbox yazan yere textbox'ın ismini yazın.

 

[Fuat Şirin]

Private Sub userform_Initialize()
TextBox5 = ListBox1.ListCount

hocam bu şelilde girdim
65535 yazıyor textboxta
ve giriş oldukça değişmiyor

 

[Orion1]

Kodu veri girişi yaptığınız nesneye en son satıra yazınız.

 

[Fuat Şirin]

kodlar

Private Sub ComboBox1_Change()
Set s1 = Sheets("ffff")
sat = ComboBox1.ListIndex + 2
TextBox1 = s1.Cells(sat, "b")
TextBox2 = s1.Cells(sat, "c")
TextBox3 = s1.Cells(sat, "d")
TextBox4 = s1.Cells(sat, "e")

End Sub

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
For i = 2 To 32000
    If (Sayfa1.Cells(i, 1) = "") Then 'yeni giriş yapan kodlar
        Sayfa1.Cells(i, 1) = ComboBox1.Text
        Sayfa1.Cells(i, 2) = TextBox1.Text
        Sayfa1.Cells(i, 3) = TextBox2.Text
        Sayfa1.Cells(i, 4) = TextBox3.Text
        Sayfa1.Cells(i, 5) = TextBox4.Text
        userform_Initialize
        CommandButton2_Click
        Exit Sub
    End If
Next i
End Sub

Private Sub CommandButton2_Click()
        ComboBox1 = ""
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
        TextBox4 = ""
End Sub

Private Sub userform_Initialize()
ComboBox1.SetFocus
ComboBox1.RowSource = "ffff!a2:a65536"
ListBox1.RowSource = "ssss!a2:g65536"
    If ListBox1.ListCount > 0 Then
    For X = ListBox1.ListCount - 1 To 0 Step -1
    If Not IsEmpty(ListBox1.List(X, 0)) Then
    ListBox1.ListIndex = X
    Exit For
    End If
    Next
    End If
End Sub

hocam bu kodlarda nereye yazılacak tam kavrayamadım

 

[Orion1]

Userformun Initialize olayındaki kodları aşağıdaki kodlarala değiştiriniz.

Private Sub userform_Initialize()
ComboBox1.SetFocus
ComboBox1.RowSource = "ffff!a2:a" & Sheets("ffff").Cells(65536, "A").End(xlUp).Row
listbox1.RowSource = "ssss!a2:g" & Sheets("ssss").Cells(65536, "A").End(xlUp).Row
    If listbox1.ListCount > 0 Then
    For X = listbox1.ListCount - 1 To 0 Step -1
    If Not IsEmpty(listbox1.List(X, 0)) Then
    listbox1.ListIndex = X
    Exit For
    End If
    Next
    End If
    textbox1.Text = listbox1.ListCount
End Sub

 

[Fuat Şirin]

hocam çok teşekkür
elinize sağlık