Private Sub ToggleButton2_Click()If Me.ToggleButton1.Value = True Then
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
If cell.Value Like "*x*" Then cell.EntireColumn.Hidden = True
Else
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
If cell.Value Like "*x*" Then cell.EntireColumn.Hidden = False
Next
End Sub
когда применял if руководствовался: https://forumvba.ru/index.php?topic=176.0 Что бы при нажатии выключателя столбцы раскрывались и скрывались, но при условии, что ячейки содержат текст, к примеру "х" в 1 строке, хотя строка может быть и 6 То есть мне нужен ответ на мой 14 пост, в моей же теме цена вопроса 200 рублей
Добрый день. Пишу в личку... Получил письмо с файлом на почту, отправил рабочий макрос. ... Данную задачу заказчик параллельно решал в бесплатной ветке, где и получил удовлетворительный ответ. Тема в разделе "Работа" стала не актуальна. Тем не менее заказчик оплатил сделанный макрос.