vraag over cel blokkeren

[ronnie123]

hallo forum leden
in de volgende vraag staat een antwoord van ginger bij #10
http://www.helpmij.nl/forum/showthread.php?t=365860
weet iemand hoe ik dit kan aan passen zodat wat in kolom A staat bij mij in kolom P komt
hoop dat iemand mij kan helpen
grt ronnie

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRij As Long
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    lRij = Target.Row
    Select Case Target.Column
        Case 16
            If Target.Value = "" Or Target.Value = "nee" Then
                If MsgBox("Let op je gaat de waarden in cellen Q" & lRij & ":" & "S" & lRij & " verwijderen!" & _
                    vbCrLf & "Is dat de bedoeling?", vbYesNo, "Melding") = vbYes Then
                    Target.Value = "nee"
                    Cells(lRij, 17).Resize(, 3).Value = ""
                Else
                    Target.Value = "ja"
                    GoTo Einde
                End If
            End If
        Case 17 To 19
            If Cells(lRij, 16).Value = "nee" Then
                MsgBox "Invoer niet toegestaan! (zet eerst cel P" & lRij & " op 'ja')", vbOKOnly, "Stop"
                Target.Value = ""
            End If
    End Select
Einde:
    Application.EnableEvents = True
End Sub

 

[ronnie123]

hallo Rudi
bedankt voor je reactie het werkt prima
kan weer verder puzelen
groetjes ronnie