помогите с макросом, есть макрос который подставляет из таблицы справа значение в карточку учета и отправляет в печать как сделать так что бы замена продолжалась дальше до конца таблицы (сама таблица намного больше)
помогите с макросом, есть макрос который подставляет из таблицы справа значение в карточку учета и отправляет в печать как сделать так что бы замена продолжалась дальше до конца таблицы (сама таблица намного больше)Xutto
Сообщение отредактировал Xutto - Вторник, 27.04.2021, 18:00
Xutto, Добрый день! добавил копирование единиц измерений. Вы уверены что цена = сумме из исходной таблицы а не =[сумма]/[количество]?
[vba]
Код
Sub auto_print() Dim lEndRow As Long, i As Long, bOKorCancel As Byte
With Blank lEndRow = .Cells(11, 45).End(xlDown).Row
bOKorCancel = MsgBox("Вы уверены что хотите отправить на печать " & lEndRow - 12 & " страниц?", vbOKCancel) Select Case bOKorCancel Case 2 Exit Sub End Select
For i = 11 To lEndRow - 1 .Cells(14, 12).Value = .Cells(i, 48).Value ' Единица измерений .Cells(14, 19).Value = .Cells(i, 52).Value ' Цена (сдается мне что [цена должна быть]=[сумма]/[количество]) .Cells(16, 11).Value = .Cells(i, 45).Value ' наименование материала .Cells(20, 29).Value = .Cells(i, 51).Value ' остаток .PrintOut copies:=1 Next End With
End Sub
[/vba]
Xutto, Добрый день! добавил копирование единиц измерений. Вы уверены что цена = сумме из исходной таблицы а не =[сумма]/[количество]?
[vba]
Код
Sub auto_print() Dim lEndRow As Long, i As Long, bOKorCancel As Byte
With Blank lEndRow = .Cells(11, 45).End(xlDown).Row
bOKorCancel = MsgBox("Вы уверены что хотите отправить на печать " & lEndRow - 12 & " страниц?", vbOKCancel) Select Case bOKorCancel Case 2 Exit Sub End Select
For i = 11 To lEndRow - 1 .Cells(14, 12).Value = .Cells(i, 48).Value ' Единица измерений .Cells(14, 19).Value = .Cells(i, 52).Value ' Цена (сдается мне что [цена должна быть]=[сумма]/[количество]) .Cells(16, 11).Value = .Cells(i, 45).Value ' наименование материала .Cells(20, 29).Value = .Cells(i, 51).Value ' остаток .PrintOut copies:=1 Next End With
спасибо большое, скрип именно такой какой и хотел. в графу "цена" заполнение из графы "сумма", все правильно прямым переносом без соотношения количества
спасибо большое, скрип именно такой какой и хотел. в графу "цена" заполнение из графы "сумма", все правильно прямым переносом без соотношения количестваXutto
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
