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? |
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? |
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? |
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 |
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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 12:53 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com