Verİ Getİr

[EmirhanG]

merhaba arkadaşlar, ekteki dosyayı inceler bana yardımcı olursanız memnun olurum.teşekürler

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub TextBox1_Change()
ListBox2.ColumnCount = 9
ListBox2.Clear
For sut = 1 To [a65536].End(xlUp).Row
If Range("a" & sut) Like "*" & TextBox1 & "*" Then
ListBox2.AddItem
ListBox2.List(s, 0) = Range("a" & sut)
ListBox2.List(s, 1) = Range("b" & sut)
ListBox2.List(s, 2) = Range("c" & sut)
ListBox2.List(s, 3) = Range("d" & sut)
ListBox2.List(s, 4) = Range("e" & sut)
ListBox2.List(s, 5) = Range("f" & sut)
ListBox2.List(s, 6) = Range("g" & sut)
ListBox2.List(s, 7) = Range("h" & sut)
ListBox2.List(s, 8) = Range("I" & sut)
s = s + 1
End If
Next
End Sub

 

[EmirhanG]

merhabalar sayın V.Basic For Applications ilginiz için teşekürler herşey iyide textbox a veri girdiğimde getirilen verilerin ilk satırındada birinci satırın gelmesini istiyorum yani "müşteri, satış, iade,....."
nin bulunduğu satırın gelen verilerin başında sabit bulunsun istiyorum...teşekürler mümkünse tabi......

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.