Страницы: 1
RSS
VBA. Заполнение ячейки при выборе значения автофильтра.
 
Добрый день!

Имеется файл с N количеством товара.  Отбирая фильтром (3 столбец) Остаток "20"  в ячейке С1 получаем значение "Много" или "10" - "Нормально" и  тд.

1.Как сделать чтобы при отсутствии значения в ячейке С1 значение становилось пусто.
2.Убрать ошибку при отсутствии значения в автофильтре.(выбрать все).

Заранее благодарю.
 
?
Код
If Worksheets("Лист1").AutoFilter.Filters(3).Criteria1 = "=0" Then Cells(1, 3) = ""
Я сам - дурнее всякого примера! ...
 
kuklp,  Практически. Но если очистить автофильтр то.....
Изменено: red2881 - 23.12.2018 23:17:11
 
Код
Private Sub Worksheet_Calculate()
    If Me.AutoFilter.Filters(3).On Then
        If Worksheets("Лист1").AutoFilter.Filters(3).Criteria1 = "=0" Then Cells(1, 3) = ""
        If Worksheets("Лист1").AutoFilter.Filters(3).Criteria1 Like "*20*" Then Cells(1, 3) = "Много"
        If Worksheets("Лист1").AutoFilter.Filters(3).Criteria1 Like "*15*" Then Cells(1, 3) = "Нормально"
        If Worksheets("Лист1").AutoFilter.Filters(3).Criteria1 Like "*10*" Then Cells(1, 3) = "Мало"
        Exit Sub
    End If
    Cells(1, 3) = ""
End Sub
Изменено: kuklp - 23.12.2018 23:23:52
Я сам - дурнее всякого примера! ...
 
Супер. Спасибо.
Страницы: 1
Наверх