Thread: Help with randomn blank cell in my data
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Mike Q.[_3_] Mike Q.[_3_] is offline
external usenet poster
  
Posts: 4
Default Help with randomn blank cell in my data
Sub IfEmptyCopyLeftCell()

Range("B60000").End(xlUp).Offset(1, 0) = "END"
[B1].Select
Do While ActiveCell.Value < "END"
If ActiveCell = ("") Then
ActiveCell.Offset(0, -1).Select
Selection.Copy Destination:=ActiveCell.Offset
(0, 1)
ActiveCell.Offset(1, 1).Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Loop
End Sub


-----Original Message-----
I am needing to evaluate a column of data and if a cell
in that column
is blank I need to fill that cell with what is in the
preceeding column
but if there is a value in the cell just skip over it and
move to the
next cell. Any help to get me going would be greatly
appreciated.
Thanks in advance.


---
Message posted from http://www.ExcelForum.com/

.

Reply With QuoteReply With Quote