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

Вход

Регистрация

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

 

= Мир MS Excel/Добавление данных в таблицу с другого листа - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление данных в таблицу с другого листа (Формулы/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
 
Ответить
СообщениеДобрый день. Подскажите, есть ли возможность добавлять/изменять данные в другой таблице (листе)
У меня есть первый лист, там дата и показатели с суммой.
На втором листе данные по датам и показателям
Если я на первом листе выбираю дату, которая есть на втором, до данные подтягиваются (суммесли например). Но если я изменил значение, то на 2 листе это значение должно изменится.
Или если на втором листе нет этой даты, то пустые значения на первом (суммесли так же верно отображает). Но вот как при изменении значения получить новую запись на 2 листе.
И формулу я использовать не могу, так как если я ее меняю на значение, то шаблон весь ломается.
Через сводные таблицы так же не получается это сделать.
Или только через VBA это получится?

Автор - GAS1979
Дата добавления - 06.10.2022 в 10:35
Serge_007 Дата: Четверг, 06.10.2022, 12:45 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 15574
Репутация: 2559 ±
Замечаний: ±

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

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


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

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

Автор - Serge_007
Дата добавления - 06.10.2022 в 12:45
GAS1979 Дата: Четверг, 06.10.2022, 13:04 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Есть

Пример приложил
 
Ответить
Сообщение
Есть

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

Автор - GAS1979
Дата добавления - 06.10.2022 в 13:04
Serge_007 Дата: Четверг, 06.10.2022, 13:32 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 15574
Репутация: 2559 ±
Замечаний: ±

Excel 2016
если я изменил значение, то на 2 листе это значение должно изменится
Какое значение изменил? Где оно в файле?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
если я изменил значение, то на 2 листе это значение должно изменится
Какое значение изменил? Где оно в файле?

Автор - Serge_007
Дата добавления - 06.10.2022 в 13:32
Nic70y Дата: Четверг, 06.10.2022, 13:57 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 7878
Репутация: 1894 ±
Замечаний: 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]
К сообщению приложен файл: 61.xls(45.5 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениев модуль листа
[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]

Автор - Nic70y
Дата добавления - 06.10.2022 в 13:57
GAS1979 Дата: Четверг, 06.10.2022, 14:39 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
в модуль листа

Спасибо огромное. Получается только через VBA. Но за пример спасибо.
 
Ответить
Сообщение
в модуль листа

Спасибо огромное. Получается только через VBA. Но за пример спасибо.

Автор - GAS1979
Дата добавления - 06.10.2022 в 14:39
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление данных в таблицу с другого листа (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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