Copying the first four columns data
Closed
                                    
                        Ran                    
                                    -
                            May  6, 2009 at 10:34 AM
                        
mubashir aziz Posts 190 Registration date Sunday April 12, 2009 Status Member Last seen February 16, 2010 - May 8, 2009 at 02:19 AM
        mubashir aziz Posts 190 Registration date Sunday April 12, 2009 Status Member Last seen February 16, 2010 - May 8, 2009 at 02:19 AM
        Related:         
- Copying the first four columns data
- Tweetdeck larger columns - Guide
- Display two columns in data validation list but return only one - Guide
- Tmobile data check - Guide
- Protect pdf from copying - Guide
- Data transmission cable - Guide
3 responses
                
        
                    mubashir aziz
    
        
                    Posts
            
                
            190
                
                            Registration date
            Sunday April 12, 2009
                            Status
            Member
                            Last seen
            February 16, 2010
            
            
                    166
    
    
                    
May 7, 2009 at 02:29 AM
    May 7, 2009 at 02:29 AM
                        
                    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 ........
                
                
            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....
            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....
                
        
                    mubashir aziz
    
        
                    Posts
            
                
            190
                
                            Registration date
            Sunday April 12, 2009
                            Status
            Member
                            Last seen
            February 16, 2010
            
            
                    166
    
    
                    
May 8, 2009 at 02:19 AM
    May 8, 2009 at 02:19 AM
                        
                    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
                
                
            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
