Listbox a veri gelince satır başına gitmesin

[bilisim2010]

Merhaba ben listbox a b2 hücresinden otomotik veri getirtiyorum ancak 2. satıra gelen veriyi listbox çekince listbox içindeki seçim en başa çıkıyor bunu yeni gelen veri üzerinde nasıl tutabiliriz yani bulunduğu yerde kalsın.?

 

[hamitcan]

Böyle bir şey mi ?

Private Sub UserForm_Initialize()
    For i = 1 To 5
        ListBox1.AddItem i
    Next
    For j = 0 To ListBox1.ListCount - 1
        If ListBox1.List(j) * 1 = [b2] Then
            ListBox1.Selected(j) = True
        End If
    Next
End Sub

 

[bilisim2010]

Böyle bir şey mi ?

Private Sub UserForm_Initialize()
    For i = 1 To 5
        ListBox1.AddItem i
    Next
    For j = 0 To ListBox1.ListCount - 1
        If ListBox1.List(j) * 1 = [b2] Then
            ListBox1.Selected(j) = True
        End If
    Next
End Sub

Private Sub UserForm_Initialize()

With ListBox1
.RowSource = "A1:G96"
.ColumnHeads = False
.ColumnCount = 6
.ColumnWidths = "30;60;50;110;60"
.RowSource = "A1:G" & Cells(Rows.Count, "B").End(xlUp).Row
End With


End Sub

hocam bendeki inittialize bu şekilde verdiğiniz kodları nereden itibaren eklemeliyim?

 

[hamitcan]

Böyle deneyin.

Private Sub UserForm_Initialize()
    x = Cells(Rows.Count, "B").End(xlUp).Row
    With ListBox1
        .ColumnHeads = False
        .ColumnCount = 6
        .ColumnWidths = "30;60;50;110;60"
        .RowSource = "A1:G" & x
        For j = 0 To x - 1
            If .List(j, 1) = [b2] Then
               .Selected(j) = True
            End If
        Next
    End With
End Sub

 

[bilisim2010]

Böyle deneyin.

Private Sub UserForm_Initialize()
    x = Cells(Rows.Count, "B").End(xlUp).Row
    With ListBox1
        .ColumnHeads = False
        .ColumnCount = 6
        .ColumnWidths = "30;60;50;110;60"
        .RowSource = "A1:G" & x
        For j = 0 To x - 1
            If .List(j, 1) = [b2] Then
               .Selected(j) = True
            End If
        Next
    End With
End Sub

hocam bu verdiğiniz kod tek başına işe yaramıyor size seçtiğim koduda yolluyorum belki bir fikir oluşur aklınızda sanırım bu kodlarımda bir sıkıntı var cells listboxu sürekli 1. satıra döndürüyor


Private Sub ListBox1_Click()

Cells(ListBox1.ListIndex + 1, 2).Select
TextBox3.Text = Cells(ActiveCell.Row, "b")
TextBox4.Text = Cells(ActiveCell.Row, "f")
TextBox7.Text = Cells(ActiveCell.Row, "E")
TextBox2.Text = Cells(ActiveCell.Row, "C")
UserForm28.TextBox1.Text = Cells(ActiveCell.Row, "b")
UserForm28.Show
toplam = 0
For i = 1 To ListBox1.ListCount
toplam = toplam + Val(ListBox1.List(i - 1))
Next i
TextBox6 = toplam

End Sub

 

[hamitcan]

Sorunun bu koddan kaynaklı olduğunu düşünmüyorum ama yine de dosyanızı görmek de fayda var.