Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
When I apply borders to my spreadsheet and then I move cells from one
location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
Hi,
What's in the cells - formulas, numbers, dates, text, blanks? -- Thanks, Shane Devenshire "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
This is a information site, not a pulpit
Bob "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
It depends on the cell. There are formulas in some, times in others and text.
-- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, What's in the cells - formulas, numbers, dates, text, blanks? -- Thanks, Shane Devenshire "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
No Preaching here, just a Thought Provoking statement/question.
-- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "robert morris" wrote: This is a information site, not a pulpit Bob "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
Hi,
You can add the following macro to the sheet object: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("B") With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With End With End Sub To get this to work name the range where the grids should be to B. You can change the LineStyle, Weight, or ColorIndex to suit your needs. -- Cheers, Shane Devenshire "BeetleBailey" wrote: It depends on the cell. There are formulas in some, times in others and text. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, What's in the cells - formulas, numbers, dates, text, blanks? -- Thanks, Shane Devenshire "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
Thanx Shane for the info. I'd hoped that it was a simple matter of just
"Locking" in a format, but I can see that a Programming Education is required. I'd appreciate knowing how to do what you what wrote if that won't require your writing too many volumes of "Excel for Dummies". You can email or PM me if taht would e better or provide link. I'll take a look in the Excel Help area and see what I can find in the mean time. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, You can add the following macro to the sheet object: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("B") With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With End With End Sub To get this to work name the range where the grids should be to B. You can change the LineStyle, Weight, or ColorIndex to suit your needs. -- Cheers, Shane Devenshire "BeetleBailey" wrote: It depends on the cell. There are formulas in some, times in others and text. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, What's in the cells - formulas, numbers, dates, text, blanks? -- Thanks, Shane Devenshire "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#8
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
Shane,
Believe it or not, I figured out how to get the Macro in and running. HOWEVER... When I try to cut or copy and paste in the Worksheet, I can't -- Not anywhere in the sheet. The Paste Option is grayed out (Unavailable). That's not good. Any suggestions??? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "BeetleBailey" wrote: Thanx Shane for the info. I'd hoped that it was a simple matter of just "Locking" in a format, but I can see that a Programming Education is required. I'd appreciate knowing how to do what you what wrote if that won't require your writing too many volumes of "Excel for Dummies". You can email or PM me if taht would e better or provide link. I'll take a look in the Excel Help area and see what I can find in the mean time. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, You can add the following macro to the sheet object: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("B") With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With End With End Sub To get this to work name the range where the grids should be to B. You can change the LineStyle, Weight, or ColorIndex to suit your needs. -- Cheers, Shane Devenshire "BeetleBailey" wrote: It depends on the cell. There are formulas in some, times in others and text. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, What's in the cells - formulas, numbers, dates, text, blanks? -- Thanks, Shane Devenshire "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#9
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
Hi,
I interpreted your original question - " I move cells from one location to another" - to mean you were dragging and dropping the selected cells. In that case, make the following little change - Change the name of the macro to Private Sub Worksheet_Change(ByVal Target As Range) -- Cheers, Shane Devenshire "BeetleBailey" wrote: Shane, Believe it or not, I figured out how to get the Macro in and running. HOWEVER... When I try to cut or copy and paste in the Worksheet, I can't -- Not anywhere in the sheet. The Paste Option is grayed out (Unavailable). That's not good. Any suggestions??? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "BeetleBailey" wrote: Thanx Shane for the info. I'd hoped that it was a simple matter of just "Locking" in a format, but I can see that a Programming Education is required. I'd appreciate knowing how to do what you what wrote if that won't require your writing too many volumes of "Excel for Dummies". You can email or PM me if taht would e better or provide link. I'll take a look in the Excel Help area and see what I can find in the mean time. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, You can add the following macro to the sheet object: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("B") With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With End With End Sub To get this to work name the range where the grids should be to B. You can change the LineStyle, Weight, or ColorIndex to suit your needs. -- Cheers, Shane Devenshire "BeetleBailey" wrote: It depends on the cell. There are formulas in some, times in others and text. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, What's in the cells - formulas, numbers, dates, text, blanks? -- Thanks, Shane Devenshire "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#10
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
Shane,
Once again I say Thanx. Want to make it 3??? If I want to apply this macro to a block of other cells, is it possible to add more ranges to the macro With Range ("B") or can I redefine the Range to include other cells??? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, I interpreted your original question - " I move cells from one location to another" - to mean you were dragging and dropping the selected cells. In that case, make the following little change - Change the name of the macro to Private Sub Worksheet_Change(ByVal Target As Range) -- Cheers, Shane Devenshire "BeetleBailey" wrote: Shane, Believe it or not, I figured out how to get the Macro in and running. HOWEVER... When I try to cut or copy and paste in the Worksheet, I can't -- Not anywhere in the sheet. The Paste Option is grayed out (Unavailable). That's not good. Any suggestions??? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "BeetleBailey" wrote: Thanx Shane for the info. I'd hoped that it was a simple matter of just "Locking" in a format, but I can see that a Programming Education is required. I'd appreciate knowing how to do what you what wrote if that won't require your writing too many volumes of "Excel for Dummies". You can email or PM me if taht would e better or provide link. I'll take a look in the Excel Help area and see what I can find in the mean time. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, You can add the following macro to the sheet object: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("B") With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With End With End Sub To get this to work name the range where the grids should be to B. You can change the LineStyle, Weight, or ColorIndex to suit your needs. -- Cheers, Shane Devenshire "BeetleBailey" wrote: It depends on the cell. There are formulas in some, times in others and text. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, What's in the cells - formulas, numbers, dates, text, blanks? -- Thanks, Shane Devenshire "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
#11
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I Preserve Borders?
Hi,
A little slow getting back, but had a very busy week. You can define the range B to be anything you want and you can change the definition anytime you want. Simply select a desired range(s) and press Ctrl+F3 and retype the name in the Names in workbook box. -- Cheers, Shane Devenshire "BeetleBailey" wrote: Shane, Once again I say Thanx. Want to make it 3??? If I want to apply this macro to a block of other cells, is it possible to add more ranges to the macro With Range ("B") or can I redefine the Range to include other cells??? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, I interpreted your original question - " I move cells from one location to another" - to mean you were dragging and dropping the selected cells. In that case, make the following little change - Change the name of the macro to Private Sub Worksheet_Change(ByVal Target As Range) -- Cheers, Shane Devenshire "BeetleBailey" wrote: Shane, Believe it or not, I figured out how to get the Macro in and running. HOWEVER... When I try to cut or copy and paste in the Worksheet, I can't -- Not anywhere in the sheet. The Paste Option is grayed out (Unavailable). That's not good. Any suggestions??? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "BeetleBailey" wrote: Thanx Shane for the info. I'd hoped that it was a simple matter of just "Locking" in a format, but I can see that a Programming Education is required. I'd appreciate knowing how to do what you what wrote if that won't require your writing too many volumes of "Excel for Dummies". You can email or PM me if taht would e better or provide link. I'll take a look in the Excel Help area and see what I can find in the mean time. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, You can add the following macro to the sheet object: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("B") With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 55 End With End With End Sub To get this to work name the range where the grids should be to B. You can change the LineStyle, Weight, or ColorIndex to suit your needs. -- Cheers, Shane Devenshire "BeetleBailey" wrote: It depends on the cell. There are formulas in some, times in others and text. -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? "ShaneDevenshire" wrote: Hi, What's in the cells - formulas, numbers, dates, text, blanks? -- Thanks, Shane Devenshire "BeetleBailey" wrote: When I apply borders to my spreadsheet and then I move cells from one location to another, the vacated cells become Borderless. Is there a way to Retain the Borders in the vacated cells w/o having to reapply the borders? -- He Who Plans for this Life, but Not for Eternity is Wise for a Moment, but a FOOL FOREVER!!! Where Will YOU Spend ETERNITY??? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Preserve borders during copy and paste? | Excel Discussion (Misc queries) | |||
Preserve format | Excel Discussion (Misc queries) | |||
How to preserve formatting with vlookup | Excel Discussion (Misc queries) | |||
Preserve settings | Excel Discussion (Misc queries) | |||
Preserve decimal 0 in function bar | Excel Discussion (Misc queries) |