listbox; textbox ilişkisi

[ttrance]

merhaba arkadaşlar

Private Sub UserForm_Activate()
For x = 1 To Sheets("SAYFA4").[A65536].End(3).Row
If WorksheetFunction.CountIf(Sayfa4.Range("A3:A" & x), Sayfa4.Cells(x, 1)) = 1 And Sayfa4.Cells(x, "I") <> "x" Then
ListBox1.AddItem Sheets("SAYFA4").Cells(x, 1)
ListBox1.Enabled = True
CommandButton5.Visible = False
CommandButton6.Visible = False
End If
Next
End Sub

Private Sub ListBox1_Change()
a = ListBox1.ListIndex
TextBox1.Text = Sheets("SAYFA4").Cells(a + 1, 1)
TextBox2.Text = Sheets("SAYFA4").Cells(a + 1, 2)
TextBox3.Text = Sheets("SAYFA4").Cells(a + 1, 3)
TextBox4.Text = Sheets("SAYFA4").Cells(a + 1, 4)
End Sub

listbox'da excel satırlarında bulunan boşlukları gostermemeyi başardım..
fakat textbox "listindex"e gore işlem yaptıgı için boşlukları da gosteriyor. bunu nasıl onleyebilirim...

kolay gelsin

 

[Levent Menteşoğlu]

Listboxa yüklerken boşlukları pas geçerseniz sayfa ile uyumu bozmuş olursunuz. Bu durumda da listindex değeri sayfadan veri almak için kullanılamaz. Alternatif çözüm için dosyanızı eklermisiniz.

 

[ttrance]

hemen hocam..

 

[Levent Menteşoğlu]

Listboxtaki kodu aşağıdaki ile değiştirin.

Private Sub ListBox1_Change()
a = [a1:a65536].Find(ListBox1).Row
TextBox1.Text = Sheets("SAYFA4").Cells(a, 1)
TextBox2.Text = Sheets("SAYFA4").Cells(a, 2)
TextBox3.Text = Sheets("SAYFA4").Cells(a, 3)
TextBox4.Text = Sheets("SAYFA4").Cells(a, 4)
End Sub

 

[ttrance]

hocam hakkını nasıl odeyecegiz senin......

sagolasın..