Message box

[verluc]

Hello,

Mocht onderstaande code ontvangen van HSV, dewelke voldoet aan mijn verlangens.
Echter wil ik er nog één puntje aan toevoegen, namelijk dat wanneer er bijvoorbeeld
staat : Cel A229 invullen, er na het drukken van de OK toets er ook onmiddelijk naar
die cel word gesprongen.
Heeft iemend hier een idee over ?
Bedankt op voorhand.

Private Sub Worksheet_Activate()
Dim cl As Range
For Each cl In Columns(4).SpecialCells(2)
 If cl.Offset(, -3) = vbNullString Then MsgBox "Cel A" & cl.Row & " invullen"
  Next cl
End Sub

 

[Haije]

zie de toevoeging in rood

Private Sub Worksheet_Activate()
Dim cl As Range
For Each cl In Columns(4).SpecialCells(2)
 If cl.Offset(, -3) = vbNullString Then MsgBox "Cel A" & cl.Row & " invullen"[COLOR="#FF0000"]:cl.Offset(, -3).select[/COLOR]
  Next cl
End Sub

 

[Cobbe]

Nog een mogelijkheid:

Private Sub Worksheet_Activate()
Dim cl As Range
For Each cl In Columns(4).SpecialCells(2)
 If cl.Offset(, -3) = vbNullString Then MsgBox "Cel A" & cl.Row & " invullen": Cells(cl.Row, 1) = InputBox(" Invullen van  :" & Cells(cl.Row, 1))
Next cl

End Sub

 

[Haije]

@Cobbe,

die van jou vind ik mooier!!:thumb:

 

[Cobbe]

Haha merci !!
Maar kan een beetje praktischer:

Private Sub Worksheet_Activate()
Dim cl As Range
For Each cl In Columns(4).SpecialCells(2)
 If cl.Offset(, -3) = vbNullString Then Cells(cl.Row, 1) = InputBox("Cell A" & cl.Row & " Invullen")
Next cl

 

[verluc]

Bedankt beiden; deze oplossingen lijken even toepasselijk voor mijn probleem.
Nogmaals bedankt.

 

[huijb]

Beetje overdreven om daar nog een topic voor aan te maken. Je had gewoon hier moeten blijven http://www.helpmij.nl/forum/showthread.php/789619-Message-box Bovendien moet je stoppen met onnodig quoten. Wanneer je direct reageert na een bericht hoef je niet te quoten.