Funkcija u Excellu

[terminator]

Naime imam problem sa funckijom find() u excelu.
Imam redne brojeve od 1 do npr. 20 u stupcu A
imam neke stringove u stupcu B, isto ih ima koliko stavaka u stupcu A.
I sad trebao bih funkciju koja traži string koji upišem npr u D1 u cijelom stupcu B i vraća 1 ili DA ako je nađen, i 0 ili NE ako nije nađen u tom stupcu.
Ako nije nađen treba dodati string u stupac B, povećati broj stavaka (znači ako je bilo 20 i nije nađeno, sada će biti 21 i u stupcu A i B) i sortirati uzlazno.
Ako je netko voljan pomoći, bio bih zahvalan.

[gremlin33]

evo, nesto sam sprckao nabrzinu, kod se da srediti još ali tebi ostavljam
u koloni a imas stringove koje trazis, u c1 upisujes string koji trebas naci u koloni a

ako ima kakvih nejasnoca tu sam

Sub trazi()
Dim strUnos As String
strUnos = Range("c1").Value

With Worksheets("Sheet2").Range("a1:a500")

Set c = .Find(strUnos, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c.Value = strUnos Then
'ActiveCell.Font.Color = 85234
c.Font.Color = RGB(253, 19, 25)
Else
Set c = .FindNext(c)
End If

Loop While Not c Is Nothing And c.Address <> firstAddress
If Not c Is Nothing Then
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Value = strUnos
End If
Else

End If
End With
End Sub

[terminator]

napravio sam novi macro i vraća mi u pozivu funkcije na tablici: "That name is not valid"

[gremlin33]

e to nije funkcija neg sub
pokrećeš je na klik gumba ili tools -> macro

znaci

Sub Pretrazi ()

kod....

end sub

[gremlin33]

malo sam izmijenio kod,,evo attacha

[terminator]

e super, radi ko urica
hvala