Collapse single group row VBA

[marcop2906]

Hello everyone, I'm new in the forum and also in the VBA world of excel. I am looking for a method to close a specific group row (the group already exists), on two separate sheets. The row number is calculated in the cells of the respective sheets (respectively AU7 and B1). Using these code syntax always gives me error. I would like to ask for your help, thank you

Sub closeLastRow()

Dim X As String

X = Range("AU7").Value

Rows(X).EntireRow.ShowDetail = False

End Sub

Sub closeLastRowSintesi()

Dim X As String

X = Range("B1").Value

Rows(X).EntireRow.ShowDetail = False

End Sub

 

[mackc557]

There may be some syntax error that I'm not seeing, but it works fine for me. It works fine only when the number is a reference to a row that is grouped. As such I would recommend data validation; provided is my data validation version of one of your methods.

Sub closeLastRowSintesi()

    Dim X As String

    X = Range("B1").Value

    If Not X = "" And Rows(X).EntireRow.OutlineLevel > 1 Then
            Rows(X).EntireRow.ShowDetail = False
    End If
End Sub

 

[marcop2906]

There may be some syntax error that I'm not seeing, but it works fine for me. It works fine only when the number is a reference to a row that is grouped. As such I would recommend data validation; provided is my data validation version of one of your methods.

Sub closeLastRowSintesi()

    Dim X As String

    X = Range("B1").Value

    If Not X = "" And Rows(X).EntireRow.OutlineLevel > 1 Then
            Rows(X).EntireRow.ShowDetail = False
    End If
End Sub

Thank you mackc557, I found the error was not in the vba code above but in the group. The related code did not create the groups correctly and therefore occasionally coincided with the line with the group and other times it did not. Thanks so much for the answer and for the eye-opening code.