Hi
Try
Sub fillUp()
Dim lLastRow As Long
Dim lCounter As Long
Dim sThisCust As String
lLastRow = Cells(Rows.Count, "B").End(xlUp).Row
sThisCust = Cells(1, "B")
For lCounter = 2 To lLastRow
If Trim((Cells(lCounter, "B")) = "") Then
Cells(lCounter, "B") = sThisCust
Else
sThisCust = Cells(lCounter, "
try this
http://www.contextures.com/xlDataEntry02.html
Fill Blank Cells From Above
http://www.contextures.com/Excel-Videos-Data-Entry.html#FillBlanks
On Sun, May 15, 2011 at 11:34 AM, Prabhu wrote:
> Hi friends,
>
> I need a macro for a selected column to fill previous cell
> automatically whe
Hi friends,
I need a macro for a selected column to fill previous cell
automatically where ever blank cell in the sheet.This Macro should
copy the previous cell content.I.e. B2 has "xxx" B3 and B4 is blank
means when we run the macro from B2 to B4 should show "xxx".
Request. Filling must be colum
