D
Dan
repost, need help, thanks.....
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 try to
modify it to work with FORMATS, it "does" 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?
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
formula's):
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
c.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next c
End Sub
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 try to
modify it to work with FORMATS, it "does" 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?
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
formula's):
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
c.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next c
End Sub