Reset multiple dependent drop down boxes in a spread sheet.

[Tarnz]

I'm totally new to VBA and this is my first attempt which is failing due to I think they all try to run and overlap causing the wrong boxes to reset. Please can someone advise me how to correct this I have searched so many threads trying to find and answer.


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A226:A290")) Is Nothing Then
ActiveCell.Offset(0, 6).Range("A1").Value = "Please Select"

End If

If Not Intersect(Target, Range("G226:G290")) Is Nothing Then
ActiveCell.Offset(0, 1).Range("A1").Value = "Please Select"

End If

If Not Intersect(Target, Range("R226:R290")) Is Nothing Then
ActiveCell.Offset(0, 1).Range("A1").Value = "Please Select"

End If

If Not Intersect(Target, Range("A302:A310")) Is Nothing Then
ActiveCell.Offset(0, 6).Range("A1").Value = "Please Select"

End If

If Not Intersect(Target, Range("G302:G310")) Is Nothing Then
ActiveCell.Offset(0, 1).Range("A1").Value = "Please Select"

End If

End Sub

 

[SunnyAlv]

Is it only cell “A1” or other cells that you want to change the value to “Please Select” if Target is not empty?

because this code makes me quite ambiguous

ActiveCell.Offset(0, 1).Range("A1").Value

 

[Tarnz]

Is it only cell “A1” or other cells that you want to change the value to “Please Select” if Target is not empty?

because this code makes me quite ambiguous

no I'm not changing the actual A1 cell See image I am trying to get A226 if it has a change to rest cell G226 then is G226 has a change it will then reset H226. the first will work but when i put in the others it gets confused and resets B226 and L226. I have rows and rows of data that needs to reset also.