Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » evg_glaz
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Подсветка значения в диапазоне (столбце), если в тексте в ячейке есть данное значение
 
#
30.05.2025 09:11:42
Sanja, в примере всё работает, в моем файле ругается на строку
Код
                arr = Range("P2:P" & Cells(Rows.Count, "P").End(xlUp).Row)
именно arr выделяет синим.
Если закомментировать Option Explicit,
Заменил код на измененный Вами, но всё равно цвет по умолчанию срабатывает, но подсветки не происходит.

Нашел ошибку... в своих руках/глазах. Всё отлично работает, большое спасибо!
Изменено: evg_glaz - 30.05.2025 09:44:15
 
Перейти    
Подсветка значения в диапазоне (столбце), если в тексте в ячейке есть данное значение
 
#
29.05.2025 17:56:51
Sanja, то что надо!
Большое спасибо за очень оперативное решение задачи!
Хорошего вечера (или ночи)))
 
Перейти    
Подсветка значения в диапазоне (столбце), если в тексте в ячейке есть данное значение
 
#
29.05.2025 17:55:41
Dmitriy XM, маленько криво - подсвечивает, но потом остаются желтыми ячейки.
СПАСИБО в любом случае!!!
 
Перейти    
Подсветка значения в диапазоне (столбце), если в тексте в ячейке есть данное значение
 
#
29.05.2025 16:43:26
Доброго дня!
Помогите решить задачу:
В диапазоне "I9:I108" в ячейках текст (планируемые задачи). В столбце P перечислены регионы (н-р МОСК, ННОВ, САР, НСИБ).
Как сделать (желательно макросом), чтобы если в тексте планируемых задач есть "МОСК", то при активации этой ячейки с задачей "МОСК"  в столбце P подсвечивалось цветом.
Заранее благодарен!
Изменено: evg_glaz - 29.05.2025 16:48:00
 
Перейти    
Напоминание по дате/времени
 
#
23.04.2025 17:10:36
MikeVol, спасибо большое!!!
 
Перейти    
Напоминание по дате/времени
 
#
22.04.2025 12:12:22
MikeVol, Подпилил, докрутил. Заработало. Помогите, пожалуйста, чтобы при срабатывании активировалась/выделялась ячейка с датой строки с напоминанием, которое сработало.
СПАСИБО!
 
Перейти    
Напоминание по дате/времени
 
#
22.04.2025 10:40:05
IKor, как вариант, но в общей книге лист Календарь всегда не активен, могу пропустить событие
 
Перейти    
Напоминание по дате/времени
 
#
22.04.2025 09:39:48
MikeVol, заполнил строки ниже - заработал код. Но, при открытии книги, если время/дата прошло - не срабатывает.
Код
Private Sub Workbook_Open()
    StartChecking
    CheckTask
End Sub
не помогает


 
 
Перейти    
Напоминание по дате/времени
 
#
21.04.2025 14:08:00
MikeVol, ничего не происходит
Изменено: evg_glaz - 21.04.2025 14:08:31
 
Перейти    
Напоминание по дате/времени
 
#
21.04.2025 09:31:06
Цитата
написал:
Ваш файл обрушил мой офис
Капец!!! Файл вновь созданный, из макросов только код часов, больше ничего!
Не понимаю, как такое могло произойти....
Видимо после такого мне вряд ли кто-то решиться помочь((
 
Перейти    
Напоминание по дате/времени
 
#
18.04.2025 14:10:27
Доброго времени суток!
Прошу помочь:
В табличке столбец G - дата, в соседнюю ячейку - время, далее - задача.
Прошу помочь чтобы при совпадении даты и времени с сейчас срабатывало какое нибудь событие (н-р ячейка Е6 меняла цвет, ну или чтото, дальше сам под себя допилю.
У меня этот лист в файле не всегда открыт, потому что то срабатывать (мигать/пищать) будет на соседнем листе.
Мысль моя такова - вся процедура срабатывает по Worksheet_Change в ячейке Е6 (там часы)
Найденные в инете коды либо вешают Ексель, либа с моими руками не работают))))
Спасибо!
Изменено: evg_glaz - 18.04.2025 14:25:41
 
Перейти    
Прекращение работы макроса, если в книге скопирована информация
 
#
18.10.2024 09:11:30
Sanja, добрый день! Никак не пойму куда код вставить... Допустим я открыл файл Ексель и что то там скопировал, как моя основная книга поймет, что выполнение макроса нужно остановить?
 
Перейти    
Прекращение работы макроса, если в книге скопирована информация
 
#
17.10.2024 09:56:42
Sanja, СПАСИБО! Буду тестить
 
Перейти    
Прекращение работы макроса, если в книге скопирована информация
 
#
17.10.2024 09:03:26
Добрый день!
Подскажите, пожалуйста, как прописать в коде ситуацию, когда буфер обмена не пуст (копирование в любом файле Ексель, в том числе, в котором код), то в файле в котором код прекращается работа макроса (End Sub).
 
Перейти    
Поиск первой пустой ячейки в диапазоне
 
#
13.09.2024 07:58:36
Доброго дня!
Поскажите, в чем может быть дело:
Код
Код
        If Not Intersect(Target, Range("Календарь")) Is Nothing Then
            Dim ILastRow As Long
            ILastRow = Cells(9, "G").End(xlDown).Row + 1
            Cells(ILastRow, "G") = Target
            Cells(ILastRow, "G").Offset(0, 1).Select
            Cancel = True
        End If
после перезапуска ексель перестает работать, ругается на строку
Код
Cells(iLastRow, "G") = Target
работает по  Worksheet_BeforeRightClick
 
Перейти    
Подсветка ячейки листа 1 при совпадении условий на листе 2
 
#
13.09.2024 07:54:42
Sanja, дома реже, чем на работе( вроде всё понятно написал...
 
Перейти    
Подсветка ячейки листа 1 при совпадении условий на листе 2
 
#
13.09.2024 07:01:22
Доброго дня!
На листе 1 в ячейке А1 время онлайн (обновляется каждые 30 сек). На листе 2 в столбце А - даты событий, в столбце В - время срабатывания событий (напоминалка своеобразная).
Как прописать, чтобы при совпадении на листе 2 даты (с текущей) и времени из столбца В листа 2 с фактическим (берем из ячейки А1 листа 1, чтобы срабатывало по событию в Worksheet_Change), ячейка А1 листа 1 мигала (два цвета указаны в ячейках В1 и С1 листа 1).
Пример приложить возможности нет, прошу прощения!
Буду благодарен за помощь!
 
Перейти    
При прокрутке листа именованный диапазон всегда виден
 
#
12.09.2024 12:34:39
MikeVol, бывает)  
 
Перейти    
При прокрутке листа именованный диапазон всегда виден
 
#
12.09.2024 10:46:13
MikeVol, алилуйя!!! Спасибо! Оно самое!
 
Перейти    
При прокрутке листа именованный диапазон всегда виден
 
#
12.09.2024 08:48:40
Цитата
написал:
Ну значит это был не просто именованный диапазон
Вполне возможно....
 
Перейти    
При прокрутке листа именованный диапазон всегда виден
 
#
11.09.2024 18:28:05
Hugo, не.... просто при прокрутке листа календарь перемещался и оставался на месте относительно экрана (конечно на изначально "чистом"месте листа, вне таблицы,  иначе удалял из ячеек, через которые переместился, все данные
 
Перейти    
При прокрутке листа именованный диапазон всегда виден
 
#
11.09.2024 18:01:11
Sanja, возможно, но решение было. Жду помощи)  
 
Перейти    
При прокрутке листа именованный диапазон всегда виден
 
#
11.09.2024 17:53:38
Sanja, точно есть такое, у меня было... жёсткий сгорел, ничего не сохранилось, но у меня работало. И, видимо, код брал где-то здесь
 
Перейти    
При прокрутке листа именованный диапазон всегда виден
 
#
11.09.2024 15:54:56
Добрый день! Возможно была такая тема, но найти не могу.
Есть именованный диапазон "Календарь". Календарь с права от основной таблицы. Как сделать, чтобы при прокрутке листа календарь был виден всегда (т.е. был динамичным).
Файл прикрепить не имею возможности, прошу прощения!!!
 
Перейти    
Перестали работать макросы после переустановки системы
 
#
26.08.2024 09:22:29
Sanja, во! Точно! Спасибо! Надеюсь поможет!  
 
Перейти    
Перестали работать макросы после переустановки системы
 
#
26.08.2024 08:44:18
Sanja, подскажите, пожалуйста, где. Да, ошибки и в разных кодах. Такое было после первой переустановки и делал манипуляции из моего первого сообщения, а что делал и где толком не помню, но всё исправилось
 
Перейти    
Перестали работать макросы после переустановки системы
 
#
26.08.2024 07:38:07
Доброго дня! После переустановки системы перестали работать макросы. Помню, где-то в tools в vba нужно было снять или поставить галочки. А где и что убрать/ поставить уже не помню! Прошу помощи! Спасибо!  
 
Перейти    
Фиксация расположения кнопки относительно активной ячейки
 
#
31.07.2024 15:32:30
Мистер Экселистор, Спасибо!
 
Перейти    
Фиксация расположения кнопки относительно активной ячейки
 
#
31.07.2024 12:05:04
Спасибо всем за уделенное внимание!
Добавил такой же код с бОльшим диапазоном, и всё заработало...не понятно, но результат достигнут)
Код
            If Not Intersect(Target, Range("E6:E1000")) Is Nothing Then 'Кнопку в ячейку 
                    Shape30.Visible = True 'Кнопка отображена
                    Shape30.Top = Target.Offset(1, 1).Top 
                    Shape30.Left = Target.Offset(1, 1).Left 
                    Shape30.DrawingObject.Caption = ActiveCell.EntireRow.Cells(5) & Chr(10) & ActiveCell.EntireRow.Cells(6) & Chr(10) & ActiveCell.EntireRow.Cells(7)
            End If
            
            If Not Intersect(Target, Range("B6:G1000")) Is Nothing Then 'Кнопку в ячейку С 
                    Shape30.Visible = True 'Кнопка отображена
                    Shape30.Top = Target.Offset(1, 1).Top 
                    Shape30.Left = Target.Offset(1, 1).Left 
                    Shape30.DrawingObject.Caption = ActiveCell.EntireRow.Cells(5) & Chr(10) & ActiveCell.EntireRow.Cells(6) & Chr(10) & ActiveCell.EntireRow.Cells(7)
            End If
 
Перейти    
Фиксация расположения кнопки относительно активной ячейки
 
#
31.07.2024 10:40:20
Дмитрий(The_Prist) Щербаков, Worksheet_SelectionChange
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Наверх