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

• #28261 Delila_1 veterán Mittu88 #28245

  Új Válasz 2015-08-27 14:56:03 #28261

  Ú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 Mittu88 #28245 üzenetére

  Ez a makró akkor fut hibára, ha az inputboxban olyan számot kap, ami nem szerepel az A oszlopban.
  Nyilván át tudod alakítani a saját célodra.

  Sub hiba()
  Dim lel, szam As Integer
  
  Innen:
  On Error GoTo 0
  szam = Application.InputBox("Kérem az egész számot", "Szám bekérése", , , , , , 1)
  
  lel = Application.Match(szam, Columns(1), 0)
  If VarType(lel) = vbError Then
  MsgBox "Újra!", vbExclamation
  GoTo Innen
  End If
  
  MsgBox "A makró többi része"
  
  End Sub

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