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
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
RSS nejnovější články