ElseIf ncolor = 13421772 Then
wbs.Cells(i, 14).Value = wbs.Cells(i, 14).Value '(???)
End If
Возможно это не лучшее решение, но оно работает. Объясню. Здесь она оставляет ячейку как есть, и переходит к следущей ячейке, мне нужно было, пропустить ячейку.
Спасибо за ответ!
Спасибо! Последовал вашему совету! Сделал все так: Создал правило используя формулу =И(B1="";A1="да") и цветом заливки выбрал серый, вдруг кому поможет.
DS28, Совет отличный и оно прекрасно работает в купе с форматированием. А как это автоматизировать, так сказать до одного клика, подумал я, и пришел к макросам, вот получается, написал скрипт который перебирает значение, а при совпадений выдает одну из слов, а дальше хотелось чтоб он как при форматирований + ВПР() проставлял значения(в ту же строку, но в соседний столбец). Ниже код о котором я говорил.
PS: Спасибо Вам большое, Ваши советы очень помогли мне!
Sub perebor()
For Each sh In ActiveWorkbook.Worksheets("table1").Range("C3:C13")
If sh = "07:00 - 16:00" Then
MsgBox "hello"
End If
If sh = "08:30 - 17:00" Then
MsgBox "world"
End If
Next sh
End Sub
DS28, Все супер работает, но встал вопрос, а что если вместо значений вставлять цвета(заливка ячейки), погуглил, не нашел как сделать его через формулу, наткнулся на вот это Application.WorksheetFunction.VLook но это уже выше моих сил, мне нужен совет, куда копать дальше?
Спасибо за оперативность!
1) Хорошее решение, но я не знаю заранее в какой строке будет значение, если писать условие на каждую ячейку с возможными вариантами, там где-то условий 17 - 20 потребуется написать
2) Спасибо про ВПР(), думаю это то что мне нужно, действительно спасибо! Иногда нужно спросить дорогу, чтобы проверить правильность пути!
Возможно это не лучшее решение, но оно работает. Объясню. Здесь она оставляет ячейку как есть, и переходит к следущей ячейке, мне нужно было, пропустить ячейку.
Спасибо за ответ!