Autofill query

**AndyE** · 07-30-2013, 08:24 AM

The attached provides an example of a workbook where having unmerged column A it leaves various cells without the necessary name.

Given the fact that it would be very time consuming to manually scroll through and use the autofill handle to rectify this is there any way that it can be done automatically/ programmatically?

Obviously any blank cell needs to take the name from the one above it.

Column A could be of any length and at this point is not sorted so the same name may be found throughout the rows.

Sheet1 shows the starting data, sheet2 the required format

Cheers,

**AndyE** · 07-30-2013, 11:07 AM

Can this be done?

**codeslizer** · 07-30-2013, 12:00 PM

Hi Andy,

Yes, this can be done of course. For this kind of application, you need to control the flow of your code. To do that, you've to closely monitor each one of your instructions on how they react to when you execute them. Following is the code what I have used to cater your needs. Am also attaching your sample file on which I have worked.

Please Login or Register  to view this content.

I have used column B to get the total filled count so that we can get an bottom limit. This is used to ensure when we reach the last filled row and when there is no bottom limit to the rows when trying to find next filled row.

v_count = firstcell.Offset(0, 1).End(xlDown).Row - firstcell.Row

Hope, this helps!

P.S. I have changed the file format to xlsm so that the macro gets included as xlsx won't store macro codes.