What's wrong with this code? Please help.
 

Hi All,

I am trying to write a code to delete empty cells far a set of data
range:

Sub mysub()
Dim rRange As Range
Set rRange = Sheet1("E1:E150")
With rRange
If cell.Value = "" Then
ActiveCell.Delete shift:=xlUp
End If
End With

End Sub

Appreciate your help.
Thanks
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=498504

What's wrong with this code? Please help.
 

Sub DeleteBlanks()
On Error Resume Next
Range("E1:E150").SpecialCells(xlCellTypeBlanks).De lete (xlShiftUp)
End Sub
--
HTH...

Jim Thomlinson


"saziz" wrote:


Hi All,

I am trying to write a code to delete empty cells far a set of data
range:

Sub mysub()
Dim rRange As Range
Set rRange = Sheet1("E1:E150")
With rRange
If cell.Value = "" Then
ActiveCell.Delete shift:=xlUp
End If
End With

End Sub

Appreciate your help.
Thanks
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=498504

What's wrong with this code? Please help.
 

Jim,
It worked prefectly, Thank you
How can I change it to delete rows instead of cells:
Range("f1:f2950")._SpecialCells_(xlCellTypeBlanks) .Delete (xlShiftUp)
^ I want to change this to delete rows


Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=498504

What's wrong with this code? Please help.
 

Sub DeleteBlanks()
On Error Resume Next
Range("E1:E150").SpecialCells(xlCellTypeBlanks).En tireRow.Delete
(xlShiftUp)
End Sub

--
HTH...

Jim Thomlinson


"saziz" wrote:


Jim,
It worked prefectly, Thank you
How can I change it to delete rows instead of cells:
Range("f1:f2950")._SpecialCells_(xlCellTypeBlanks) .Delete (xlShiftUp)
^ I want to change this to delete rows


Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=498504