Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Google-таблицы. При заполнении определенной ячейки в одной таблице, данные из нее переносятся в другую таблицу.
 
#1
09.08.2021 22:42:00
Ребята, добрый день.
Не нашел решение задачи, очень прошу помочь!

Есть таблица 1 на Листе 1. ее заполняют. когда заполняют значение в зеленом столбце "Контр-т", данные из этой строки серых столбцов "id заявки" "Дата создания", "сумма по заявке" "номер карты" "Банк" должны переноситься в соответствующий столбец таблицы 2, на листе 2. Столбец "Контр-т" данные всегда разные, "Id заявки" данные всегда разные. Формат таблицы менять нельзя.
Во вторую таблицу на листе 2 данные должны подтягиваться без пустых строк, хотя зеленый столбец может заполняться не последовательно. В таблице 2 должна остаться возможность менять данные.

Нужно сделать с помощью формулы, чтобы можно было ее использовать у гугл  таблицах.

Во вложении эксель файл в котором таблица на листе 2 уже заполнена правильно, но должна так заполняться при помощи формулы.
Помогите пожалуйста!
 
 
 
#2
09.08.2021 22:47:36
Дмитрий Егоров, вы ещё расскажите слепым про все цвета радуги.... Файл где? )
Изменено: New - 09.08.2021 23:30:08
 
 
 
#3
09.08.2021 23:08:24
Прошу прощения))) подгрузил ))
Изменено: vikttur - 09.08.2021 23:22:22
 
 
 
#4
09.08.2021 23:15:13
Дмитрий Егоров, не нужно писать через строку. Зачем Вы растягиваете сообщения?  
 
 
 
#5
10.08.2021 11:32:10
извините) подумал так более читаемо будет
 
 
 
#6
10.08.2021 11:41:42
Дмитрий Егоров,
так
Код
=ЕСЛИОШИБКА(ИНДЕКС(Лист1!A$2:A$100;НАИМЕНЬШИЙ(ЕСЛИ(""<>Лист1!$I$2:$I$100;СТРОКА(Лист1!$I$2:$I$100)-1);СТРОКА(Лист1!$A1));1);"")
или в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("I:I")) Is Nothing Then
lLastRow = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Лист2").Cells(lLastRow, 1) = Cells(Target.Row, 1)
Sheets("Лист2").Cells(lLastRow, 2) = Cells(Target.Row, 2)
Sheets("Лист2").Cells(lLastRow, 5) = Cells(Target.Row, 8)
Sheets("Лист2").Cells(lLastRow, 6) = Cells(Target.Row, 7)
Sheets("Лист2").Cells(lLastRow, 8) = Cells(Target.Row, 6)
End If
End Sub
Изменено: evgeniygeo - 10.08.2021 11:48:10
 
 
 
#7
10.08.2021 12:58:28
evgeniygeo, добрый день.
Большое спасибо за помощь, единственное я не очень понял куда вставлять формулу.
Я когда ее вставляю в таблицу 2, она только первую строку подтягивает, а остальные нет?
в Макросах вообще не шарю, в модуль вставил, но запустить не смог ((  
 
 
 
#8
28.08.2021 13:22:18
Ребята, всем привет. Подскажите пожалуйста, реально как-то решить эту задачу с формулой?
Я вставил формулу, но она работает только на одну строку( Большое спасибо!
 
 
 
#9
28.08.2021 13:49:51
В Excel такая формула вводится, как формула массива (тремя клавишами)
В Google-таблицах  - ArrayFormula
 
 
 
Страницы: 1
Читают тему
Наверх