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

Вход

Регистрация

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

 

= Мир MS Excel/Связать две книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Связать две книги (Макросы/Sub)
Связать две книги
ТАМИК Дата: Воскресенье, 19.08.2018, 13:23 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый вечер!

Подскажите, пожалуйста, возможно ли связать таблицы из разных книг. таблицы разных форм.
Нужно чтоб информация бралась с книги отчёт и переносилась в книгу табель.

в книге табель у каждого имени табельный номер, такой же как и в книге отчеты. Нужно чтоб из книги отчеты брались часы и вставлялись по датам нужного табельного номера.
К сообщению приложен файл: 3468670.xls (72.0 Kb) · 2314476.xls (61.5 Kb)
 
Ответить
СообщениеДобрый вечер!

Подскажите, пожалуйста, возможно ли связать таблицы из разных книг. таблицы разных форм.
Нужно чтоб информация бралась с книги отчёт и переносилась в книгу табель.

в книге табель у каждого имени табельный номер, такой же как и в книге отчеты. Нужно чтоб из книги отчеты брались часы и вставлялись по датам нужного табельного номера.
Автор - ТАМИК
Дата добавления - 19.08.2018 в 13:23
ТАМИК Дата: Воскресенье, 19.08.2018, 13:25 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
В форуме выслали макрос, но сказали что нужно доработать , а я ноль в этом, может кто сможет помочь.

Sub tt()
Dim c As Range, t As String, k

With CreateObject("Scripting.Dictionary")

For Each c In Range([a3], Cells(Rows.Count, "A").End(xlUp)).Cells
If IsDate© Then
.Item(t & "|" & Day©) = c.Offset(, 5)
Else
If IsNumeric© Then t = c
End If
Next

For Each k In .keys
Debug.Print k & "-" & .Item(k)
Next

End With
End Sub
 
Ответить
СообщениеВ форуме выслали макрос, но сказали что нужно доработать , а я ноль в этом, может кто сможет помочь.

Sub tt()
Dim c As Range, t As String, k

With CreateObject("Scripting.Dictionary")

For Each c In Range([a3], Cells(Rows.Count, "A").End(xlUp)).Cells
If IsDate© Then
.Item(t & "|" & Day©) = c.Offset(, 5)
Else
If IsNumeric© Then t = c
End If
Next

For Each k In .keys
Debug.Print k & "-" & .Item(k)
Next

End With
End Sub
Автор - ТАМИК
Дата добавления - 19.08.2018 в 13:25
ТАМИК Дата: Воскресенье, 19.08.2018, 13:26 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
3468670.xls файл отчет, откуда нужно брать инфу и вставлять в табель.
 
Ответить
Сообщение3468670.xls файл отчет, откуда нужно брать инфу и вставлять в табель.
Автор - ТАМИК
Дата добавления - 19.08.2018 в 13:26
Pelena Дата: Воскресенье, 19.08.2018, 14:38 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
ТАМИК, не надо дублировать темы, это нарушение Правил форума. Продолжайте в первой

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТАМИК, не надо дублировать темы, это нарушение Правил форума. Продолжайте в первой
Автор - Pelena
Дата добавления - 19.08.2018 в 14:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Связать две книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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