Arkadaşlar Aşağıdaki makro örneğinde textboxa karaktere göre listbox a sadece B sutunun alıyor. Bunun C sununuda alacak şekilde ayarlamamız mümkün mü? saygılar
KOD:
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1 = Evaluate("=büyükharf(""" & TextBox1 & """)")
TextBox1 = Evaluate("=upper(""" & TextBox1 & """)")
Dim MyRng As Range, sira
ListBox1.Clear
ListBox2.Clear
If TextBox1 <> Empty Then '1111
For Each MyRng In Sheets("sayfa1").Range("B2:B" & Sheets("sayfa1").Range("B65536").End(xlUp).Row)
If UCase(MyRng) Like UCase(TextBox1 & "*") Then '2222
sira = MyRng.Row
If sira > 1 Then '3333
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("B2:B" & sira - 1), MyRng.Value) = 0 Then ListBox1.AddItem MyRng.Value
Else
ListBox1.AddItem MyRng.Value
End If '3333
End If '2222
Next
End Sub
KOD:
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1 = Evaluate("=büyükharf(""" & TextBox1 & """)")
TextBox1 = Evaluate("=upper(""" & TextBox1 & """)")
Dim MyRng As Range, sira
ListBox1.Clear
ListBox2.Clear
If TextBox1 <> Empty Then '1111
For Each MyRng In Sheets("sayfa1").Range("B2:B" & Sheets("sayfa1").Range("B65536").End(xlUp).Row)
If UCase(MyRng) Like UCase(TextBox1 & "*") Then '2222
sira = MyRng.Row
If sira > 1 Then '3333
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("B2:B" & sira - 1), MyRng.Value) = 0 Then ListBox1.AddItem MyRng.Value
Else
ListBox1.AddItem MyRng.Value
End If '3333
End If '2222
Next
End Sub