Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Напоминание по дате/времени
 
MikeVol, спасибо большое!!!
Напоминание по дате/времени
 
MikeVol, Подпилил, докрутил. Заработало. Помогите, пожалуйста, чтобы при срабатывании активировалась/выделялась ячейка с датой строки с напоминанием, которое сработало.
СПАСИБО!
Напоминание по дате/времени
 
IKor, как вариант, но в общей книге лист Календарь всегда не активен, могу пропустить событие
Напоминание по дате/времени
 
MikeVol, заполнил строки ниже - заработал код. Но, при открытии книги, если время/дата прошло - не срабатывает.
Код
Private Sub Workbook_Open()
    StartChecking
    CheckTask
End Sub
не помогает


 
Напоминание по дате/времени
 
MikeVol, ничего не происходит
Изменено: evg_glaz - 21.04.2025 14:08:31
Напоминание по дате/времени
 
Цитата
написал:
Ваш файл обрушил мой офис
Капец!!! Файл вновь созданный, из макросов только код часов, больше ничего!
Не понимаю, как такое могло произойти....
Видимо после такого мне вряд ли кто-то решиться помочь((
Напоминание по дате/времени
 
Доброго времени суток!
Прошу помочь:
В табличке столбец G - дата, в соседнюю ячейку - время, далее - задача.
Прошу помочь чтобы при совпадении даты и времени с сейчас срабатывало какое нибудь событие (н-р ячейка Е6 меняла цвет, ну или чтото, дальше сам под себя допилю.
У меня этот лист в файле не всегда открыт, потому что то срабатывать (мигать/пищать) будет на соседнем листе.
Мысль моя такова - вся процедура срабатывает по Worksheet_Change в ячейке Е6 (там часы)
Найденные в инете коды либо вешают Ексель, либа с моими руками не работают))))
Спасибо!
Изменено: evg_glaz - 18.04.2025 14:25:41
Прекращение работы макроса, если в книге скопирована информация
 
Sanja, добрый день! Никак не пойму куда код вставить... Допустим я открыл файл Ексель и что то там скопировал, как моя основная книга поймет, что выполнение макроса нужно остановить?
Прекращение работы макроса, если в книге скопирована информация
 
Sanja, СПАСИБО! Буду тестить
Прекращение работы макроса, если в книге скопирована информация
 
Добрый день!
Подскажите, пожалуйста, как прописать в коде ситуацию, когда буфер обмена не пуст (копирование в любом файле Ексель, в том числе, в котором код), то в файле в котором код прекращается работа макроса (End Sub).
Поиск первой пустой ячейки в диапазоне
 
Доброго дня!
Поскажите, в чем может быть дело:
Код
Код
        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
 
Sanja, дома реже, чем на работе( вроде всё понятно написал...
Подсветка ячейки листа 1 при совпадении условий на листе 2
 
Доброго дня!
На листе 1 в ячейке А1 время онлайн (обновляется каждые 30 сек). На листе 2 в столбце А - даты событий, в столбце В - время срабатывания событий (напоминалка своеобразная).
Как прописать, чтобы при совпадении на листе 2 даты (с текущей) и времени из столбца В листа 2 с фактическим (берем из ячейки А1 листа 1, чтобы срабатывало по событию в Worksheet_Change), ячейка А1 листа 1 мигала (два цвета указаны в ячейках В1 и С1 листа 1).
Пример приложить возможности нет, прошу прощения!
Буду благодарен за помощь!
При прокрутке листа именованный диапазон всегда виден
 
MikeVol, бывает)  
При прокрутке листа именованный диапазон всегда виден
 
MikeVol, алилуйя!!! Спасибо! Оно самое!
При прокрутке листа именованный диапазон всегда виден
 
Цитата
написал:
Ну значит это был не просто именованный диапазон
Вполне возможно....
При прокрутке листа именованный диапазон всегда виден
 
Hugo, не.... просто при прокрутке листа календарь перемещался и оставался на месте относительно экрана (конечно на изначально "чистом"месте листа, вне таблицы,  иначе удалял из ячеек, через которые переместился, все данные
При прокрутке листа именованный диапазон всегда виден
 
Sanja, возможно, но решение было. Жду помощи)  
При прокрутке листа именованный диапазон всегда виден
 
Sanja, точно есть такое, у меня было... жёсткий сгорел, ничего не сохранилось, но у меня работало. И, видимо, код брал где-то здесь
При прокрутке листа именованный диапазон всегда виден
 
Добрый день! Возможно была такая тема, но найти не могу.
Есть именованный диапазон "Календарь". Календарь с права от основной таблицы. Как сделать, чтобы при прокрутке листа календарь был виден всегда (т.е. был динамичным).
Файл прикрепить не имею возможности, прошу прощения!!!
Перестали работать макросы после переустановки системы
 
Sanja, во! Точно! Спасибо! Надеюсь поможет!  
Перестали работать макросы после переустановки системы
 
Sanja, подскажите, пожалуйста, где. Да, ошибки и в разных кодах. Такое было после первой переустановки и делал манипуляции из моего первого сообщения, а что делал и где толком не помню, но всё исправилось
Перестали работать макросы после переустановки системы
 
Доброго дня! После переустановки системы перестали работать макросы. Помню, где-то в tools в vba нужно было снять или поставить галочки. А где и что убрать/ поставить уже не помню! Прошу помощи! Спасибо!  
Фиксация расположения кнопки относительно активной ячейки
 
Мистер Экселистор, Спасибо!
Фиксация расположения кнопки относительно активной ячейки
 
Спасибо всем за уделенное внимание!
Добавил такой же код с бОльшим диапазоном, и всё заработало...не понятно, но результат достигнут)
Код
            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
Фиксация расположения кнопки относительно активной ячейки
 
Дмитрий(The_Prist) Щербаков, Worksheet_SelectionChange
Фиксация расположения кнопки относительно активной ячейки
 
Мистер Экселистор, добрый день!
Нет возможности выложить файл - корпоративный интернет....
Фиксация расположения кнопки относительно активной ячейки
 
Sanja,
Цитата
написал:
Проблемный Файл-пример приложите
нет возможности - корпоративный интернет, прошу прощения!
Фиксация расположения кнопки относительно активной ячейки
 
Sanja, с Target тоже самое
И в соседней вкладке всё ОК
Изменено: evg_glaz - 30.07.2024 16:21:00
Фиксация расположения кнопки относительно активной ячейки
 
Доброго дня!
Есть файл, в нем 2 вкладки с двумя списками телефонов. Диапазоны в обоих вкладках одинаковые: столбец Е - ФИО, F - телефон.
Код в обоих вкладках          
Код
            If Not Intersect(Target, Range("E6:G1000")) Is Nothing Then 'Кнопку в ячейку 
                    Shape30.Visible = True 'Кнопка отображена
                    Shape30.Top = ActiveCell.Offset(1, 1).Top 
                    Shape30.Left = ActiveCell.Offset(1, 1).Left
                    Shape30.DrawingObject.Caption = ActiveCell.EntireRow.Cells(5) & Chr(10) & ActiveCell.EntireRow.Cells(6)
            End If                       
В одной вкладке кнопка расположена всегда как задумано - в ячейке вниз по диагонали правым углом в правом углу ячейки, во второй - прыгает то так, то сяк... Свойства кнопок совершенно одинаковые.
В чем может быть дело? подскажите, пожалуйста!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Наверх