Coppying cells, including conditional formatting ('03 & '07)

  • Thread starter Thread starter Raymond W.
  • Start date Start date
R

Raymond W.

I need some help modifying this code to include the formatting of the cell
(conditional formatting):

If Not Intersect(Target, Range("b4:b7")) Is Nothing Then
Worksheets("DuplicateSheet").Range("b11:b14") =
Worksheets("OriginalSheet").Range("b4:b7").Value
End If

This is activated on the Worksheet_Change event. This code successfully
copies that range of cells to the duplicate sheet should I make a change to
one of them, but the conditional formatting is left behind. How can I drag
the formatting over as well?

Thanks!
 
hi
you code is writen to transfer values only. i would suggest you use the copy
command....
If Not Intersect(Target, Range("b4:b7")) Is Nothing Then
Worksheets("DuplicateSheet").Range("b11:b14").Copy Destination:= _
Worksheets("OriginalSheet").Range("b4:b7")
End If

regards
FSt1
 
Awesome. I swapped everything around and it works as expected. Thank you very
much for the fast response!
 
Back
Top