MS Excel

Téma: Vyhledat

Zaslal/a Niffki 1.11.2010 10:05

Zdravím.

Řeším ted toto:

Potřebuji makro, které mi vyhledá hodnotu v buňce A1 ve sloupci D.

Pokud tam daná hodnota bude tak se zobrazí msgbox "ANO" a pokud tam nebude tak se zobrazí "NE".

Zkousím to pomocí match ale hazí to chybu pokud tam ta hodnota není.

Pomůžu mi někdo prosím?
N.

Zaslat odpověď >

Niffki(1.11.2010 10:13)#002937

Sub vyhledej()
Dim hledat As String

On Error GoTo 1
hledat = Application.WorksheetFunction.Match(Range("A1").Value, Range("D:D"), 0)

MsgBox hledat
Exit Sub
1:
MsgBox "Zadaná hodnota není v seznamu", vbInformation

End Sub
zatím to mám zapsané takhle ale tento zápis je podle mě nepřijatelný.

Spíš potřeboval něco i jako když tam ta hodnota nebude tak udělej to a to jinak to a to...citovat

Poki(2.11.2010 9:12)#002958

slo by to takto:Sub vyhledej()
CO = Range("c1").Value
On Error Resume Next
Hledat = Range("a:a").Find(CO, , , xlWhole).Address
If Err.Number = 91 Then
MsgBox "NENALEZENO"
Exit Sub
End If
MsgBox "Hodnota nalezena na adrese: " & Hledat
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.