_Igor_61, спасибо, попробую  

buchlotnik, выдает вот такую ошибку:
Чувствует мое сердце, что нужно просить  Excel 2019

Юра1987, спасибо большое, но ОБЪЕДИНИТЬ мне уже предлагали, у меня версия Excel  на работе не поддерживает эту функцию   поэтому обратились к PQ.  

Здравствуйте! В этой теме buchlotnik предложил запрос данных из таблицы, но работает запрос немного неправильно, подробности я описала внутри книги. Помогите, пожалуйста!

Удалить дубликаты я могу, только если копирую таблицу, вставляю ее как значения на другой лист. Неужели на этом же листе совсем нельзя?  Мне нужен вид, как на втором листе книги

Таблица видоизменена, и если честно, то я вообще не понимаю что вы в ней делали. Мне нужен первоначальный вид, только без дубликатов. Таблица синхронизируется с другим документом и из нее заполняется форма для печати документов. Менять местами столбцы и группировать по ТК нельзя

Все, вопросов больше нет просто сохранять в существующий лист, а при вставке новых данных обновлять  Теперь мне нужно понять как удалить дубликаты, в этой же таблице недоступно "удалить дубликаты"

 PQ есть, дома, а вот на работе какая версия не знаю. Узнаю только завтра  С PQ никогда не работала и только сегодня узнала о существовании. Буду разбираться куда это все вставить  

Делаю: получить данные из таблицы, выделяю таблицу, открывается расширенный редактор, стираю все что там написано, вставляю запрос. Шипменты собираются, но столбец А открывается на новом листе, а не сразу в таблице. Так и должно быть или я что-то делаю не так? И еще, мне нужно будет каждый раз делать запрос, когда вставляю новую таблицу, с новыми данными?

 PQ есть, дома, а вот на работе какая версия не знаю. Узнаю только завтра  С PQ никогда не работала и только сегодня узнала о существовании. Буду разбираться куда это все вставить    

_Xlfn. префикс отображается перед функцией в формуле. При вычислении формулы отображается #NAME. Видимо моя версия Excel не поддерживает эту функцию

Спасибо большое! Это просто чудо, даже макроса не надо)))

Здравствуйте, помогите написать макрос, который будет объединять данные из нескольких ячеек в одну. Все подробно написала в книге! На данный момент пользуюсь функцией СЦЕПИТЬ, но это занимает очень много времени.

И убивать тоже. Вы просто все супер УМЫ !!! Что бы я без вас делала. Спасибо за участие! Книга полностью готова к работе

Все, уже не надо! Решила сама. =ТДАТА()-ВРЕМЯ(8;0;0)

Вы меня сейчас убьете, но у меня новая проблема с датой.

Предположим рабочая смена 28.02.2020  20:00 - 29.02.2020  08:00

И не зависимо от того какого числа грузятся маршруты  и во сколько я их распечатаю (ночью или вечером)  в ячейке G54 (лист1)  должна быть дата начала рабочей смены (в данном случае 28.02.20).  12.xlsm (36.12 КБ)  

Получается, что и время можно так же?
Нет, время пишется с датой

Вы меня сейчас убьете, но у меня новая проблема с датой.

Предположим рабочая смена 28.02.2020  20:00 - 29.02.2020  08:00

И не зависимо от того какого числа грузятся маршруты  и во сколько я их распечатаю (ночью или вечером)  в ячейке G54 (лист1)  должна быть дата начала рабочей смены (в данном случае 28.02.20).  12.xlsm (36.12 КБ)  

Да, но в 6 столбце есть еще и время, а оно мне в В5 не нужно

Я поняла, как это сделать!!!!! Помогите с помощью регулярки сделать столбец, который будет вытаскивать из столбца F дату. Вы ГЕНИЙ ! Работает !!! Ура-ура! А еще мне тут в голову мысль пришла, что дату можно было регуляркой выдергивать из столбца F на листе2, как на данный момент выдергивается время погрузки в ячейку G    Но не факт, что график отгрузки всегда будет приходить в таком виде, бывает и без даты...
Всем огромное спасибо! Завтра на работе протестирую

Проблема в том, что форма на листе1 - картинка в настоящей книге, и именно она много весит. Но как выглядит форма вы видели. Я удаляю картинки, останутся только заполненные ячейки. И ячейка с датой теперь В5.   12.xlsm (33.04 КБ)  

Не поняла, в таблицу добавить столбец с этой формулой? А из него уже заполнять С7 на 1 листе? Или как? И почему L2?

Скинуть полный документ не могу, много весит, а в этом много формул не хватает. Макрос на кнопку печать:

Скрытый текст

Скрытый текст Sub опросник() Dim intF As Integer intF = MsgBox("Можный,v Реганто, края добавлены в список?", vbYesNo + vbDefaultButton2 + vbInformation, "Подтверждение") If intF = vbNo Then MsgBox "Ошибка" & vbNewLine & _ "Отмена печати", vbCritical + vbOKOnly Exit Sub Else iCount = Application.InputBox("Введи количество маршрутов:") If iCount = "" Or iCount < 1 Then MsgBox "Ошибка" & vbNewLine & _ "Отмена печати", vbCritical + vbOKOnly Exit Sub End If With Sheets("Лист1") .Visible = True For I = 1 To iCount .Range("J2").Value = I .PrintOut Next .Visible = False End With MsgBox "Печать завершена", vbInformation + vbOKOnly End If Sheets("Лист2").Select End Sub

В настоящей книге ячейка J2 (лист1)   перелистывает номера маршрутов (лист2 столбец1), а из сторок заполняются данные на листе1 и выводится на печать. Не представляю как тут можно еще и выбор даты сделать на С7.
Книга с заполнением 1 листа (через ВПР)   Книга2.xlsm (37 КБ)  

Не работает, при печати любого времени дает одну и ту же дату   , а точнее сегодня()-1

Здравствуйте, в прошлый раз я не все условия учла и абра кадабра получилась :

Нужно заполнить ячейку С7 (лист1) датой по условиям, при массовой печати с автозаполнением (листа1) из таблицы (лист2) Книга2.xlsm (36.89 КБ)      :
1) ЕСЛИ (ЧАС(ТДАТА()) >20  и  (лист2) f2-f28 > 20:00, то СЕГОДНЯ()
2) ЕСЛИ (ЧАС(ТДАТА()) >0    и  (лист2) f2-f28 > 20:00, то СЕГОДНЯ()-1
3) ЕСЛИ (ЧАС(ТДАТА()) >0    и  (лист2) f2-f28 > = 00:00, то СЕГОДНЯ()
4) ЕСЛИ (ЧАС(ТДАТА()) >20  и  (лист2) f2-f28 > = 00:00, то СЕГОДНЯ()+1

Возможно это все уместить в одной формуле, для одной ячейки?
Например рабочая смена с 20:00 27.02.20 до 08:00 28.02.20.

По таблице лист2:
1 маршрут Фомин должен начать грузиться в 22:00 27.02.20
Если документы на него распечатать вечером 27.02.20, то должна указываться дата 27.02.20 (сегодня())
А если печать ночью, после 0:00, то тоже должна быть дата 27.02.20, но это уже будет (сегодня()-1)

2 маршрут Безъязыков должен начать грузиться в 03:00 28.02.20
Если печатать его вечером 27.02.20, то должна быть дата 28.02.20 (сегодня()+1)
А если печатать ночью, после 0:00, то тоже должна быть дата 28.02.20, но это уже будет (сегодня())
И все это в одной ячейке листа1 С7

Так как печать массовая, то все даты должны подбираться автоматически.

Спасибо большое!   Если бы я не была чайником, мне бы и прятать ничего не пришлось. Все работает!  

А в какое место это вставить в макрос? Или что в нем заменить? Форма на листе1 заполняется из таблицы (лист2) сменой значения ячейки J2 (массовая печать с автозаполнением). Так вот мне нужно лист2 оставить открытым для внесения данных в таблицу, а форму (лист1) скрыть, но в скрытом виде она не выводится на печать (ошибка). Поэтому перед печатью показать, после печати скрыть.

Скрытый текст

Sub Опросник() Dim intF As Integer intF = MsgBox("МОЖНЫЙ, РЕГАНТО И КРАЯ ДОБАВЛЕНЫ В СПИСОК?", vbYesNo + vbDefaultButton2 + vbInformation, "ПОДТВЕРЖДЕНИЕ") If intF = vbNo Then MsgBox "ЧТО ЗА БИГУДИ ОПЯТЬ?" & vbNewLine & _            "ДАВАЙ, СОБЕРИСЬ УЖЕ!", vbCritical + vbOKOnly            Exit Sub Else iCount = Application.InputBox("ВВЕДИ КОЛИЧЕСТВО МАРШРУТОВ!:") If iCount = "" Or iCount < 1 Then    MsgBox "ЕСЛИ ТАК БУДЕТ ПРОДОЛЖАТЬСЯ" & vbNewLine & _            "ЗАБЛОКИРУЮ КОМП И БУДЕШЬ ВРУЧНУЮ ПИСАТЬ!", vbCritical + vbOKOnly            Exit Sub  End If Sheets("Лист1").Select For I = 1 To iCount    Range("J2").Value = I    ActiveSheet.PrintOut Next MsgBox "МЫ ЭТО СДЕЛАЛИ!", vbInformation + vbOKOnly End If Sheets("Лист2").Select End Sub

Здравствуйте, макрос на печать активного листа (в этом случае лист1). Встала острая необходимость прятать лист1 (форму) от корявых ручек. Можно в этом макросе перед печатью показывать скрытый лист1, а сразу после печати скрывать его?

Alec Perle, тоже работает, спасибо!

Спасибо ОГРОМНОЕ! Вы мне очень помогли!

А нельзя просто прописать формулу типа "ЕСЛИ текущее время от 20-00 до 23-59, то Сегодня()+1, в противном случае Сегодня()" в любую ячейку, чтобы не заморачиваться с макросами. Не могу сама такую прописать, не хватает знаний. Сама смогла придумать только две кнопки на листе: "текущая (сегодня()" и "след. дата (сегодня()+1", которые при нажатии заполняют мне одну и ту же ячейку. Но это не удобно, хотелось бы автоматизировать. Загрузить книгу не могу, большой размер. Адрес ячейки : Лист1 В5

Здравствуйте, подскажите, как сделать, чтобы дата прописывалась, в зависимости от времени печати? Например я печатаю документ 23.02.2020  в  23:00, то дата (=сегодня()) будет 23.02.2020, а мне нужно, чтобы дата была 24.02.2020. Но если я печатаю документ 24.02.2020 в 00:00, то дата должна оставаться 24.02.2020.
То есть мне нужно чтобы в зависимости от времени распечатывания документа (с 20:00 - до 00:00) указывалась дата (=сегодня()+1), а если печать документа (с 0:00 до 08:00) указывалась дата (=сегодня()).  То есть в любом случае мне нужно получить 24.02.2020.