| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy format from row above for selected cells
Sub FormatasRowAbove()
Dim rng As Range Set rng = ActiveCell Rows(rng.Row - 1).Copy Cells(rng.Row, 1).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False rng.Select End Sub How can I make above macro work for an area of cells i.e By selecting A2:A7 - I would like row 2 & row 7 to have same format as row 1 Thxs |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Cannot copy selected cells | Excel Discussion (Misc queries) | |||
| auto copy only selected cells | Excel Worksheet Functions | |||
| Copy Selected cells down a row with macro | Excel Discussion (Misc queries) | |||
| copy selected cells to new workbook? | Excel Programming | |||
| Macro to format selected cells | Excel Programming | |||
Threaded Mode
