+ Reply to Thread
Results 1 to 3 of 3

Format Painter down to "x" rows

Hybrid View

  1. #1
    Forum Contributor
    Join Date
    06-11-2009
    Location
    Cape Town
    MS-Off Ver
    Microsoft 365
    Posts
    858

    Format Painter down to "x" rows

    I want to duplicate the format style in the range [A3:I6] to range [A7] & the last row. I am having a problem with the code below?
    Thanks in Advance


    Range("A3:I6").Range("A7:I" & LastRow).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
    Last edited by Aland2929; 07-30-2010 at 11:00 AM.

  2. #2
    Forum Contributor
    Join Date
    06-11-2009
    Location
    Cape Town
    MS-Off Ver
    Microsoft 365
    Posts
    858

    Re: Format Painter down to "x" rows

    I changed the code and it now works.
    Range("A3:I6").Copy
        Range("A7:I" & LastRow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False

  3. #3
    Forum Contributor
    Join Date
    06-11-2009
    Location
    Cape Town
    MS-Off Ver
    Microsoft 365
    Posts
    858

    Re: Format Painter down to "x" rows

    I have adjusted the code as follows:

    Range("A3:I6").Copy
        Range("A7:I" & LastRow).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1