moving data

[mani_singh]

hi everyone,

i need a macro to copy a column (A) of data from on sheet to another sheet column A (easly done i know) - "sheet 1" to "sheet 2"

but when the macro is run again i need it to copy to the next column and so on.


can anyone help?

Thanks in advance!

 

[stanleydgromjr]

mani_singh,

Please TEST this FIRST in a COPY of your workbook.

Press and hold down the 'ALT' key, and press the 'F11' key.

Insert a Module in your VBAProject, Microsoft Excel Objects

Copy the below code, and paste it into the Module1.

Option Explicit
Sub CopySheet1ColumnAToSheet2NextAvailableColumn()
    Dim lngNextColumn As Long
    Application.ScreenUpdating = False
    With Sheets("Sheet2")
        lngNextColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
    End With
    Sheets("Sheet1").Columns("A:A").Copy Sheets("Sheet2").Cells(1, lngNextColumn)
    Application.CutCopyMode = False
    Sheets("Sheet1").Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Then run the 'CopySheet1ColumnAToSheet2NextAvailableColumn' macro.

Have a great day,
Stan

 

[mani_singh]

didn't work just got some really random figures! pasted

 

[mani_singh]

all i need is to be able to paste into the next empty column to the right using the macro

i think you use a limit command just not sure!

thanks

 

[Peter_SSs]

didn't work just got some really random figures! pasted

What is in column A of Sheet1.. directly entered data ... formulas?

Try and tell us a bit more about what is happening in your sheet as Stan's code seemed to work fine for me.

 

[mani_singh]

copying data using a macro

after a bit of fiddeling with my sheets and code its worked!

could you guys help me with one final thing please:

this data is copied into sheet 4 not sheet 2 as in the previous code

-------------------------------------------------

i need to perform a search using a macro which reads cell C3 on sheet 3

if it finds the a matching results in column A on sheet 4 it copies that row and pastes it into sheet 2

-------------------------------------------------

thank you guys i know its a pain but im loosing my mind here!

thanks again

 

[stanleydgromjr]

mani_singh,

after a bit of fiddeling with my sheets and code its worked!

could you guys help me with one final thing please:

this data is copied into sheet 4 not sheet 2 as in the previous code

Here is the new code per your new requirements:

Option Explicit
Sub CopySheet1ColumnAToSheet4NextAvailableColumn()
    Dim lngNextColumn As Long
    Application.ScreenUpdating = False
    With Sheets("Sheet4")
        lngNextColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
    End With
    Sheets("Sheet1").Columns("A:A").Copy Sheets("Sheet4").Cells(1, lngNextColumn)
    Application.CutCopyMode = False
    Sheets("Sheet1").Range("A1").Select
    Application.ScreenUpdating = True
End Sub

i need to perform a search using a macro which reads cell C3 on sheet 3
if it finds the a matching results in column A on sheet 4 it copies that row and pastes it into sheet 2

Please post examples of the data that can be in Sheet3, cell 'C3'.

And, please post samples of the data tha can be in the first ten rows of Sheet2.

Post a screenshot of your sheet(s) with Colo's HTML Maker.
[url]http://www.puremis.net/excel/downloads.shtml
[/url]

Have a great day,
Stan