Change Row height and colour based on value


MrExcel MVP, Moderator
Without knowing anything about your data, or the code you are using to do the sort. Not really.
It might be that you don't don't header row, but the code is assuming there is one.


New Member
Ok so the date I've got sorted (hopefully) and I've attempted to add a borders to the code you gave me but falling over, I'd want a top and bottom border when the criteria that resized the column (but going to cell FO) and clearing any top bottom border if it doesnt


MrExcel MVP, Moderator
How about
Sub Andyjk1984()
   Dim Cl As Range
   For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
      If Cl.Value = 1 Then
         Cl.RowHeight = 33
         Cl.Resize(, 13).Interior.ColorIndex = 16
         With Cl.Resize(, 171)
            .Borders(xlEdgeTop).Weight = xlThin
            .Borders(xlEdgeBottom).Weight = xlThin
         End With
         Cl.RowHeight = 20
         Cl.Resize(, 171).Borders(xlEdgeBottom).LineStyle = xlNone
      End If
   Next Cl
End Sub

Some videos you may like

This Week's Hot Topics

  • Get External Data (long shot question!)
    This is likely a long shot but I am wondering if it is at all possible for Excel to somehow 'change' the contents of a URL that is being linked to...
  • Importing multiple excel files into one spreadsheet
    Hi, I'm trying to import multiple excel files (with the same format into a single spreadsheet) so that each day's file is listed underneath the...
  • Cell Formatting
    Good Morning, I need to format a few different cells in the following manners: A1 has to always add a colon (:) after whatever is typed in by a...
  • How to copy multiple rows using If
    Hi all, I'm very new to VBA and have written this simple code to copy certain cells if a certain cell within that row contains any data. I need...
  • Workbook_Change stopped working !
    I am working on an app to speed up & automate processing of Credit Cards statements. After data is input from a CSV file, it is presented to the...
  • VBA If statement
    Dear All, I have two dates, where I'd like a message box to pop, if the dates are between this criteria. [CODE] sDate1 = #10/1/2019#...