Posted to microsoft.public.excel.programming
|
|
blank cells
thank you!
-----Original Message-----
Hi Marta,
This is the code I use for doing that:
intLastRow = ActiveSheet.UsedRange.SpecialCells
(xlLastCell).Row
intCount = 1
Do While intCount <= intLastRow
If Range("B" & intCount).Value = Empty Then
Range("B" & intCount).Value = Range("B" & intCount -
1).Value
End If
intCount = intCount + 1
Loop
Let me know if that doesn't work or you need anything
else.
Mark
---
Mark Bigelow
mjbigelow at hotmail dot com
http://www.insideprospects.com
*** Sent via Developersdex http://www.developersdex.com
***
Don't just participate in USENET...get rewarded for it!
.
|