Есть ведомость, где по столбцу А ставиться фильтр по значениям из ячеек с листа Ряды, при отсутствии данных после фильтра по значению ячейки на печать выводится только шапка. Подскажите, как поправить, код, чтобы при отсутствии данных под шапкой ничего не выводилось на печать. Спасибо
Есть файл с 3-мя листами РХ, АХ, Итог. Необходимо на листе Итог в столбце E внести значения, которое будет равно сумме из стоблца + сумме с листа АХ разделенного на число повторений, но чтобы выходили целые числа. Из примера первого наименования, чтобы сумма 898 с листа АХ разбилась на 9 частей целыми числами. Спасибо!
Добрый день. Есть книга с номерами заказов на 3х листах в разных видах. Необходимо найти дублирующиеся значения номеров (желтый столбец) и скопировать их на Лист1. Дубли могут быть как на одном листе так и один номер может быть на 3х листах.
Уважаемые форумчане, подскажите пожалуйста в решении такой задачи.
Есть выделенный диапазоне ячеек в столбце U на листe 1111.
1) Как добавить новые листы с присвоением им имени из этого диапазона (в данном случае даты отгрузки). 2) Если лист с таким названием уже есть, то пропустить.
1) Да, между оранжевыми полосами одна дата. 2) По существующим датам в столбце L на основном листе создаются новые листы с соответствующими датами ( 06.12.2018, 07.12.2018, 11.12.2018). Если заявки перенесены на соответствующие листы по дате, то удаляются с основного листа, т.е. разово, по нажатию кнопки.
Добрый день. Необходимо перенести данные с листа "TDSheet" на листы согласно даты загрузки по столбцу L. Если в столбце L дата 06.12.2018, то создать лист с таким названием и перенести все строки заявки включая и оранжевую с итого. Спасибо.
Добрый день. Необходимо раскинуть данные с листа "TDSheet" по листам согласно даты загрузки по столбцу L. Если в столбце L дата 06.12.2018, то создать лист с таким названием и перенести все строки заявки включая и оранжевую с итого. Спасибо.
Приветствую. Необходимо копировать значение ячейки в пустые ячейки по столбцу до появления в нем нового значения. При достижении нового значения в ячейке, продолжить копировать это новое значение. Не знаю на сколько понятно, но в примере, думаю, будет доступно к пониманию) Заранее благодарю.
Добрый день. Если значение из L столбца есть в столбце B, то значение в столбце D необходимо поменять на "нет". По одной ячейке смог сделать, а как сделать, чтобы все значения ячеек из диапазона или столбца L.
Код
Sub Стик()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Range("B1:B" & iLastRow).Select
iLastRow = Selection.Rows.Count
For i = 1 To iLastRow
If Selection.Cells(i, 1) = Range("L7") Then
Selection.Cells(i, 1).Offset(, 2) = "нет"
End If
Next
End Sub
Нашел как найти наименьшую, но больше или равной высоте: {=ИНДЕКС($E$3:$G$25;ПОИСКПОЗ(МИН(ЕСЛИ($G$3:$G$25<C4;"";$G$3:$G$25));$G$3:$G$25;0);1)} Не получается добавить условие поиска, чтобы столбец Свободна? был пуст. И как затянуть такую формулу в макрос?
Приветствую! Необходимо из таблицы 2 найти наименьшую ячейку или равную высоте паллета в таблице 1, но с пустым содержанием столбца Свободна? Далее перенести её адрес из столбца Ячейки в столбец Адрес таблицы 1. И после этого поставить в столбце Свободна? слово "нет". И так далее до конца таблицы 1. Надеюсь, что вполне доступно к пониманию написал.Спасибо.
Sub Proverka() If Range("M3") > 0 Then Call Pechat 'Else 'MsgBox "Нет паспорта с таким №" End If End Sub
Sub Pechat() Range("A4").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Application.Dialogs(xlDialogPrint).Show End Sub
Необходимо выводить согласно автофильтра по номеру паспорта, сделал запись макроса на 33 паспорта, но сильно уж громоздкий выходит. И как остановить, если в кол-во паспортов меньше 33. Вот так вышло при Записи макроса: