+ Reply to Thread
Results 1 to 2 of 2

macro to copy to new column each time used

Hybrid View

  1. #1
    Registered User
    Join Date
    08-06-2009
    Location
    Birmingham, England
    MS-Off Ver
    Excel 2003
    Posts
    8

    macro to copy to new column each time used

    hello

    i want to record a simple macro that when used will copy a column of data (M9:M49) to say T9:T49. However the next time I use the macro I would like it to copy to U9:U49 and so on each time I use it. These will not necessarily be the first blank columns available.

    can you suggest anything?

    regards

    dean

  2. #2
    Forum Expert JBeaucaire's Avatar
    Join Date
    03-21-2004
    Location
    Bakersfield, CA
    MS-Off Ver
    2010, 2016, Office 365
    Posts
    33,492

    Re: macro to copy to new column each time used

    Quote Originally Posted by deanomcbeano27 View Post
    These will not necessarily be the first blank columns available.
    That's a very well described need. Thanks for such clarity.

    Try this:
    Sub CopyRangeProgressively()
    Dim LC As Long
    
        LC = Cells(9, Columns.Count).End(xlToLeft).Column + 1
        
        If LC < 20 Then LC = 20
        
        Range("M9:M49").Copy Cells(9, LC)
    
    End Sub
    _________________
    Microsoft MVP 2010 - Excel
    Visit: Jerry Beaucaire's Excel Files & Macros

    If you've been given good help, use the icon below to give reputation feedback, it is appreciated.
    Always put your code between code tags. [CODE] your code here [/CODE]

    ?None of us is as good as all of us? - Ray Kroc
    ?Actually, I *am* a rocket scientist.? - JB (little ones count!)

+ 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