Function to alter row height automatically

[krissz]

I regularly have to manually review large volumes of excel data, one column being the date by which the data is ordered. For visual convenience, every time the month changes (e.g. from August to September), I increase the row height so as to visually group the data. The data is provided by SQL queries.
.
Is there any way I can automate the process, namely:
1. Import the data - done
2. Sort the data by date - Done
3. Increase the row height when the month changes - ?????
.
I have googled for ideas & made several attempts; no luck so far
I am running Excel 2010

 

[JLGWhiz]

In your macro to sort the data, you could add a line:

UsedRange.Rows.Autofit

But there is a maximum of 409 points in row height. Appx 90 percent of the vertical space.

 

[Gingertrees]

How about this? Put this in This Workbook, in the Workbook_Open sub:

Private Sub Workbook_Open()
Dim Lastrow As Integer
Dim i As Integer
Dim Thismonth As Integer


Dim x As Date
    Lastrow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Rows("1:" & Lastrow).RowHeight = 12
'//resets row hts
Thismonth = Month(Date) '//MsgBox Thismonth


For i = 2 To Lastrow
    Range("A" & i).Select
        With Selection
            If Month(Selection) = Thismonth Then
                .RowHeight = 25
                .EntireRow.Font.Bold = True '//OPTIONAL. This makes matching rows have bold font as well
'/////////(bold font also allows user to filter based on that factor, too, which they can't do on row ht alone)
            End If
        End With
Next i


End Sub

 

[krissz]

Thank you. Based on your suggestion, my final solution is:

Option Explicit

Private Sub Worksheet_Activate()
    
Dim LastRow As Integer
Dim FirstRow As Integer
Dim i As Integer
Dim ThisMonth As Integer
   
    Application.ScreenUpdating = False
'   Find first active row
    For i = 2 To 25
        If InStr(1, ActiveSheet.Range("B" & i).Value, "Date") > 0 Then
            FirstRow = i + 1
            Exit For
        End If
    Next i
    
'   Find Last row (Cells in column B must be occupied)
    Selection.End(xlDown).Select
    LastRow = ActiveCell.Row
    
'   Set default height
    Rows(FirstRow & ":" & LastRow).RowHeight = 14

'   Increase row height when month changes
    ThisMonth = 0
    For i = FirstRow To LastRow
        Range("B" & i).Select
        With Selection
            If ThisMonth > 0 Then
                If Month(Selection) <> ThisMonth Then
                    .RowHeight = 25
                End If
            End If
            ThisMonth = Month(Selection)
        End With
    Next i
    Range("B" & FirstRow).Select
    Application.ScreenUpdating = True

End Sub