Új hozzászólás Aktív témák

• #2767 Delila_1 veterán csaszizoltan #2766

  Új Válasz 2017-03-15 12:54:56 #2767

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz csaszizoltan #2766 üzenetére

  Dim sor As Variant

sor = Application.Match("keresett_érték", Columns(1), 0)

If VarType(sor) = vbError Then
MsgBox "Nem szerepel az A oszlopban a keresett érték", vbCritical, "Hiba"
On Error GoTo 0
Exit Sub
End If

  Fontos, hogy a változót, aminek az Application.Match függvénnyel akarsz értéket adni, Variant típusúként deklaráld.

Új hozzászólás Aktív témák