Colour Entire Table Row Based on Values in Two Cells
Results 1 to 2 of 2

Thread: Colour Entire Table Row Based on Values in Two Cells
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Jul 2016
    Posts
    49
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Colour Entire Table Row Based on Values in Two Cells

    Hi Folks,

    I haven't had a chance to use VBA in quite awhile and so I've fallen out of practice.

    I have a worksheet with 17,000 rows (growing by approx 1000 a month) and conditional formatting set to change the fill colour of some rows (entire table row) based on the values in column 12 and 13. This is proving very slow and every time I add more data it recalculates.

    Seeing as my data won't be changed, I would like to get VBA to run through each row and permanently colour each table row based on what's in columns 12 and 13 i.e. if row x column 12 ="True" AND row x column 13 = "False" THEN colour entire row yellow (entire row = row x column 1 to row x column 13).

    I hope that makes sense and if you have any suggestions they would be very much appreciated.

    Many thanks,
    Dave

  2. #2
    New Member
    Join Date
    Jul 2016
    Posts
    49
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Colour Entire Table Row Based on Values in Two Cells

    If got this far,

    Code:
    Sub colour_rows()
    
    
    Dim wsAtt As Worksheet
    Dim lrow As Long
    Dim i As Long
    
    
    Set wsAtt = ThisWorkbook.Worksheets("All Attendances")
    lrow = wsAtt.Cells(Rows.Count, 1).End(xlUp).Row
    
    
    
    
    
    
        With wsAtt
                
                For i = 2 To lrow
                    
                    If Cells(i, 12) = True And Cells(i, 13) = False Then
                    
                        MsgBox "Urgent"
                        
                        ElseIf Cells(i, 12) = True And Cells(i, 13) = True Then
                        
                        MsgBox "Urgent DNA"
                                                            
                    End If
                    
                    
                Next i
                          
        End With
    
    
    
    
    End Sub


    I just need to replace the message boxes with instructions to change the row colour.

    Thanks a mil,
    Dave

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •