Перенос даных в разные книги по сети

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос даных в разные книги по сети (Формулы/Formulas)

3jiodeu

Дата: Суббота, 26.09.2020, 15:40 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2019

Доброго времени всем.
Обращаюсь за помощью, в надежде, что кто-нибудь укажет какую литературу прочесть или, как правильно создать формулу/макрос. Мне трудно понять, что именно мне надо. На форуме я не нашел необходимой темы. Если такая имеется, прошу дать ссылку.
Исходные данные таковы:
Имеется две одинаковые книги. Они лежат на сетевом ресурсе. К одной из них кто-то постоянно обращается и вносит исправления.
Вторая книга сделана из первой, только с определенными поправками. (убраны ненужные графы и строки)
суть вопроса такова:

Данные из Книга2 должны передаваться в определенную ячейку Книга1. В первой Книге куда должны попасть данные есть ячейка AV3 данные в нее поступают из Книга2 ячейки CZ3
При условии сравнение данных в Книга1 ( если данные в книга1 C3 = данным книга2 D3, то данные Книга2 из CZ3 переносятся в Книга1 AV3).

Как такое сотворить.

Ответить

Pelena

Дата: Воскресенье, 27.09.2020, 07:29 | Сообщение № 2

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

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

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Открываете обе книги.
В книге1 становитесь в ячейку AV3, пишете =ЕСЛИ(C3= дальше переключаетесь на книгу2 и кликаете ячейку D3, в формулу должна пойти ссылка на книгу2 и нужную ячейку, потом ставите точку с запятой и кликаете по ячейке CZ3 во второй книге, закрываете скобку и Enter.
Должно получиться что-то вроде

Код

=ЕСЛИ(C3=[Книга_2.xlsx]Лист1!$D$3;[Книга_2.xlsx]Лист1!$CZ$3)

Альтернативный вариант - макросом наподобие
[vba]

Код

Sub www()
    Dim wb1 As Workbook, wb2 As Workbook
    On Error Resume Next
    Set wb1 = Workbooks("Книга_1.xlsx")
    If wb1 Is Nothing Then Set wb1 = Workbooks.Open("D:\Книга_1.xlsx") 'здесь реальный путь к книге1
    Set wb2 = Workbooks("Книга_2.xlsx")
    If wb2 Is Nothing Then Set wb2 = Workbooks.Open("D:\Книга_2.xlsx") 'здесь реальный путь к книге2
    On Error GoTo 0
    If wb1.Sheets("Лист1").Range("C3").Value = wb2.Sheets("Лист1").Range("D3").Value Then wb1.Sheets("Лист1").Range("V3") = wb2.Sheets("Лист1").Range("Z3")
    wb1.Save
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

3jiodeu

Дата: Воскресенье, 27.09.2020, 15:53 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2019

Цитата Pelena, 27.09.2020 в 07:29, в сообщении № 2 ()

Перенос даных в разные книги по сет

Огромное спасибо за помощь.
А как можно прописать все эти данные на другом листе. что-бы на основном не было формул. То есть сделать отдельный лист под формулы..

Ответить

Pelena

Дата: Воскресенье, 27.09.2020, 15:59 | Сообщение № 4

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

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

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

Смотрите в сторону макросов.
Формула считает в той ячейке, в которую записана.

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос даных в разные книги по сети (Формулы/Formulas)

Страница 1 из 1
1