Добрый день!
Друзья, нужна помощь в отладке кода, а именно в части формулировки команды на удаление элемента управления формы - флажок.
Друзья, нужна помощь в отладке кода, а именно в части формулировки команды на удаление элемента управления формы - флажок.
Код |
---|
Sub Clear() Dim BazaWb As Workbook 'отчет Dim BazaList As Range 'список проверяемых листов Dim iNameSht As String ' имя проверяемого листа Set BazaWb = ThisWorkbook Set BazaList = BazaWb.Worksheets("Адрес").Range("F2:F6") 'устанавливаем список листов For Each n In BazaList 'для каждого листа из списка удаляем элементы управления iNameSht = n If iNameSht <> "" And iNameSht <> "КТТ" Then 'исключаем из проверки один из листов в списке и пустые позиции With Sheets(iNameSht) Rows.Hidden = False 'отменяем все скрытия строк Columns.Hidden = False 'отменяем все скрытия строк .Shapes.Delete End With End If Next End Sub |