RE: Excel - VBA - Cells.Find

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 27. 01. 2003, 12:30 CET


Zdar a silu KaCe, dna 27.01.2003 si napisal(a):

> Dobry den,
> potreboval bych od vas "znalejsich" poradit s timto:
> 
> potrebuji vytvorit makro, ktere by mi v tabulce seznamu zakazniku
vyhledalo
> jmeno a pomoci ActiveCell.Offset (0,-1) vracelo prislusne cislo zakaznika
v
> predchazejicim sloupci.
> 
> K vyhledavani pouziju:
> 
> Cells.Find(What:="ZAKAZNIK", After:=ActiveCell, LookIn:=xlValues, LookAt:=
_
>         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> MatchCase:=False) _
>         .Activate
> 
> Zakaznik (cast jmena) se muze vyskytovat v tabulce nekolikrat, takze pokud
> budu chtit ziskat vsechna jeho cisla a nebudu na konci tabulky pouziju: 
> Cells.FindNext(After:=ActiveCell).Activate
> 
> S cim si ale nevim rady je jak osetrit to pokud zadam jmeno zakaznika,
ktere
> se v tabulce vubec nevyskytuje.
> Kdyz pouziji v excelu vyhledavani a zadam jmeno ktere v tab. neni, tak mi
to oznami hlaska:
> "Aplikace MS Excel nemuze najit hledana data.....bla,
> bla..........zkontrolujte zadana data a zkuste to znovu."
>  Pokud ale vyhledavam pomoci makra:
> 
> Cells.Find(What:="NEEXISTUJICI_ZAKAZNIK", After:=ActiveCell,
> LookIn:=xlValues, LookAt:= _
>         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> MatchCase:=False) _
>         .Activate,
> 
> tak mi to vyhodi:
> 
> "Run-time error '91':
> Object variable or With block variable not set."
> 
> - v mem pripade bych ale potreboval, aby to - pokud zakaznik neexistuje,
> vratilo cislo zakaznika = 0.
> 
> 
> Predem diky vsem za rady.
> 
> KaCe
> --
> cecil@volny.cz
> 
> 
bude ti to stacit takto???
Set foundcell =
Workbooks("subor.xls").Worksheets(mySheet).Columns("A:A").Find(mykey)
    If foundcell Is Nothing Then
        bunka.AddComment ("nicht gefunden")

alebo pred vyhladavanie daj:
on error resume next
a za vyhladanie toto:
if err.number >0 then
 niekam napis nulu
err.clear
end if


s pozdravom
AleXXX
-- 

Remember: there are no strangers in the world,
only friends who have not yet met.



This archive was generated by hypermail 2.1.2 : 27. 01. 2003, 12:30 CET