Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy basic format from one cell to another
Is there a way to copy the basic cell format from one cell to another without
copying the conditional format with it? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy basic format from one cell to another
Just remove them after the paste:
Sub Macro1() ' ' Macro1 Macro ' Macro recorded 6/4/2009 by James Ravenswood ' ' Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.FormatConditions.Delete End Sub -- Gary''s Student - gsnu200856 "joeeng" wrote: Is there a way to copy the basic cell format from one cell to another without copying the conditional format with it? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy basic format from one cell to another
Thanks for your response. However, I didn't ask that question quite right.
What I really was trying to ask was, is there a way of copying a basic cell format to another cell without overwriting the conditional format in the destination cell? "Gary''s Student" wrote: Just remove them after the paste: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 6/4/2009 by James Ravenswood ' ' Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.FormatConditions.Delete End Sub -- Gary''s Student - gsnu200856 "joeeng" wrote: Is there a way to copy the basic cell format from one cell to another without copying the conditional format with it? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy basic format from one cell to another
If you know what basic cell formats you want you can just apply them:
dim fCell as range dim tCell as range set fcell = worksheets("Sheet1").range("a1") set tcell = worksheets("sheet99").range("x99") with tcell .numberformat = fcell.numberformat 'add as many formatting characteristics as you want. end with joeeng wrote: Thanks for your response. However, I didn't ask that question quite right. What I really was trying to ask was, is there a way of copying a basic cell format to another cell without overwriting the conditional format in the destination cell? "Gary''s Student" wrote: Just remove them after the paste: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 6/4/2009 by James Ravenswood ' ' Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.FormatConditions.Delete End Sub -- Gary''s Student - gsnu200856 "joeeng" wrote: Is there a way to copy the basic cell format from one cell to another without copying the conditional format with it? -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy basic format from one cell to another
If you know what basic cell formats you want you can just apply them:
dim fCell as range dim tCell as range set fcell = worksheets("Sheet1").range("a1") set tcell = worksheets("sheet99").range("x99") with tcell .numberformat = fcell.numberformat 'add as many formatting characteristics as you want. end with joeeng wrote: Thanks for your response. However, I didn't ask that question quite right. What I really was trying to ask was, is there a way of copying a basic cell format to another cell without overwriting the conditional format in the destination cell? "Gary''s Student" wrote: Just remove them after the paste: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 6/4/2009 by James Ravenswood ' ' Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.FormatConditions.Delete End Sub -- Gary''s Student - gsnu200856 "joeeng" wrote: Is there a way to copy the basic cell format from one cell to another without copying the conditional format with it? -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy basic format from one cell to another
Understand, but what if one is trying to copy a range of cells with varying
formats (interior colors). Can it be done without using a slow for-next loop? I tried worksheets("Sheet1").range("A1:B99").interior.colo rindex=worksheets("sheet99").range("A1:B99").inter ior.colorindex but this apparently does not work. "Dave Peterson" wrote: If you know what basic cell formats you want you can just apply them: dim fCell as range dim tCell as range set fcell = worksheets("Sheet1").range("a1") set tcell = worksheets("sheet99").range("x99") with tcell .numberformat = fcell.numberformat 'add as many formatting characteristics as you want. end with joeeng wrote: Thanks for your response. However, I didn't ask that question quite right. What I really was trying to ask was, is there a way of copying a basic cell format to another cell without overwriting the conditional format in the destination cell? "Gary''s Student" wrote: Just remove them after the paste: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 6/4/2009 by James Ravenswood ' ' Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.FormatConditions.Delete End Sub -- Gary''s Student - gsnu200856 "joeeng" wrote: Is there a way to copy the basic cell format from one cell to another without copying the conditional format with it? -- Dave Peterson |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy basic format from one cell to another
If the colors vary between cells, you'll need to loop. If you know your
workbook, maybe you can group areas by color???? And if the colors vary between characters in the cell, then you'll be looping through each cell and then looping between characters within each cell. (It can be very slow if you have lots of colors/formats to preserve.) joeeng wrote: Understand, but what if one is trying to copy a range of cells with varying formats (interior colors). Can it be done without using a slow for-next loop? I tried worksheets("Sheet1").range("A1:B99").interior.colo rindex=worksheets("sheet99").range("A1:B99").inter ior.colorindex but this apparently does not work. "Dave Peterson" wrote: If you know what basic cell formats you want you can just apply them: dim fCell as range dim tCell as range set fcell = worksheets("Sheet1").range("a1") set tcell = worksheets("sheet99").range("x99") with tcell .numberformat = fcell.numberformat 'add as many formatting characteristics as you want. end with joeeng wrote: Thanks for your response. However, I didn't ask that question quite right. What I really was trying to ask was, is there a way of copying a basic cell format to another cell without overwriting the conditional format in the destination cell? "Gary''s Student" wrote: Just remove them after the paste: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 6/4/2009 by James Ravenswood ' ' Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.FormatConditions.Delete End Sub -- Gary''s Student - gsnu200856 "joeeng" wrote: Is there a way to copy the basic cell format from one cell to another without copying the conditional format with it? -- Dave Peterson -- Dave Peterson |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy basic format from one cell to another
If the colors vary between cells, you'll need to loop. If you know your
workbook, maybe you can group areas by color???? And if the colors vary between characters in the cell, then you'll be looping through each cell and then looping between characters within each cell. (It can be very slow if you have lots of colors/formats to preserve.) joeeng wrote: Understand, but what if one is trying to copy a range of cells with varying formats (interior colors). Can it be done without using a slow for-next loop? I tried worksheets("Sheet1").range("A1:B99").interior.colo rindex=worksheets("sheet99").range("A1:B99").inter ior.colorindex but this apparently does not work. "Dave Peterson" wrote: If you know what basic cell formats you want you can just apply them: dim fCell as range dim tCell as range set fcell = worksheets("Sheet1").range("a1") set tcell = worksheets("sheet99").range("x99") with tcell .numberformat = fcell.numberformat 'add as many formatting characteristics as you want. end with joeeng wrote: Thanks for your response. However, I didn't ask that question quite right. What I really was trying to ask was, is there a way of copying a basic cell format to another cell without overwriting the conditional format in the destination cell? "Gary''s Student" wrote: Just remove them after the paste: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 6/4/2009 by James Ravenswood ' ' Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.FormatConditions.Delete End Sub -- Gary''s Student - gsnu200856 "joeeng" wrote: Is there a way to copy the basic cell format from one cell to another without copying the conditional format with it? -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Lock Cell Format - Allow copy and paste of data without format change | Excel Worksheet Functions | |||
Copy only basic number without dollar sign or commas (or cell formatting)? | Excel Programming | |||
Basic Cell / Formula Copy Using a Step | Excel Discussion (Misc queries) | |||
A visual basic value copy BUG?? - accounting format has copy problem!! | Excel Programming | |||
How do I copy data in single cell format to a merged cell format | Excel Discussion (Misc queries) |