Заполнение спецификации макросом - Страница 2

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение спецификации макросом (Макросы/Sub)

Заполнение спецификации макросом

HeoH

Дата: Вторник, 29.11.2016, 15:12 | Сообщение № 21

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

Ранг: Новичок

Сообщений: 21

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

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

Excel 2013

nilem, не пойму где вставить эти строчки

Ответить

HeoH

Дата: Вторник, 29.11.2016, 15:13 | Сообщение № 22

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

Ранг: Новичок

Сообщений: 21

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

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

Excel 2013

SLAVICK, прочитал правила еще 2 раза!!!! там нету запрета на пересылку файла по почте!

Ответить

HeoH

Дата: Вторник, 29.11.2016, 15:15 | Сообщение № 23

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

Ранг: Новичок

Сообщений: 21

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

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

Excel 2013

у меня уменьшенный сразу открывается с ошибками

Ответить

SLAVICK

Дата: Вторник, 29.11.2016, 15:17 | Сообщение № 24

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

[offtop]

Цитата HeoH, 29.11.2016 в 15:13, в сообщении № 22

прочитал правила еще 2 раза!!!! там нету запрета на пересылку файла по почте!

Вам уже два раза ответили в этой теме:

Цитата HeoH, 29.11.2016 в 14:59, в сообщении № 17

o - предлагать собеседнику перейти в личные отношения (ЛС, SkyPe, ICQ, Агент и проч...), кроме форума "Фриланс";

Цитата Pelena, 29.11.2016 в 14:45, в сообщении № 14

Вы меня сейчас просто подставили, потому что в правилах четко сказано, что запрещено переходить в личку в бесплатном разделе форума.

[/offtop]

Иногда все проще чем кажется с первого взгляда.

Ответить

HeoH

Дата: Вторник, 29.11.2016, 15:21 | Сообщение № 25

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

Ранг: Новичок

Сообщений: 21

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

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

Excel 2013

nilem, ты наверное имел ввиду в этих строчках -
[vba]

Код

Worksheets(res).Shapes("Group10").Copy
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr10range)

[/vba]
не group10 а group4

не помогло
ошибка снова указывает на -
[vba]

Код

ActiveSheet.Shapes("group4").Select

[/vba]

Ответить

nilem

Дата: Вторник, 29.11.2016, 15:45 | Сообщение № 26

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Еще и цикл есть...
Погонял несколько раз - фурычит:
[vba]

Код

Sub Go_1456()
Dim adcc As Integer
Application.ScreenUpdating = False ' *** отключение обновления экрана
.....
'Копируем штамп на 1 лист----------------
Worksheets(res).Shapes("Group10").Copy
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr10range) '***
.......
'копируем данные и штампы на следующие листы ****
Dim l As Long, crow As Long, crowv As Long
crow = 37
crowv = 23
For l = 2 To (npages + 1)
    '-----------------------------------
    Dim p As Long, u As Long
.......
    'добавляем основной штамп   ****
    Worksheets(res).Shapes("group4").Copy
    Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))
.......
'это в самом конце цикла
    crow = crow + 30
    crowv = crowv + slnr
    '------------------------****
    DoEvents
    Application.CutCopyMode = False
Next
.......
Application.ScreenUpdating = True
End Sub

[/vba]
это вот кусочки кода, которые изменил

UPD
DoEvents - чтобы перевести дух, т.к. код....

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Вторник, 29.11.2016, 15:54

Ответить

HeoH

Дата: Среда, 30.11.2016, 06:50 | Сообщение № 27

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

Ранг: Новичок

Сообщений: 21

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

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

Excel 2013

овсе равно ошибка и ссылается на туже строчку -
[vba]

Код

ActiveSheet.Shapes("group4").Select

[/vba]

Заметил такую вещь что утро когда прихожу на работу к 8:30 эта специфа полностью работает
возможно ли что там защита какая нибудь или еще чего?

хотя тоже не понятно
2 раза прошло успешно
3ий раз с ошибкой
[vba]

Код

Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))

[/vba]
4 раз успешно
5ый раз с ошибкой
[vba]

Код

Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))

[/vba]
6,7 раз успешно
это на том файле который был изначально, без внесения всех здешних изменений

оказывается неправильно сделал вставку
вставил еще раз в код и все работает с утра отлично!
Нилем БЛАГОДАРЮ ТЕБЯ!

Сообщение отредактировал HeoH - Среда, 30.11.2016, 07:16

Ответить

Nikolay226

Дата: Понедельник, 06.04.2020, 17:19 | Сообщение № 28

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

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

Сообщений: 3

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

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

Excel 2010

Доброго времени всем!
К сожалению не владею VBA, поэтому прошу форумчан помочь отредактировать макрос http://www.excelworld.ru/_fr/313/_small_.rar из поста HeoH Вторник, 29.11.2016, 14:30 | Сообщение № 13
Сейчас макрос, при печати спецификации, выводит строку с нумерацией столбцов спецификации 1, 2, 3 и т.д. под "шапкой". Согласно ГОСТ 21.110-2013 СПДС этой строки не должно быть (получаем замечания от экспертизы). Вывод этой строки в спецификацию, в макросе нашел и закомментировал. Спецификация формировалась на 23 строки для первого листа и на 26 строк для последующих, в это число входила и эта закомментированная строка. В итоге получаются большие поля сверху/снизу и нужно корректировать область печати. Помогите сделать так, чтобы теперь на первом листе выводилось 24 строки, а на последующих 27. Где и как исправить макрос для решения этой не сложной задачи не нашел.