Mutiple Intersect Ranges for same worksheet - Help!!

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

The below Macro copies a certain cell's contents over to the next page when
the range (B9:B18) is touched - copies a special note in E5 (of the same
page) to the following page - inserts in cell B6.

I want to do the same thing for my next range of cells in the same page
(B21:B28), but I need a different cell's contents to copy to the next page -
E18 (of same page) to next page cell B11.

Every time I try to combine the request for the same worksheet, I get an
error or it just doesn't work??

Thank you for any thoughts - Jenny

_____________________________________________________________________________


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B9:B16")) _
Is Nothing Then Exit Sub
Sheets("Interview Builder").Range("e5").Copy
Destination:=Sheets("Definition").Range("b6")

End Sub
 
I'm assuming the code is in the "Interview Builder" sheet module and the
cells you are copying are in this worksheet - so I didn't fully qualify the
copy from ranges.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B9:B16")) Is Nothing Then
Range("e5").Copy Destination:=Sheets("Definition").Range("b6")
ElseIf Not Intersect(Target, Range("B21:B28")) Is Nothing Then
Range("E18").Copy Destination:=Sheets("Definition").Range("B11")
End If
End Sub
 
Thank you so much - I worked like a CHAMP!!

JMB said:
I'm assuming the code is in the "Interview Builder" sheet module and the
cells you are copying are in this worksheet - so I didn't fully qualify the
copy from ranges.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B9:B16")) Is Nothing Then
Range("e5").Copy Destination:=Sheets("Definition").Range("b6")
ElseIf Not Intersect(Target, Range("B21:B28")) Is Nothing Then
Range("E18").Copy Destination:=Sheets("Definition").Range("B11")
End If
End Sub
Click to expand...
 
Back
Top