Simple VBA Code

[vijaychennai]

Hello All,

Good Morning...

Please find the below Excel.

Excel Workbook
	A	B	C	D	E	F	G	H	I
1	F2	F3	F1	F5	F6	F4	F7	F8	F9
2	1	1	1	1	1	1	1	1	1
3	1	1	1	1	1	1	1	1	1
4	1	1	1	1	1	1	1	1	1
5	1	1	1	1	1	1	1	1	1
6	1	1	1	1	1	1	1	1	1
7	1	1	1	1	1	1	1	1	1
8	1	1	1	1	1	1	1	1	1
9	1	1	1	1	1	1	1	1	1
10	1	1	1	1	1	1	1	1	1
11	1	1	1	1	1	1	1	1	1
12	1	1	1	1	1	1	1	1	1
13	1	1	1	1	1	1	1	1	1
14	1	1	1	1	1	1	1	1	1
15	1	1	1	1	1	1	1	1	1
Sheet1

i have excel file in the above format.

I want to data in the below Format.

Excel Workbook
	A	B	C
1	F1	F2	F3
2	1	1	1
3	1	1	1
4	1	1	1
5	1	1	1
6	1	1	1
7	1	1	1
8	1	1	1
9	1	1	1
10	1	1	1
11	1	1	1
12	1	1	1
13	1	1	1
14	1	1	1
15	1	1	1
Sheet2

Condition:

in Sheet 1 "F1" Column comes any where. like "F3" Comes 7 column or 8 column or any where. based on heading i want to move f1 , f2 & F3 in sheet2.

Thanks.

 

[VoG]

Hi. Try this

Sub CopyData()
Dim i As Long, Found As Range
With Sheets("Sheet1")
    For i = 1 To 3
        Set Found = .Rows(1).Find(what:="F" & i, LookIn:=xlValues, lookat:=xlWhole)
        If Not Found Is Nothing Then Found.EntireColumn.Copy Destination:=Sheets("Sheet2").Cells(1, i)
    Next i
End With
End Sub

 

[vijaychennai]

Hello Sir,

I give Heading Just an example.

Actual 3 Heading.

Data , Student, Rating.

Please help.

 

[VoG]

Try

Sub CopyData()
Dim i As Long, Found As Range, X
X = Array("Data", "Student", "Rating")
With Sheets("Sheet1")
    For i = 1 To 3
        Set Found = .Rows(1).Find(what:=X(i - 1), LookIn:=xlValues, lookat:=xlWhole)
        If Not Found Is Nothing Then Found.EntireColumn.Copy Destination:=Sheets("Sheet2").Cells(1, i)
    Next i
End With
End Sub

 

[vijaychennai]

Great ...

It's Working....