перенос строк в макросе

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

перенос строк в макросе (Макросы/Sub)

Xutto

Дата: Понедельник, 26.04.2021, 19:05 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

помогите с макросом, есть макрос который подставляет из таблицы справа значение в карточку учета и отправляет в печать
как сделать так что бы замена продолжалась дальше до конца таблицы (сама таблица намного больше)

Сообщение отредактировал Xutto - Вторник, 27.04.2021, 18:00

Ответить

Sancho

Дата: Вторник, 27.04.2021, 13:04 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

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]

К сообщению приложен файл: _0504043-1-.xls (370.5 Kb)

Ответить

Xutto

Дата: Вторник, 27.04.2021, 16:23 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

спасибо большое, скрип именно такой какой и хотел.
в графу "цена" заполнение из графы "сумма", все правильно прямым переносом без соотношения количества

Ответить

перенос строк в макросе (Макросы/Sub)

Страница 1 из 1
1