Autofill Macro

[Chris]

I have a large amount of data that requires me to
autofill all the blanks in order to run a p;ivot report.
Is there a macro or other means that will allow me to
have the autofill function fill every blank cell below a
value, until it reaches a new value then switch to that
value for every blank cell below and etc.

Thanks

 

[Debra Dalgleish]

There are some instructions here, for filling blank cells with the first
value above:

http://www.contextures.com/xlDataEntry02.html

 

[Gord Dibben]

Chris

Dave has pointed you to a non-programming solution. If you want a macro try
this.....

''fill in blanks from cell above
Sub Fill_Blanks()
Dim myRange As Range
Set myRange = Selection
On Error GoTo stopnow
If myRange.Cells.Count = 1 Then
MsgBox "Select a range first."
Else
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
Range("B1").Select
End If
stopnow:
End Sub

Gord Dibben Excel MVP - XL97 SR2 & XL2002

 

[Debra Dalgleish]

Dave? Who's Dave?

Chris

Dave has pointed you to a non-programming solution. If you want a macro try
this.....

''fill in blanks from cell above
Sub Fill_Blanks()
Dim myRange As Range
Set myRange = Selection
On Error GoTo stopnow
If myRange.Cells.Count = 1 Then
MsgBox "Select a range first."
Else
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
Range("B1").Select
End If
stopnow:
End Sub

Gord Dibben Excel MVP - XL97 SR2 & XL2002

I have a large amount of data that requires me to
autofill all the blanks in order to run a p;ivot report.
Is there a macro or other means that will allow me to
have the autofill function fill every blank cell below a
value, until it reaches a new value then switch to that
value for every blank cell below and etc.

Thanks

 

[Dave Peterson]

Dave's not here.

http://www.thesonglyrics.com/c_song_lyrics/cheech&chong_lyric1.html

 

[Norman Harker]

Hi Dog!

Re:
Got 3 of the letters correct.

No I don't think so!

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
Holidays and Observances Friday 18th July: Mexico (Day of Mourning
death of Benito Juarez), Spain (Labor Day), Uruguay (Constitution Day)
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.

 

[Chris]

# letters or whatever thanks for the info I will try it
all out