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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование данных внутри файла и в отдельный файл - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Копирование данных внутри файла и в отдельный файл
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
 
Ответить
СообщениеДень добрый.
есть разные файлики,(FFS,LC,SCE,SK-712W) внутри которых ведётся архив,файлы разделены по типам оборудования, в каждом написан однотипный макрос, который копирует данные на другой лист, того же файла,
и есть ещё файл (УЧЁТ всех) в котором записан просто архив, но со всех файлов, ( в ручную)
и вопрос, как можно, откоректировать макрос чтоб он делал копию помимо другово листа, попутно и в другой файл?,я пока в этом не разберусь никак,

Автор - vitek73
Дата добавления - 20.02.2019 в 10:53
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ой вкладки данные копируются на на вторую,
а в идеале, нужно чтоб эти же данные дублировались но с записью в другой файл, в который так же будут дублироваться с других источников.
некоректность вопроса исправлена, в ожидание подсказки ответа


vitёk73

Сообщение отредактировал vitek73 - Четверг, 21.02.2019, 10:04
 
Ответить
Сообщениесам макрос на всех файликах, кроме (УЧЁТ всех)однотипный,
[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ой вкладки данные копируются на на вторую,
а в идеале, нужно чтоб эти же данные дублировались но с записью в другой файл, в который так же будут дублироваться с других источников.
некоректность вопроса исправлена, в ожидание подсказки ответа

Автор - vitek73
Дата добавления - 20.02.2019 в 10:55
_Boroda_ Дата: Среда, 20.02.2019, 11:52 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

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


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

Автор - _Boroda_
Дата добавления - 20.02.2019 в 11:52
vitek73 Дата: Пятница, 01.03.2019, 14:35 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
так выдилел же, всё по феншую , в отдельном блоке


vitёk73

Сообщение отредактировал vitek73 - Пятница, 01.03.2019, 14:36
 
Ответить
Сообщениетак выдилел же, всё по феншую , в отдельном блоке

Автор - vitek73
Дата добавления - 01.03.2019 в 14:35
_Boroda_ Дата: Пятница, 01.03.2019, 14:44 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так надо же об этом написать было. Мы ж не сидим в Вашей теме, не ждем, когда Вы исправите


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

Автор - _Boroda_
Дата добавления - 01.03.2019 в 14:44
  • Страница 1 из 1
  • 1
Поиск:

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