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

Страницы: 1
Узнать есть ли определенный месяц с годом между интервалом дат
 
Огромное спасибо всем за формулы.
Узнать есть ли определенный месяц с годом между интервалом дат
 
Здравствуйте, подскажите, пожалуйста формулу, чтобы вычилить есть ли определенный месяц с годом в интервале дат B2:C2. Сам день не играет роли, важен только месяц и год  
Сцепить ячейки до последней заполненной строки
 
evgeniygeo, RAN , благодарю Вас за ответы, работает очень быстро.
Сцепить ячейки до последней заполненной строки
 
Здравствуйте, прошу подсказать как можно сцепить ячейки до последней заполненной строки.
У меня есть код, но на большом количестве ячеек он работает долго, можно ли сцеплять ячейки быстрее?
Код
Sub сцепить() 
     Application.ScreenUpdating = False
    For a = 2 To Cells(Rows.Count, 3).End(xlUp).Row
        a2 = Cells(Rows.Count, 8).End(xlUp).Row + 1
         Cells(a2, 8) = (Cells(a, 3) & Cells(a, 4) & Cells(a, 5) & Cells(a, 6))
    Next
     Application.ScreenUpdating = True
End Sub
Перемещение значений ячеек в объединенные ячейки
 
Максим В., да, спасибо огромное, помогло.
Перемещение значений ячеек в объединенные ячейки
 
Добрый день, прошу подсказать как переместить значение ячеек с лист1 на лист2 в объединенные ячейки, кроме как прописывания кодом каждой ячейки в определенное место. Просто их много, можно ли это сделать программно?
В примере, чтобы ячейки данные с С4 по С8 вставали на лист2 во вторую строку горизонтально.  
Действие макроса на все ячейки в столбце
 
Спасибо огромное за ответы!
Действие макроса на все ячейки в столбце
 
Всем здравствуйте, подскажите, как сделать так, чтобы макрос шёл по всему столбцу А, до последней заполненной строки?

Код
    If [B1] Like "*картофель*" Then
    [A1] = "картофель"
    [B1].Replace What:="картофель", Replacement:=""
    Else
    [A1] = "нет"
    End If
Сравнение нескольких ячеек в строках на уникальность
 
aequit, да, всё супер работает. Преогромная благодарность.
Сравнение нескольких ячеек в строках на уникальность
 
Доброго времени суток.
Подскажите, пожалуйста, как можно сравнить несколько ячеек в разных строках на уникальность.
В столбце А нужно найти определенные значения всего 2 группы: "16" и "16,5"  и вторая группа "54" и "54,5", и сравнить значения в столбце С на уникальность.
То, есть А4 = 16, С4 = Пепси Кола,  А5 = 16,5, С5 = Пепси Кола, данные равны, значит нужно применить макрос1, если неравны, то применить макрос2.
То же А7 = 54, С7 = Газировка Киви,  А8 = 54,5, С8 = Газировка Манго, данные неравны, значит нужно применить макрос2.
Удаление строк после ячейки с определенными данными
 
Kuzmich, спасибо Вам огромное. Все отлично работает.
Удаление строк после ячейки с определенными данными
 
Всем здравствуйте, подскажите, пожалуйста как макросом удалить 10 пустых строк, после строки в которой в ячейке А1 есть значение "Всего"?
Программно прописать в combobox выбор элемента из списка
 
Юрий М, спасибо огромное, это помогло.
Программно прописать в combobox выбор элемента из списка
 
Всем спасибо за ответы. Уважаемые, Nordheim и Dima S, сделали почти как надо, только у Вас известные значения, а у меня combobox берет значение из таблицы, которая изменяется и все данные в ней завтра могут быть заменены, поэтому я не могу прописать конкретные имена значений. Нужно чтобы был выбран любой элемент из списка, но имя его не известно.
Программно прописать в combobox выбор элемента из списка
 
Здравствуйте, подскажите пожалуйста, как прописать проверку в combobox1 с таким условием, если выбран элемент из списка combobox1, то listbox1.SetFocus.
Никак не пойму как прописать именно условие, что выбран один из элементов в combobox.
Календарь с свободным вводом даты
 
U_M0KRHб преогромнейшая благодарность и бесконечного Вам здоровья!!!
Календарь с свободным вводом даты
 
Здравствуйте, понравился календарь, но в нем не свободного вывода даты, помогите пожалуйста реализовать, чтобы когда вводишь в textbox1 дату в формате dd.mm.yyyy (точки автоматом ставились) и нажимаешь enter, то календарь закрывался, а в ячейку C5 вставала дата в этом формате.
Заливка чередующихся строк с помощью VBA
 
Благодарю за помощь!
Заливка чередующихся строк с помощью VBA
 
Здравствуйте, подскажите, пожалуйста, как с помощью VBA сделать цветные чередующие строки,  Знаю как сделать в УФ, но это не подходит, потому что приходится удалять строки и УФ "сбивается".
Изменено: Kislota - 22.06.2017 11:21:18
Макрос - удаление дубликатов при перемещении на другой лист
 
Михаил Лебедев, благодарю, всё работает быстро и чётко
Макрос - удаление дубликатов при перемещении на другой лист
 
Доброго времени суток, есть макрос, который удаляет дубликаты  и  переносит их на другой лист, но нужно добавить еще одно условие, в  столбце O идут разные услуги, нужно, чтобы макрос добавлял только те  даты на другой лист, если в столбце O стоит услуга  "Выезд".
Иначе даты дублируются, если в один день оказано больше одной услуги. Не могли бы, пожалуйста, поправить этот момент?
Страницы: 1
Наверх