Thread: blank cells
View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
marta marta is offline
external usenet poster
 
Posts: 10
Default 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!
.