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

Attached Files

Remove rows containing blank cells.docx (13.3 KB, 14 views)

The following macro will delete the unwanted rows in the example document:

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

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.

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.

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

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

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]