I have Two Excel sheets Sheet2: Database file(Row wise Data has been updated i.e only in A column- refer below
A1: Name
A2 : person name
A3: Company
A4 : Company name
A5: City
A6 : City place
A7:Blank cell
A8: Blank cell
A9:Telephone
A10 : Blank cell
A11 : Blank cell
A12:Mobile
A13: XXXXX
A15: Name
A16 : person name
A17: Company
A18 : Company name
A19: City
A20 : City place
A21:Blank cell
A22: Blank cell
A23:Telephone
A24 : Blank cell
A25 : Blank cell
A26:Mobile
A27: XXXXX
Sheet1: MIS Report (with the heading of the columns).
In Sheet1 -i have populated the headings like Name , Company, city etc.
**Name Company Title City Telephone State Mobile Country Email Area of responsibility Business focus**
Macro Requirement :
So here,i wanted to create a macro to search for all the same heading names and copy the next row data and paste into under respective headings in Sheet 1
Please do let me know if you have any questions on the same and Thanks a ton in Advance.
Example references :
Sheet 2 : Data (A) - looks like as below
Name
Arun
Company
XXXX
Title
Business Team
City
LONDON
Telephone
State
LONDON
Mobile
Country
United Kingdom
Email
Area of responsibility
Sales
Business focus
Securities
Name Vijay Company XXXX Title Business Team
City
LONDON
Telephone
State
LONDON
Mobile
Country
United Kingdom
Email
Area of responsibility
Sales
Business focus
Securities
1. Like this i have 20000 rows in a A column , here now i wanted to search in a "Sheet2" with the heading name of Sheet1 (Ex :Name,Company )
2. copy the next row data and paste into sheet1 under respective headings 3.we should do Find NEXT until we copied all the data
Here is the Macro code that i have recorded
Sheets("Sheet2").Select
Range("A1").Select
Selection.Copy
Sheets("Sheet1").Select
Cells.Find(What:="Name", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("A37").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Application.CutCopyMode = False
Cells.Find(What:="Name", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("A71").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A3").Select
ActiveSheet.Paste
Note: There are few blanks rows in between(Sheet1)
I have no idea how to create a macro however i have searched all over the internet to find one that i could modify to insert my own data, and this is what ive come up with.
Please help.
