VB - Moving data based on If

**D_N_L** · 08-23-2011, 11:49 AM

Hi everyone,

In cells B1:B1000 I have some alphanumeric data (postcode data). In cells C1:C1000 I have either 'Yes' or 'No' in each cell (there are no blanks). What I wish to automate with VB is to move all cells in the range B1:B1000 that have 'Yes' in their adjacent C column to column H and all those that have 'No' to column J. So essentially i should end up with two lists of data in H and J - data based on 'Yes' and 'No' respectively.

One final kicker though! (sorry!). Is it possible for the data to be ordered without blanks. I.e if cells B23 and B45 are the first two instances of data that have 'Yes' then then would go into H1 and H2 respectively (rather than H23 and H45).

Thanks in advance. Great community!

**Mordred** · 08-23-2011, 11:54 AM

Hi Plumby, can you upload a mock workbook with mock data as well as a before and after regarding the data being moved? If you do that someone here should be able to fulfill your requirements.

**D_N_L** · 08-23-2011, 12:16 PM

Hi there,

(Thanks mod).

I have attached an example workbook of what I mean. You can see that column H contains all the 'Yes' postcodes and column J all the 'No' postcodes. The data in column B and C will differ every time too. For example there may be 7 postcodes (as in the example) or 700 postcodes.

But each time there will always be a 'Yes' or 'No' in column C next to the postcode. The data will contain no blanks either.

Thanks in advance.

**Mordred** · 08-23-2011, 02:21 PM

Hi Plumby, take a look at the following workbook and let me know if it meets your requirements. All you have to do is click the "Sort Post Codes" button.