listbox şartılı veri görüntüleme

[bydogannn67]

Merhabalar,

aşağıdaki kodla Liste sayfasındaki verileri görüntülüyorum fakat H sütünündaki sadece inada yazanları görüntülemek istiyorum nasıl bir uyarlama yapabiliriz yardımcı olabilirmisiniz

Private Sub TextBox26_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox2
.Clear
.ColumnCount = 2
.ColumnWidths = "140,50,0,0,0,0"
End With
For sat = 2 To Sheets("LİSTE").Cells(65536, "b").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "b"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox26, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
ListBox2.AddItem
ListBox2.List(s, 0) = Sheets("LİSTE").Cells(sat, "b")
ListBox2.List(s, 1) = Sheets("LİSTE").Cells(sat, "c")
ListBox2.List(s, 2) = Sheets("LİSTE").Cells(sat, "D")
ListBox2.List(s, 3) = Sheets("LİSTE").Cells(sat, "E")
ListBox2.List(s, 4) = Sheets("LİSTE").Cells(sat, "F")
ListBox2.List(s, 5) = Sheets("LİSTE").Cells(sat, "G")
s = s + 1
End If: Next
End Sub

 

[Orion1]

Merhabalar,

aşağıdaki kodla Liste sayfasındaki verileri görüntülüyorum fakat H sütünündaki sadece inada yazanları görüntülemek istiyorum nasıl bir uyarlama yapabiliriz yardımcı olabilirmisiniz

Private Sub TextBox26_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox2
.Clear
.ColumnCount = 2
.ColumnWidths = "140,50,0,0,0,0"
End With
For sat = 2 To Sheets("LİSTE").Cells(65536, "b").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "b"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox26, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
ListBox2.AddItem
ListBox2.List(s, 0) = Sheets("LİSTE").Cells(sat, "b")
ListBox2.List(s, 1) = Sheets("LİSTE").Cells(sat, "c")
ListBox2.List(s, 2) = Sheets("LİSTE").Cells(sat, "D")
ListBox2.List(s, 3) = Sheets("LİSTE").Cells(sat, "E")
ListBox2.List(s, 4) = Sheets("LİSTE").Cells(sat, "F")
ListBox2.List(s, 5) = Sheets("LİSTE").Cells(sat, "G")
s = s + 1
End If: Next
End Sub

Örnek dosyanızı eklerseniz daha çabuk yardım alabilirsiniz.

 

[bydogannn67]

hocam dosyada şirket bilgileri var

istediğim gayet basit aslında Liste sayfasında listboxta B-C-D-E-F-G sütünundakileri görüntülüyorum


ama sadece H sütünunda İNADA yazısı olanlar gözüksün istiyorum

 

[vardar07]

Kırmızılı yeri H yapıp TextBox26 ya inada yazıp denermisiniz.

deg1 = UCase(Replace(Replace(Cells(sat, [COLOR="Red"][B]"b"[/B][/COLOR]), "ı", "I"), "i", "İ"))

 

[bydogannn67]

..................................