Здравствуйте, прошу Вас подсказать что я делаю ни так:
При выборе код.производителя у меня все заполняется автоматом, я хочу сделать чтоб по умолчанию показывали только 2 строчки в накладной и при вводе в 1,2 строки код. производителя открывалась следующая 3 пустая строка и т. д.
вот код. но к сож он закрывает его полностью
При выборе код.производителя у меня все заполняется автоматом, я хочу сделать чтоб по умолчанию показывали только 2 строчки в накладной и при вводе в 1,2 строки код. производителя открывалась следующая 3 пустая строка и т. д.
вот код. но к сож он закрывает его полностью
Код |
---|
Sub resiz() Application.ScreenUpdating = False Z = 1 For i = 9 To 36 If Range("h" & i).Value = 0 Then Z = i Exit For End If Next Rows("08:" & Z).EntireRow.AutoFit Rows(Z & ": 36").RowHeight = 0 Application.ScreenUpdating = True End Sub ------------------------------------------------------ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim rng As Range: Set rng = [А09:А36] If Not Intersect(rng, Target) Is Nothing Then Resiz Application.EnableEvents = True End Sub |