listbox a veri almak

[memduh]

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

 

[isakarakus]

merhaba,

bu kodlardaki B leri C yaparsaız sanırım hallolur.

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

aşağıdaki gibi

For Each MyRng In Sheets("sayfa1").Range("C2:C" & Sheets("sayfa1").Range("C65536").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("C2:C" & sira - 1), MyRng.Value) = 0 Then ListBox1.AddItem MyRng.Value

 

[memduh]

Sayın İsakarakus teşekkürler. Yalnız söylediğiniz yöntemle olmuyor. Daha doğrusu burda hem B Sutunun hende Csutununu yani her iki sutunuda Listbox1 e alacak şekilde bir kod çözümü varmı? diye sormuştum. Teşkkürler.