hello, I had recently received a macro that I was needing some help with.
it seems to work on columns where there are formula's only. when i tried to
modify it to work with FORMATS, it did work on columns with formula's, but
would not paste FORMATS down on columns, "without' formula's.
Is there a way to modify it so that it will? if ok as a different macro,
since using separate macro's anyways... (for paste formula's, formats, all)
not sure what the problem is.. thanks in advance
macro works on columns where cells are filled with a formula only.
what using to try to paste Formats down a column (that does not have
1 i will manually copy cell at top, and manually place cursor to top row of
any column i choose (dynamic)
2 with macro paste format down column, to end row, skip rows where column A
has a period "."
3 not yet addressed: way to paste all cells at once without pasting 1 cell
at a time..
can work on later.
Sub PastecellF() 'alt-F (paste cell Format to col)
r = ActiveCell.Row
c = ActiveCell.Column
LastRow = Range("C4").Value
'C4 has: =ROW($A$2058) 'last row
For Each c In Range(Cells(r, c), Cells(LastRow, c))
If Cells(c.Row, "A").Value <> "." Then
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _