Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: probleem met Inputbox cancel

  1. #1
    Vraag is opgelost

    probleem met Inputbox cancel

    Hallo een klein probleempje.

    als ik bij de onderstaande Inputbox op cancel klik of op het kruisje krijg ik een foutmelding in de sn4 regel
    ik zou graag gewoon naar het einde van de Sub gaan.

    Code:
    Retry2:
    
    MyValue1 = InputBox("Naam")
    
    Sheets("ww").Range("A1").Value = MyValue1
    iMens4 = ThisWorkbook.Sheets("ww").Range("A1")
    sn4 = Application.WorksheetFunction.VLookup(iMens4, Sheets("ww").Range("B:C"), 1, False)
    NAAM = sn4
    
        
        If MyValue1 <> NAAM Then
            If MsgBox("Het door u opgegeven Naam is fout!" & vbCrLf & vbCrLf & "Wilt u opnieuw proberen?", vbCritical + vbRetryCancel, "Naam  Fout") = vbRetry Then GoTo Retry2
            Exit Sub
        End If
    Het is vast niet moeilijk ik denk alleen te moeilijk.

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    In je stukje code is niet te zien wat NAAM en sn4 zijn en dan is het lastig maar probeer dit eens:
    Code:
    Retry2:
        MyValue1 = InputBox("Naam")
        NAAM = sn4
        
        If MyValue1 <> NAAM Then
            If MsgBox("Het door u opgegeven Naam is fout!" & vbCrLf & vbCrLf & "Wilt u opnieuw proberen?", vbCritical + vbRetryCancel, "Naam  Fout") = vbRetry Then GoTo Retry2
        Else
            Sheets("ww").Range("A1").Value = MyValue1
            iMens4 = ThisWorkbook.Sheets("ww").Range("A1")
            sn4 = Application.WorksheetFunction.VLookup(iMens4, Sheets("ww").Range("B:C"), 1, False)
        End If
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Controleer in de code of A1 <> ""
    Daarna controleren of sn4 een waarde krijgt, maar dat kan je beter met:

    Code:
    sn4 = application.match(iMens4, Sheets("ww").columns(2),0)
    if isnumeric(sn4) then ......
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    het probleem is gewoon dat als ik de Inputbox toch niet wil gebruiken dat hij een fout geeft plaats van naar het einde van de sub te gaan

  5. #5
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Quote Origineel gepost door mrnico Bekijk Bericht

    Het is vast niet moeilijk ik denk alleen te moeilijk.
    Ik vermoed het ook.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    If Then Else

    Code:
    If MsgBox("Het door u opgegeven Naam is fout!" & vbCrLf & vbCrLf & "Wilt u opnieuw proberen?", vbCritical + vbRetryCancel, "Naam  Fout") = vbRetry Then GoTo Retry2 Else exit Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren