Копирование данных внутри файла и в отдельный файл

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных внутри файла и в отдельный файл (Макросы/Sub)

vitek73

Дата: Среда, 20.02.2019, 10:53 | Сообщение № 1

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

Ранг: Участник

Сообщений: 54

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

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

Excel 2010

День добрый.
есть разные файлики,(FFS,LC,SCE,SK-712W) внутри которых ведётся архив,файлы разделены по типам оборудования, в каждом написан однотипный макрос, который копирует данные на другой лист, того же файла,
и есть ещё файл (УЧЁТ всех) в котором записан просто архив, но со всех файлов, ( в ручную)
и вопрос, как можно, откоректировать макрос чтоб он делал копию помимо другово листа, попутно и в другой файл?,я пока в этом не разберусь никак,

К сообщению приложен файл: 9238191.xlsm (26.0 Kb) · SK-712W.xlsm (71.7 Kb)

vitёk73

Ответить

vitek73

Дата: Среда, 20.02.2019, 10:55 | Сообщение № 2

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

Ранг: Участник

Сообщений: 54

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

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

Excel 2010

сам макрос на всех файликах, кроме (УЧЁТ всех)однотипный,
[vba]

Код

Sub MyMakros3()
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
'выполнение по гиперссылки учёт SCE сибустры

'Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim r
    r = Sheets(2).[c1000000].End(xlUp).Row + 1
    ' (строка, столбец)
       ' куда копируем, откуда копируем
    Sheets(2).Cells(r, 6) = Sheets(1).Cells(3, 8) ' Заказ производства  (1)
    Sheets(2).Cells(r, 2) = Sheets(1).Cells(4, 9) ' Дата    (2)
    Sheets(2).Cells(r, 3) = Sheets(1).Cells(6, 8) 'серийник вило    (3)
    Sheets(2).Cells(r, 4) = Sheets(1).Cells(5, 8) 'артикул вило (4)
    Sheets(2).Cells(r, 10) = Sheets(1).Cells(7, 8) 'тип шкафа    (5)
'   Sheets(2).Cells(r, 6) = Sheets(1).Cells(5, 19) 'количество насосов  (6)
    Sheets(2).Cells(r, 8) = Sheets(1).Cells(11, 7) 'Фамелия сборщика    (7)
    Sheets(2).Cells(r, 9) = Sheets(1).Cells(14, 7) 'Фамелия тестировщика    (8)
    Sheets(2).Cells(r, 12) = Sheets(1).Cells(4, 16) 'время   (9)
    Sheets(2).Cells(r, 13) = Sheets(1).Cells(4, 19) 'время окончания    (10)
   ' Sheets(2).Cells(r, 18) = Sheets(1).Cells(54, 7) 'мощьность насосов (18)
End Sub

[/vba]
При нажатие на ссылку на 1ой вкладки данные копируются на на вторую,
а в идеале, нужно чтоб эти же данные дублировались но с записью в другой файл, в который так же будут дублироваться с других источников.
некоректность вопроса исправлена, в ожидание подсказки ответа

сам макрос на всех файликах, кроме (УЧЁТ всех)однотипный,
[vba]

Код

vitёk73

Сообщение отредактировал vitek73 - Четверг, 21.02.2019, 10:04

Ответить

Сообщениесам макрос на всех файликах, кроме (УЧЁТ всех)однотипный,
[vba]

Код

Автор - vitek73
Дата добавления - 20.02.2019 в 10:55

_Boroda_

Дата: Среда, 20.02.2019, 11:52 | Сообщение № 3

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

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995