About Us

VAMS

Thank you!

"Dave Peterson" wrote:

I'm not Debra, but ...

Select the range to fix and try this macro. (Remember to save first--just in
case it doesn't work the way you want. Then you can close without saving and
get your workbook back the way it was.)

Option Explicit
Sub FillColBlanks2()

Dim rng As Range

Set rng = Nothing
On Error Resume Next
Set rng = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeBlanks))
On Error GoTo 0

If rng Is Nothing Then
MsgBox "No blanks found"
Exit Sub
Else
rng.FormulaR1C1 = "=R[-1]C"
End If

'replace formulas with values
With Selection
.Value = .Value
End With

End Sub

VAMS wrote:

Hi, Debra:

I often append data to the end of an older column of data, and want to leave
the old blank cells blank. How do I modify your macro in
http://www.contextures.com/xlDataEntry02.html to limit the fill-in to a
range, (in this case, the new data) rather than the entire column?

Thank you,

- Victoria

--

Dave Peterson

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Dependent Drop-Downs (Contextures web site)	Pepper	New Users to Excel	3	October 4th 08 01:06 AM
Fill cells with color based on criteria in two cells	AA	Excel Worksheet Functions	2	January 2nd 06 11:29 PM
How do I fill (copy) nonadjacent cells to adjacent cells?	BuckyGeorge	Excel Discussion (Misc queries)	2	December 22nd 05 04:18 AM
create a fill in template to tab to fill in cells	Excel-erator	Excel Discussion (Misc queries)	2	July 6th 05 09:57 PM
HOW TO FORMATE CELLS TO COUNT CELLS WITH A FILL COLOR?	Moore	New Users to Excel	1	June 15th 05 06:41 PM

Menu

About Us