Her kayıtta Listboxun aşağı kayması

[ademb28]

Her Giriş-Çıkış kayıt edildiğinde Listbox aşağı kaymaktadır. Sabitlenebilmesi için kodlarda nasıl bir değişikliğe gidilmelidir. Şimdiden teşekkürler.

Private Sub ListBox1_Click()
Dim a As Integer
For a = 0 To 17
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
ComboBox1.Clear 'Combobox semildiğinde tüm alnlar siler
For i = 12 To Range("a65535").End(3).Row
ComboBox1.AddItem Cells(i, 2)
Next i

ListBox1.ColumnCount = 18
ListBox1.ColumnWidths = 30
ListBox1.RowSource = "c12:T" & Sheets("Depo").[a65536].End(3).Row

End Sub

 

[Orion1]

Userformun initialize olayına aşağıdaki kodu yazınız.

ListBox1.IntegralHeight = False

 

[ademb28]

Teşekkür ederim. Sorunum çözüldü. Bilginize, emeğinize sağlık.