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

Страницы: 1
Макрос отметки смены дат
 
Да, то самое, большое спасибо за помощь)
Макрос отметки смены дат
 
Заполнение ячейки с датой
Макрос отметки смены дат
 
Да, спасибо за предложенный способ) такой я уже пробовал, единственная у него проблема это то что он плохо работает с фильтрами, когда делаешь выборку)
поэтому и хотелось бы макросом)
Макрос отметки смены дат
 
День добрый, имеется таблица в одном из столбцов заполняется дата, в формате 02.06.2018, как окрасить ячейку первого значения смены дат
например
01.06.2018
01.06.2018
02.06.2018 (ячейка окрашена)
02.06.2018
Сам уже полдня думаю, пока не смог придумать решение(((
Поиск значения выбираемого из списка и дальнейшее вычитание
 
получается каждая кнопка отдельно для каждого выпадающего списка
Поиск значения выбираемого из списка и дальнейшее вычитание
 
С активной, т.к. если брать по примеру то будет 6 кнопок
Поиск значения выбираемого из списка и дальнейшее вычитание
 
А подскажите, попользовавшись возникла необходимость чтобы это событие отрабатывалось по нажатию на button находящийся на листе, попытался переделать не получилось, в ответ получаю либо "не опциональный аргумент" либо другие ошибки, как это сделать?
Заранее спасибо
Поиск значения выбираемого из списка и дальнейшее вычитание
 
Супер, очень круто!
Спасибо большое!)))
Поиск значения выбираемого из списка и дальнейшее вычитание
 
Пример:
Если в А4 выбрано из списка "текст 4" то вычитать нужно из D2 A5 причем чтобы результат вычитания остался в D2
и т.д. по аналогии
Поиск значения выбираемого из списка и дальнейшее вычитание
 
Доброе время суток. Возникла проблема с тем, что чтобы из найденной ячейки произвести вычисления и результат вычисления должен оставался в той ячейке где значение изначально имеется. Примерная табличка приложена в файле.

Вот таким кстати макросом я пользовался, а под образовавшуюся задачу пока придумать не получается
Код
    Dim TextForFind, Adr, iRng As Range
        With Лист7.Range("B2:G2") ' Это зона поиска
            TextForFind = Лист7.Range("B12").Value 'Это текст который является параметром поиска
                Set iRng = .Find(what:=TextForFind, LookIn:=xlFormulas, lookat:=xlPart)
                If Not iRng Is Nothing Then
                    Лист7.Range("B20").Value = Лист7.Cells(iRng.Row + 2, iRng.Column).Value ' Это ячейка куда пишем ответ
                Else: Лист7.Range("B20").Value = "Нет такого!"
                End If
        End With

Желательно решение макросом.
Заранее спасибо!
Страницы: 1
Наверх