Добавление данных в таблицу с другого листа

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

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

Добавление данных в таблицу с другого листа (Формулы/Formulas)

GAS1979

Дата: Четверг, 06.10.2022, 10:35 | Сообщение № 1

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

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

Сообщений: 24

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

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

Excel 2016

Добрый день. Подскажите, есть ли возможность добавлять/изменять данные в другой таблице (листе)
У меня есть первый лист, там дата и показатели с суммой.
На втором листе данные по датам и показателям
Если я на первом листе выбираю дату, которая есть на втором, до данные подтягиваются (суммесли например). Но если я изменил значение, то на 2 листе это значение должно изменится.
Или если на втором листе нет этой даты, то пустые значения на первом (суммесли так же верно отображает). Но вот как при изменении значения получить новую запись на 2 листе.
И формулу я использовать не могу, так как если я ее меняю на значение, то шаблон весь ломается.
Через сводные таблицы так же не получается это сделать.
Или только через VBA это получится?

К сообщению приложен файл: 8801474.xls (27.5 Kb)

Сообщение отредактировал GAS1979 - Четверг, 06.10.2022, 13:03

Ответить

Serge_007

Дата: Четверг, 06.10.2022, 12:45 | Сообщение № 2

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Здравствуйте

Цитата GAS1979, 06.10.2022 в 10:35, в сообщении № 1 (

)

Подскажите, есть ли возможность добавлять/изменять данные в другой таблице

Есть

ЮMoney:41001419691823 | WMR:126292472390

Ответить

GAS1979

Дата: Четверг, 06.10.2022, 13:04 | Сообщение № 3

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

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

Сообщений: 24

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

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

Excel 2016

Цитата Serge_007, 06.10.2022 в 12:45, в сообщении № 2 (

)

Есть

Пример приложил

Ответить

Serge_007

Дата: Четверг, 06.10.2022, 13:32 | Сообщение № 4

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата GAS1979, 06.10.2022 в 10:35, в сообщении № 1 (

)

если я изменил значение, то на 2 листе это значение должно изменится

Какое значение изменил? Где оно в файле?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Nic70y

Дата: Четверг, 06.10.2022, 13:57 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

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

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

Excel 2010

в модуль листа
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim a As Double
    a = Range("b1").Value
    b = Cells(Rows.Count, "a").End(xlUp).Row
    c = Application.Match(a, Sheets("Лист2").Range("a:a"), 0)
    If Not Intersect(Target, Range("b3:b" & b)) Is Nothing Then
        d = Target.Offset(0, -1)
        e = Application.Match(d, Sheets("Лист2").Range("1:1"), 0)
        f = IsNumeric(c)
        If f = False Then
            c = Sheets("Лист2").Cells(Rows.Count, "a").End(xlUp).Row + 1
            Sheets("Лист2").Cells(c, 1) = a
            Sheets("Лист2").Cells(c, 1).NumberFormat = "m/d/yyyy"
        End If
        g = IsNumeric(e)
        If g = False Then
            e = Sheets("Лист2").Cells(1, Columns.Count).End(xlToLeft).Column + 1
            Sheets("Лист2").Cells(1, e) = d
        End If
        Sheets("Лист2").Cells(c, e) = Target.Value
        Target.FormulaR1C1 = "=SUMIF(Лист2!C[-1],Лист1!R1C2,Лист2!C)"
    End If
    Application.ScreenUpdating = False
    Application.EnableEvents = True
End Sub

[/vba]