Macro onderbreken

[Oude leerling]

Hallo,

Ik heb ondertussen al heel wat geleerd op dit forum, maar hier kom ik niet uit.

In een deel van een programma heb ik een If-functie welke kijkt of er wat in een bepaalde cel staat.
Als er niets in staat moet het programma aldaar stoppen .
Ik wil dan in die betreffende cel wat kunnen invullen.
Als ik dan daarna op enter druk moet de macro doorgaan waar hij gestopt is. (Of opnieuw bij de If-functie starten)
Na de If-functie zitten nog verscheidene andere bewerkingen.
Is dit te realiseren??

Vriendelijke groetjes,

Jaap

 

[snb]

sub snb()
 if cells(5,5)="" then cells(5,5)=inputbox("voer je pincode in !!")
end sub

PS. Je zou na ca. 1 1/2 jaar kunnen weten dat een vraag stellen zonder voorbeeldbestand en eventuele code niet echt 'helpersvriendelijk' is.

 

[Oude leerling]

Sorry , je hebt helemaal gelijk.




Hier boven staat ook nog een deel van de macro

Select Case Range("N9").Value
Case 13, 26, 39
Sheets("Beheer wisselgeld").Select

 For Each cl In Range("I10:I67" & Cells(Rows.Count, 1).End(xlUp).Row)
       If cl > 0 And IsNumeric(cl) Then
       cl.Select
 End If
 Next
       If ActiveCell.Offset(0, 1) = "" Then
       ActiveCell.Offset(0, 1).Select
       MsgBox "Wilt u de wisselgeld voorraad tellen en noteren!!"
           
 End If
       End Select

Alhier zou dan dus de macro moeten stoppen om het wisselgeld te kunnen noteren.
Als ik dan op "Enter" klik ,of wat anders, moet hij doorgaan met de onderstaande bewerkingen
of terugspringen naar de vraag: If ActiveCell.Offset(0, 1) = "" Then

Ook hier staan nog meer opdrachten !!




Groetjes Jaap

 

[snb]

Hallo @nooitteoudomteleren

Na 1 1/2 jaar mag je ook bekend zijn met het gebruik van codetags rondom je code (zie mijn vorige bericht en hieronder:
En gebruik nooit 'Select' of 'Activate' in VBA.

sub snb()
  Select Case Range("N9").Value
  Case 13, 26, 39
    For Each cl In Sheets("Beheer wisselgeld").Range("I10:I67" & Cells(Rows.Count, 1).End(xlUp).Row)
      If cl > 0 And IsNumeric(cl) and cl.offset(,1)="" Then cl.offset(,1) = Inputbox("Wilt u de wisselgeld voorraad tellen en noteren")
    Next
  end select
End Sub

of

sub snb()
  if Range("N9").Value mod 13=0 then
    For Each cl In Sheets("Beheer wisselgeld").Range("I10:I67" & Cells(Rows.Count, 1).End(xlUp).Row)
      If cl > 0 And IsNumeric(cl) and cl.offset(,1)="" Then cl.offset(,1) = Inputbox("Wilt u de wisselgeld voorraad tellen en noteren")
    Next
  end if
End Sub

 

[Oude leerling]

Ik ben geholpen.
Code's werken perfect. (ook die met "Select")
Waarom eigenlijk geen Select gebruiken in VBA

Bedankt en de groetjes van Jaap