#1
|
|||
|
|||
Macro for table with zeros
Hi
The following code works superb, however it also deletes the blank rows. what should be changed to just delete the rows with zeros and do not touch the blank rows. regards Umesh Code:
Sub CleanTables() Application.ScreenUpdating = False Dim oTbl As Table, Rng As Range, i As Long, j As Long, StrTmp As String With ActiveDocument For Each oTbl In .Tables On Error Resume Next With oTbl j = .Columns.Count For i = .Rows.Count To 1 Step -1 With .Rows(i) If .Cells.Count > 1 Then Set Rng = .Range Rng.Start = .Cells(2).Range.Start StrTmp = Replace(Replace(Replace(Replace(Rng.Text, Chr(7), ""), vbCr, ""), " ", ""), "0", "") If StrTmp = "" Then .Delete End If End With Next End With Next End With Application.ScreenUpdating = True End Sub Last edited by macropod; 04-16-2012 at 05:06 AM. Reason: Added code structure & tags |
#2
|
||||
|
||||
Hi umesh,
Change: If StrTmp = "" Then .Delete to: If StrTmp = "" And InStr(Rng.Text, "0") > 0 Then .Delete PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Macro to Table Style | ubns | Word VBA | 1 | 04-16-2012 05:01 AM |
Help with pivot table macro | ejima | Excel Programming | 2 | 02-16-2012 03:45 PM |
Sort table using macro | saslotteroy | Word VBA | 2 | 09-15-2011 02:41 PM |
Eliminating zeros, null values and negatives in a column | jannie | Excel | 1 | 06-22-2011 07:03 PM |
How Do I Replace Nulls With Zeros? | deekadelic | Excel | 1 | 08-11-2006 09:52 PM |