HammerJohn
Gebruiker
- Lid geworden
- 27 apr 2016
- Berichten
- 173
Ik wil meerdere cellen met een msgbox, uitlichten als je op de cel klikt. Ik heb nu voor iedere cel
apart de opdracht gemaakt, dat werkt goed maar ik heb 1 sheet met 6 cellen en 1 met 50 cellen.
Kan de onderstaande code dus éénvoudiger, cellen staan in zelfde kolom.
apart de opdracht gemaakt, dat werkt goed maar ik heb 1 sheet met 6 cellen en 1 met 50 cellen.
Kan de onderstaande code dus éénvoudiger, cellen staan in zelfde kolom.
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Cells.Address = "$C$6" Then
MsgBox Range("C6").Value
End If
If ActiveCell.Cells.Address = "$C$8" Then
MsgBox Range("C8").Value
End If
If ActiveCell.Cells.Address = "$C$10" Then
MsgBox Range("C10").Value
End If
End Sub