Есть ведомость, где по столбцу А ставиться фильтр по значениям из ячеек с листа Ряды, при отсутствии данных после фильтра по значению ячейки на печать выводится только шапка. Подскажите, как поправить, код, чтобы при отсутствии данных под шапкой ничего не выводилось на печать. Спасибо
Есть файл с 3-мя листами РХ, АХ, Итог. Необходимо на листе Итог в столбце E внести значения, которое будет равно сумме из стоблца + сумме с листа АХ разделенного на число повторений, но чтобы выходили целые числа. Из примера первого наименования, чтобы сумма 898 с листа АХ разбилась на 9 частей целыми числами. Спасибо!
Добрый день. Есть книга с номерами заказов на 3х листах в разных видах. Необходимо найти дублирующиеся значения номеров (желтый столбец) и скопировать их на Лист1. Дубли могут быть как на одном листе так и один номер может быть на 3х листах.
Уважаемые форумчане, подскажите пожалуйста в решении такой задачи.
Есть выделенный диапазоне ячеек в столбце U на листe 1111.
1) Как добавить новые листы с присвоением им имени из этого диапазона (в данном случае даты отгрузки). 2) Если лист с таким названием уже есть, то пропустить.
Добрый день. Необходимо перенести данные с листа "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
Приветствую! Необходимо из таблицы 2 найти наименьшую ячейку или равную высоте паллета в таблице 1, но с пустым содержанием столбца Свободна? Далее перенести её адрес из столбца Ячейки в столбец Адрес таблицы 1. И после этого поставить в столбце Свободна? слово "нет". И так далее до конца таблицы 1. Надеюсь, что вполне доступно к пониманию написал.Спасибо.
Необходимо выводить согласно автофильтра по номеру паспорта, сделал запись макроса на 33 паспорта, но сильно уж громоздкий выходит. И как остановить, если в кол-во паспортов меньше 33. Вот так вышло при Записи макроса: