VBA to fill missing Cells...

[Matty]

Hello All,

Given the following data set:

Excel Workbook
	A	B
1	DataA	DataB
2	SomethingA	15
3	SomethingA	47
4	SomethingA	48
5	SomethingA	26
6	SomethingA	52
7	SomethingA	45
8	SomethingB	36
9	SomethingB	89
10	SomethingB	72
11	SomethingB	14
12		2
13		19
Sheet1

Excel 2003


What's the best way of filling Cells A12 and A13 with the value in the next populated Cell up, i.e. "SomethingB"?

I'm aware of the F5 > Blanks > Ctrl + Enter etc. method, but I'm looking for code to do this as it'll form part of a larger macro.

Thanks in advance.

Matty

 

[VoG]

Try

Sub FillBl()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
With Range("A1:A" & LR)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

 

[Matty]

Cheers Peter.

I will eventually get my head around all of these techniques!

Regards,

Matty