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

• #25403 alfa20 senior tag

  Új Válasz 2015-02-10 13:28:37 #25403

  Ú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

  

  alfa20

  senior tag

  Sziasztok,

  Van egy makróm, ami egy inputbox-ból kéri be mit szeretne az illető, az a bajom, hogy ha a "Cancel"-re nyomnak, akkor azt is rossz válasznak veszi, hogy még is ki tudjanak lépni, nem túl elegáns modón, de ha a rossz válaszok elérik a 2-őt akkor kilép a programból.

  Be lehet szúrni egy parancsot amivel a "cancel"-re kilép?

  Sub leosztás()
  
  Dim usor As Long, usor2 As Long, usor3 As Long, usor4 As Long
  Dim uszlp As Integer, RvA As String, regi As String, ujful As String
  Dim RV As Byte
  
  RV = 0
  
  10
  If RV = 2 Then Exit Sub
  
  RvA = InputBox("Áttárolást vagy Rendelés szeretnél leosztani?" & vbCrLf & "(A/R)", "Válassz leosztást!")
  If RvA = "a" Or RvA = "A" Or RvA = "r" Or RvA = "R" Then
  GoTo 20
  Else
  MsgBox ("Rossz válasz!")
  RV = RV + 1
  GoTo 10
  End If
  20
  Application.ScreenUpdating = False
  ....
  End Sub()

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