Copying the first four columns data [Closed]

Report
-
Posts
191
Registration date
Sunday April 12, 2009
Status
Member
Last seen
February 16, 2010
-
Hello,
I want to copy the first 4 column of data from one sheet to another sheet in the same excel.
Basically the first 4 columns of data in sheet1 makes the key field and I do not want the manual insertion of data to be done in sheet2 and sheet3 in the same excell.The manual process of entering data is prone to error.

Please let me know how this can be done with macro.

The first 4 column of data has to go in the first 4 columns of sheet2 and sheet3.Hope I am clear,thanks

3 replies

Posts
191
Registration date
Sunday April 12, 2009
Status
Member
Last seen
February 16, 2010
215
You can linked the Data in Sheet2 & Sheet3 so whenever you'll make any change in Sheet1 your Sheet2 & 3 will be automatically changed ....

in sheet2 CellA1

A1=Sheet1!A2 then drag it down and left upto 4 columns ......

Do let me know if it helps you

Else if on the basis of these four column of first sheet you want to extract some column then you must use index/match or vlookup ........

Thanks for the response,I already tried out this method probably its my fault I didnt told what I have tried out already.
a)I have tried the transpose option also.

I do not want this drag drop or any dummy value in the first 4 columns as this sheet data will be uploaded to other system in the subsequent stages.
Hence I do no want any dummy value and I know the the backend processing which I think can be done u using the macros.
Hope I am clear,if not plz get back,thanks once again....
Posts
191
Registration date
Sunday April 12, 2009
Status
Member
Last seen
February 16, 2010
215
Try this


Sub Copy_Four()
'
' Macro to copy first 4 colum of sheet1 to sheet 2 & 3

'
Sheets("Sheet1").Activate
Columns("A:D").Select
Selection.Copy
Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet2").Activate
Columns("A:A").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Application.CutCopyMode = False
Range("F21").Select


End Sub



Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!