| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Coppying cells, including conditional formatting ('03 & '07)
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! |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Coppying cells, including conditional formatting ('03 & '07)
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 "Raymond W." wrote: 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! |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Coppying cells, including conditional formatting ('03 & '07)
Awesome. I swapped everything around and it works as expected. Thank you very
much for the fast response! "FSt1" wrote: 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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Coppying cells, including conditional formatting ('03 & '07)
glad to help.
regares FSt1 "Raymond W." wrote: Awesome. I swapped everything around and it works as expected. Thank you very much for the fast response! "FSt1" wrote: 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Formatting cells in a column with conditional formatting? | Excel Discussion (Misc queries) | |||
| Protect Cell Formatting including Conditional Formatting | Excel Discussion (Misc queries) | |||
| Compare cells including formatting | Excel Programming | |||
| Conditional Formatting Multiple cells based on 2 cells | Excel Worksheet Functions | |||
| coppying nested if statements | Excel Programming | |||
![Raymond W.[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
