Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/перенос строк в макросе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » перенос строк в макросе (Макросы/Sub)
перенос строк в макросе
Xutto Дата: Понедельник, 26.04.2021, 19:05 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал Xutto - Вторник, 27.04.2021, 18:00
 
Ответить
Сообщениепомогите с макросом, есть макрос который подставляет из таблицы справа значение в карточку учета и отправляет в печать
как сделать так что бы замена продолжалась дальше до конца таблицы (сама таблица намного больше)

Автор - Xutto
Дата добавления - 26.04.2021 в 19:05
Sancho Дата: Вторник, 27.04.2021, 13:04 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 264
Репутация: 18 ±
Замечаний: 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, Добрый день!
добавил копирование единиц измерений. Вы уверены что цена = сумме из исходной таблицы а не =[сумма]/[количество]?

[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]

Автор - Sancho
Дата добавления - 27.04.2021 в 13:04
Xutto Дата: Вторник, 27.04.2021, 16:23 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Xutto
Дата добавления - 27.04.2021 в 16:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » перенос строк в макросе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!