Copy To Next Available Cell In Row Past Column X

Sandhurst1 · Feb 20th 2008

I have a several pieces of information that won't always be in the same place. Therefore I am using a macro that checks all the cells the information could be in. When found, each cell is individually copied. I want the copied data to be pasted into the next available cell starting at U3. Therefore when the second data is copied, if U3 is filled, paste in V3.

Brian Walters · Feb 20th 2008

Re: Copy Data To Next Available Cell In A Row

Try modifying this

Code

Cells(3,Application.WorksheetFunction.Max(20,Range("IV3").End(xlToLeft).Column)+1).PasteSpecial xlPasteAll

HTH

Sandhurst1 · Feb 20th 2008

Re: Copy Data To Next Available Cell In A Row

Thanks for that reply but I can't see to make that work. Could you simplify that at all or explain it slightly?

Jon_Smith · Feb 20th 2008

Re: Copy Data To Next Available Cell In A Row

Try this one then,

Code

Dim Lastcolumn As Object


   Set Lastcolumn = Sheet1.Range("IV3").End(xlToLeft)
   
    Cells.Find(What:="SEARCH DETAILS", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate




Lastcolumn.Offset(0, 1).Value = Selection

Display More

This will search for a cell with the entry SEARCH DETAILS so change that part of the code to whatever it is you need to find, Please note that if there is more that one cell that contains the info you are searching for then it will just select the first one.

Also it may be easier to have an input box and link what the macro searches for to that so that it can search for whatever you need to

Copy To Next Available Cell In Row Past Column X

Participate now!

Share