| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro required
On May 1, 7:16*pm, Claus Busch wrote:
Hi Ian, Am Tue, 1 May 2012 16:09:38 -0700 (PDT) schrieb pcorcele: Thanks very much..it worked very well...actually much to well....Can you tell me how to modify the code in order that the delete would only take place is the VALUE is zero and not delete is the cell is BLANK a blank cell has the value 0 Try: Sub DeleteRows() Dim LRow As Long Dim i As Long LRow = Cells(Rows.Count, 3).End(xlUp).Row For i = LRow To 1 Step -1 * * If Cells(i, 3) = 0 And Len(Cells(i, 3)) = 1 Then * * * * Rows(i).Delete * * End If Next End Sub Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 P E R F E C T Thanks Ian M |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro required please | Excel Discussion (Misc queries) | |||
| MACRO REQUIRED | Excel Discussion (Misc queries) | |||
| Macro Required.... | Excel Programming | |||
| Macro help required ! | Excel Programming | |||
| Pilgrim needs help: Effecting keystroks required by a macro nested within a macro. | Excel Programming | |||
Hybrid Mode
