Messagebox als cursor in verkeerde kolom

[Henk Schepers]

Hallo helpers.
Ik zoek een code in vba die mij waarschuwd d.m.v een messagebox als de cursor in de verkeerde kolom staat en dan moet de macro direct stoppen. De cursor kan dan alsnog op de goede plaats gezet worden.
als de cursor wel in de goede kolom staat mag de macro verder gaan.

 

[Wigi]

Hiermee test je of de selectie zich in kolom A bevindt, of niet. Indien niet, stopt de macro.

If Selection.Column <> 1 Then Exit Sub

 

[Henk Schepers]

Hallo Wigi

Kan ik hier ook een messagebox aan toevoegen
Met een ok knop?
Hoe wordt het dan?

 

[Warme bakkertje]

If Selection.Column <> 1 Then MsgBox "Je staat in de verkeerde kolom !!", vbOKOnly: Exit Sub

 

[snb]

Waarom gebruikers lastigvallen met overbodige meldingen ?

Sub macro300()
  if activecell.column<>1 then
     cells(activecell.row,1).select
     exit sub
  End If
End Sub

 

[Henk Schepers]

bedankt warme bakkertje

Nogmaals bedankt warme bakkertje. Ik ga het vanmiddag uitproberen.

 

[Hoornvan]

snb,

Zit een foutje in de code, zie het rode.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Th[COLOR="Red"]e[/COLOR]n Cells(Target.Row, 1).Select
End Sub

De cursor springt inderdaad terug naar de eerste kolom maar dan heb je al wel wat in de cel geplaatst.

Zo sprint hij wel naar de eerste kolom.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column <> 1 Then Cells(Target.Row, 1).Select
End Sub

 

[snb]

Wim,

Klopt beide, bedankt voor je verbetering.
Ik heb de suggestie aangepast voor een gewone macro.

 

[Henk Schepers]

bedankt

Allemaal hartelijk bedankt voor jullie hulp
Ik heb de regel van warme bakkertje gebruikt en die werk prima.