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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос даных в разные книги по сети - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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).

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

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

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

Автор - 3jiodeu
Дата добавления - 26.09.2020 в 15:40
Pelena Дата: Воскресенье, 27.09.2020, 07:29 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16801
Репутация: 3623 ±
Замечаний: ±

Excel 2010, 2016 & 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]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Открываете обе книги.
В книге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]

Автор - Pelena
Дата добавления - 27.09.2020 в 07:29
3jiodeu Дата: Воскресенье, 27.09.2020, 15:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - 3jiodeu
Дата добавления - 27.09.2020 в 15:53
Pelena Дата: Воскресенье, 27.09.2020, 15:59 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16801
Репутация: 3623 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеСмотрите в сторону макросов.
Формула считает в той ячейке, в которую записана.

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

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