Format & Delete based on Header Contents

**TonyforVBA** · 05-31-2012, 04:55 AM

Hey folks,

I've attached a workbook containing one of many formatting macros that I use reulary.
This macro is used in conjunction with a data-dump file in order to populate files.

As it stands the process involves copying all information from the data dump file, that meets a criteria into a blank Excel file and then running the attached formatting macro.

As you'll see the code deletes and moves certain columns.

What I am trying to do is have the columns being moved and deleted based on whether or not the header of the column within the datadump can be found on 'Formatting Macro - Sheet 1' Header.

Any ideas on what would be the best way to go about this?

**Charles** · 05-31-2012, 02:30 PM

TonyforVBA,

Could you provide more detail? I for one do not fully understand what you want. If possible provide a "Before" and "After" example.

**TonyforVBA** · 06-05-2012, 06:22 AM

Hi Charles,
Thanks for getting back to me. I've ameneded the attachment to include a sample data dump sheet.

You will notice that the desired order of the columns in Sheet1 iws differant to the order of datadump, where the information is taken from.

The way that the macro currently works, is that when the datadump info is pasted into Sheet1.
The macro in Module 1, deletes or moves columns based on how the final output is to appear.

I have a number of these formatting macros to create differant views of this information from the datadump.

Basically I am lookng for away that the macro will delete or move columns, based on the desired columns (as outlined in the header of sheet1).

I hope this makes better sense.
Thanks for your help./

**TonyforVBA** · 06-05-2012, 09:39 AM

This might help to clarify what I am trying to do.
I need to go through each of the cells in the first row, copy the contents (eg. 'Acc no') <- We'll call this the variable

Then search the data Dump based on the the variable.

Would anybody have any idea of how to go about this?

Please Login or Register  to view this content.

**Charles** · 06-05-2012, 03:51 PM

Tony,

This what I came up with.
You will find a "Test" button on sheet1. When you click it the code should remove header in sheet 2 that does not match sheet1.