Excel Macro


I am doing a task manually . Copying contents from web and paste it in a excel file on the corresponding heading.

I need your help on automating it.

The desired input and output sheet is attached.

The data need to populated based on headings to corresponding cells.

Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Joe HowardCommented:
Nothing attached.
magentoAuthor Commented:
I am sorry .

Please find the attached.
Joe HowardCommented:
Not really enough information to do anything with.

Do you want to automate the data download too? If so, what's the link?
Where's the source/destination? in the same file? separate files?
Anyway you can check out http://office.microsoft.com/en-us/excel-help/rotate-data-by-converting-columns-to-rows-or-vice-versa-HP005203138.aspx to convert columns to rows.
Get Blueprints for Increased Customer Retention

The IT Service Excellence Tool Kit has best practices to keep your clients happy and business booming. Inside, you’ll find everything you need to increase client satisfaction and retention, become more competitive, and increase your overall success.

Alex [***Alex140181***]Software DeveloperCommented:
Moreover, you should check Excel's built-in pivot stuff, as shwon here: http://chandoo.org/wp/2009/08/19/excel-pivot-tables-tutorial/

or try to google ;-) (pivoting excel)
magentoAuthor Commented:
Hi Macroshadow,

The first sheet is the input and the second sheet is the output.

I paste the content in sheet1 and run the macro , need the output in sheet 2.

Joe HowardCommented:
This is the gist of it:
Sub Demo()

    Dim rngSource As Range
    Dim rngDestination As Range
    Set rngSource = Sheets("Given").Range("A1:B71")
    Set rngDestination = Sheets("Required").Range("A1:B71")
    rngDestination.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Open in new window

For lack of details I couldn't give a more accurate solution. For example:
1. Is the macro supposed to overwrite existing data?
2. Will there always be one header column and one data column, or will they vary?

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
magentoAuthor Commented:
Hi Macroshadow,

Thanks for this.

I will open a new question with the answer to the above post .

Thanks again
magentoAuthor Commented:
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.