Help with Macro's

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 
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


    'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    'Selection.Cells.PasteSpecial xlPasteFormats
    'Selection.PasteSpecial xlPasteFormats

    '.Cells.PasteSpecial xlPasteValues
    'PasteSpecial xlPasteValues

    End If
    Next c
End Sub



0
Utf
2/5/2010 7:27:01 PM
excel.misc 78881 articles. 5 followers. Follow

0 Replies
647 Views

Similar Articles

[PageSpeed] 20

Reply:

Similar Artilces: