открыть диапазон

[segail]

Здравствуйте
Подскажите, как открыть диапазон.
При нахождении скрытой ячейки столбца 27, необходимо растянуть диапазон еще на 36 скрытых строк от найденной ячейки в низ, а затем открыть диапазон. Как добавить 36 скрытых строк?

Dim i As Integer
       For i = 1 To 1000
        If Sheets("Отчет").Cells(i, 27).Text = ComboBox2.Text Then 'Поиск ячейки, по совпвдению текстов
         Sheets("Отчет").Cells(i, 27).EntireRow.Hidden = False 'Открытие диапазона

[SAS888]

Если я все правильно понял, то можно так:

Sub Main()
    Dim i As Integer: Application.ScreenUpdating = False
    With Sheets("Отчет")
        For i = 1 To 1000
            If .Cells(i, 27) = ComboBox2.Text Then .Rows(i & ":" & i + 36).Hidden = False
        Next
    End With
End Sub

[segail]

Сообщение от SAS888

Если я все правильно понял, то можно так:

Sub Main()
    Dim i As Integer: Application.ScreenUpdating = False
    With Sheets("Отчет")
        For i = 1 To 1000
            If .Cells(i, 27) = ComboBox2.Text Then .Rows(i & ":" & i + 36).Hidden = False
        Next
    End With
End Sub

Как раз мне вот этот код (i & ":" & i + 36) и нужен был.
Полный код выглядит так. Код работает. Может что не правильно?

Private Sub ComboBox2_Change() 'Открытие диапазона на выбранный месяц
    
    With Sheets("Отчет")
           .Range("P1") = ComboBox2.Text 'Ввод текста в ячейку (месяц)
    Dim i As Integer
    
    For i = 1 To 1000

        If .Cells(i, 27).Text = ComboBox2.Text Then 'Поиск ячейки, по совпвдению текстов
           .Rows(i & ":" & i + 36).Hidden = False ' Открытие диапазона
           .Range("N4") = "Потери " & .Cells(i, 23) & " %" 'Ввод текста в ячейку (процент потерь)

            Unload Me 'Закрыть фориу
            Sheets("Отчет").Visible = True 'Открыть лист
            Sheets("V_ГСМ").Visible = False 'Скрыть лист
        End If
    Next
    End With
End Sub