Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Автоматическое копирование данных в умную таблицу из двух и более умных таблиц.
 
Здравствуйте! Есть несколько умных таблиц (на разных листах) с одинаковым кол-вом и названием столбцов, строки этих таблиц все время дополняются. Необходимо, чтобы данные из всех таблиц автоматически переносились в такую же умную таблицу (сводную). Спросите: Почему сразу не заносить данные в одну таблицу? Отвечу: Для того, чтобы облегчить ввод информации в разных таблицах применены раскрывающиеся списки. Также в этих таблицах имеются формулы (во всех таблицах они одинаковые).
Изменено: Roman.P - 9 Сен 2018 14:36:38
 
Доброе время суток.
Версия на Power Query.
 
Если макрос, так например (в половине автоматически):
Код
Option Explicit

Sub tablitsy()
Dim stroky As Long
Dim tbl
Dim objList As Worksheet

    For Each objList In ThisWorkbook.Worksheets
        If objList.Name <> "Svodnaya" Then
            tbl = objList.ListObjects.Item(1).DataBodyRange.Value
            With Sheets("Svodnaya").ListObjects.Item(1)
                stroky = .Range.Rows.Count
                If stroky > 2 Then stroky = stroky + 1
                'ili
                'On Error Resume Next
                '    stroky = .DataBodyRange.Rows.Count
                '    If Err.Number = 0 Then stroky = stroky + 2 Else stroky = 2
                'On Error GoTo 0
                .Range.Cells(stroky, 1).Resize(UBound(tbl, 1), UBound(tbl, 2)).Value = tbl
                'ili
                '.Range(stroky, 1).Resize(UBound(tbl, 1), UBound(tbl, 2)).Value = tbl
            End With
        End If
    Next
End Sub
Изменено: ocet p - 9 Сен 2018 16:24:47
 
Андрей VG, спасибо за совет!
 
Название темы прочитал без "и" :)
Цитата
из двух более умных таблиц
 
vikttur, аналогично еще подумал блин как определяется какая таблица более умная  :)  
Лень двигатель прогресса, доказано!!!
 
vikttur, Сергей, Умники блин, я на телефоне читал, вааще И не заметил, понял так как вы подумали :-)
Страницы: 1
Читают тему (гостей: 1)
Наверх