Funkcija FIND

Pomoč pri izdelavi makrov
Odgovori
eBrane
Prispevkov: 19
Pridružen: To Jun 01, 2010 12:02 am

Funkcija FIND

Odgovor Napisal/-a eBrane »

Pozdravljeni,

V Excelu želim najti stolpec, kjer je neko besedilo (npr. imena).

To sem rešil tako:

Set c = Range("A1:AX3").Find(ime)
stolpecIme=c.Column

Imam pa težavo, ko ni celice z besedilom "ime".
Poskusil sem različne variante (ena je navedena spodaj), vendar mi ne uspe.
If c = False Then
MsgBox "Napačna datoteka! Poskusi ponovno.", vbCritical
End If

Prosim torej za pomoč.

Najlepša hvala!
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Funkcija FIND

Odgovor Napisal/-a admin »

Pozdravljeni,

če besedila Excel ne najde, postavi vrednost spremenljivke c na nično vrednost; torej Nothing. Zatorej je programska koda sledeča:

Koda: Izberi vse

If (c Is Nothing) Then
  MsgBox "Napačna datoteka! Poskusi ponovno.", vbCritical
Else
  stolpecime = c.Column
End If
lp,
Matjaž Prtenjak
Administrator
eBrane
Prispevkov: 19
Pridružen: To Jun 01, 2010 12:02 am

Re: Funkcija FIND

Odgovor Napisal/-a eBrane »

Še enkrat se vam zahvaljujem za odgovor.
Odgovori