Здравствуйте, прошу Вас подсказать что я делаю ни так:
При выборе код.производителя у меня все заполняется автоматом, я хочу сделать чтоб по умолчанию показывали только 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 |
