U stvari hteo sam da od niza imena koji se nalazi u koloni C, izdvojim celije koji u svojim vrednostima sadrže deo reči koji sam , recimo, uneo u TextBox1 i smesti ga u ListBox1 (bez obzira na mala i velika slova) a i ujedno bi trebao sam , tog trenutka, da izbroji redove koje treba proveravati
npr. niz u koloni C se sastoji iz imena
1 Milana
2 Milovana
3 Ana
4 Steva
5 Mika
6 Stevana
7 Sladjana
8 Milica
uneta vrednost u TextBox1 je "ANA"
a izdvojeni niz u ListBox1 trebao bi biti
1 Milana
2 Milovana
3 Ana
6 Stevana
7 Sladjana
Pa sam to rešio na ovaj način, malo je komplikovano, ali radi.
Code:
Private Sub TextBox1_Change()
Dim A As Integer, B As Integer, C As Integer, I As Integer, Y As Integer, Zniz1 As String, Zniz2 As String
A = 1
frmIme.ListBox1.Clear
Zniz1 = frmIme.TextBox1.Value
Do Until Sheets("1").Range("C" & A) = ""
Zniz2 = Sheets("1").Range("C" & A)
B = Len(Zniz1)
C = Len(Zniz2) - B + 1
Y = 0
For I = 1 To C
If Mid(LCase(Zniz2), I, B) = LCase(Zniz1) And Y = 0 Then
Y = Y + 1
frmIme.ListBox1.AddItem A & " " & Sheets("1").Range("C" & A) 'PRIKAZUJE REDNI BROJ ĆELIJE I IZDVOJENO IME
End If
Next I
A = A + 1
Loop
End Sub
U svakom slučaju hvala na trudu.
[Shadowed: dodati [code] tagovi.]
[Ovu poruku je menjao Shadowed dana 19.11.2005. u 14:10 GMT+1]