Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
wrong code? | Excel Programming | |||
What's wrong with this code, please? | Excel Programming | |||
What is wrong with this code? | Excel Programming | |||
What's wrong with this bit of code | Excel Programming | |||
what's wrong with my code???? | Excel Programming |