Need help with modifying a code.

[Pol04]

I have this code that brings up a comment box in column B (to type something that would show in column B) whenever I type something in column A. Now I need this in a domino effect up until column D.

This is the code:

Private Sub Worksheet_Change(ByVal Target As Range)


Dim myComment As String
'
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
myComment = InputBox("Please enter data for column B, otherwise you entry will be deleted", "ENTER COMMENT")
If Len(myComment) > 0 Then
Target.Offset(0, 1) = myComment
Else
Target.ClearContents
End If
Application.EnableEvents = True
End If

End Sub





See below for sample. I need similar message when I input data in that box but asking for entry to be made for column C. Hope this makes sense.

[/URL][/IMG]

 

[sericom]

You're clearing the Target if the comment is blank, what do you want to happen if 1,2 or 3 comments are blank?

 

[Pol04]

You're clearing the Target if the comment is blank, what do you want to happen if 1,2 or 3 comments are blank?

Yep it would be erased so they have to input the needed data or just put n/a. the idea is to remind them that all fields need entries.

 

[sericom]

So if they enter comments for B and C but not D, you'd clear the Target and comments in B & C?

 

[Pol04]

So if they enter comments for B and C but not D, you'd clear the Target and comments in B & C?

Hi Sericom. Ideally no. So A is dependent on B. B dependent on C. C dependent on D. But if it is easier and less complicated to just clear all then that would be fine as well.