Checklist if go to

[Juuske]

Ik ben een checklist aan het maken. Ik heb via voorwaardelijke opmaak aangegeven if 1 is het groen if 0 dan wordt de checkbox een uitroepteken.
Echter nu wil ik wanneer deze checkbox een 0 is dat is naar een andere regel gaat om opmerkingen te geven. Er moet een opmerking opgegeven worden, anders wil ik een foutmelding dat er iets ingevuld moet worden!

Enig idee hoe ik dit kan doen?

Ik heb de excel bestand toegevoegd.

 

[OctaFish]

Je kunt een macro aan het werkblad hangen die controleert wat de waarde is in de kolom.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column = 1 Then
            If CStr(.Value) = "0" Then .Offset(0, 3).Activate
        End If
    End With
End Sub

Ik laat de code nu 3 kolommen verspringen; je kunt daar uiteraard wat anders van maken.

 

[Joske2000]

Verdergaand met de oplossing van Michel :
Met een inputbox

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column = 1 Then
        MsgBox "Value = 0  Gelieve commentaar in te brengen", vbOKOnly
        comm = InputBox("COMMENTAAR")
            If CStr(.Value) = "0" Then .Offset(0, 3).Value = comm
        End If
    End With
End Sub

Joske

 

[Juuske]

Werkt helemaal super. Dank jullie wel.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column = 1 Then
        MsgBox "Value = 0  Gelieve commentaar in te brengen", vbOKOnly
        comm = InputBox("COMMENTAAR")
            If CStr(.Value) = "0" Then .Offset(0, 3).Value = comm
        End If
    End With
End Sub

Joske[/QUOTE]

 

[OctaFish]

Doe jezelf een lol, en verander je code naar:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim comm  As String
    With Target
        If .Column = 1 Then
            comm = InputBox("Gelieve commentaar in te brengen", "Value = 0", "COMMENTAAR")
            If CStr(.Value) = "0" Then .Offset(0, 3).Value = comm
        End If
    End With
End Sub

Die extra msgbox heb je namelijk niet nodig in mijn oogjes. Scheelt toch weer 50% aan muisklikken.

En: Joske, Juuske, ik vind het maar verwarrend

 

[Juuske]

Helemaal gelijk!. Na het paar keer getest te hebben was de extra msgbox inderdaad overbodig.. en heb alleen jouw code gebruikt dat is naar de juiste regel springt.