#1
|
|||
|
|||
Remove row in word table if one cell is blank
Please would it be possible for someone to help me.
What I'm trying to achieve is, when i click the complete mailmerge button, I'm want any rows in the table that contain a blank cell to delete the whole row and only show the tables for each person if it contains a data for them from the mailmerge. In the attached document i have added a few extra rows to test to see if i can get any rows to delete, everything in red i want deleting when I complete the mailmerge The maximum amount of comments and marks each person has is three, I've tried using a table with six rows, and i've also tried making three separate tables, however i can't make any macros do what i'm trying to achieve. I really would appreciate it if someone could help me. Many thanks |
#2
|
||||
|
||||
The following macro will delete the unwanted rows in the example document:
Code:
Sub Macro1() 'Graham Mayor - https://www.gmayor.com - Last updated - 04 Nov 2020 Dim oTable As Table Dim i As Integer, j As Integer For j = ActiveDocument.Tables.Count To 1 Step -1 Set oTable = ActiveDocument.Tables(j) For i = oTable.Rows.Count To 1 Step -1 oTable.Rows(i).Select If Len(oTable.Rows(i).Range) <= 6 Then oTable.Rows(i).Delete End If Next i If oTable.Rows.Last.Cells.Count = 4 Then oTable.Rows.Last.Delete End If Next j Set oTable = Nothing End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
This is fab, you have made my day. thank you so much.
I’ve just tried it, it works when a person has two instruments, however when a person has one instrument, it deletes most of the blank rows but leaves one row underneath. I’m not sure which row I need to amend. Please can you show me which line needs amending. Thank you. |
#4
|
|||
|
|||
So sorry I had a zero in one of the rows in the data scources from a formula I was using to transpose the data. It’s working. Thank you so much.
|
#5
|
||||
|
||||
As this appears to be the result of a mail merge, by using https://www.gmayor.com/MergeAndSplit.htm or
https://www.gmayor.com/individual_merge_letters.htm. with only a minor change you could run the macro from the process on the fly: Code:
Sub FixTable(oDoc As Document) 'Graham Mayor - https://www.gmayor.com - Last updated - 06 Nov 2020 Dim oTable As Table Dim i As Integer, j As Integer For j = oDoc.Tables.Count To 1 Step -1 Set oTable = oDoc.Tables(j) For i = oTable.Rows.Count To 1 Step -1 oTable.Rows(i).Select If Len(oTable.Rows(i).Range) <= 6 Then oTable.Rows(i).Delete End If Next i If oTable.Rows.Last.Cells.Count = 4 Then oTable.Rows.Last.Delete End If Next j Set oTable = Nothing End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#6
|
|||
|
|||
The last thing I’ve been trying to do with this mailmerge is to do a conditional format in cells that contain certain words eg.
Good= Light green Very good = dark green Poor = yellow Bad = orange Very bad = red Please would it be possible to show me how to do this. Many thanks |
#7
|
||||
|
||||
See Conditionally Format Mailmerge Output in the Mailmerge Tips and Tricks 'Sticky' thread at the top of this forum: https://www.msofficeforums.com/mail-...ps-tricks.html
No macros required.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to remove almost a full page of blank space in between Word table rows | garrisonsdad | Word Tables | 4 | 10-18-2018 09:09 PM |
Remove blank table rows AFTER mailmerge | Formd | Mail Merge | 5 | 05-11-2018 03:43 PM |
How to remove blank spaces between rows in a table, | Jamal NUMAN | Word | 2 | 04-28-2017 12:59 PM |
Remove any pivot table fields with a blank entry | Ramtrap | Excel Programming | 0 | 04-14-2017 07:00 AM |
how to remove blank box on top-left corner of table in PPT 2010? | dylansmith | PowerPoint | 3 | 10-18-2012 03:59 AM |