Доброго времени всем. Обращаюсь за помощью, в надежде, что кто-нибудь укажет какую литературу прочесть или, как правильно создать формулу/макрос. Мне трудно понять, что именно мне надо. На форуме я не нашел необходимой темы. Если такая имеется, прошу дать ссылку. Исходные данные таковы: Имеется две одинаковые книги. Они лежат на сетевом ресурсе. К одной из них кто-то постоянно обращается и вносит исправления. Вторая книга сделана из первой, только с определенными поправками. (убраны ненужные графы и строки) суть вопроса такова:
Данные из Книга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).
Здравствуйте. Открываете обе книги. В книге1 становитесь в ячейку AV3, пишете =ЕСЛИ(C3= дальше переключаетесь на книгу2 и кликаете ячейку D3, в формулу должна пойти ссылка на книгу2 и нужную ячейку, потом ставите точку с запятой и кликаете по ячейке CZ3 во второй книге, закрываете скобку и Enter. Должно получиться что-то вроде
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]
Здравствуйте. Открываете обе книги. В книге1 становитесь в ячейку AV3, пишете =ЕСЛИ(C3= дальше переключаетесь на книгу2 и кликаете ячейку D3, в формулу должна пойти ссылка на книгу2 и нужную ячейку, потом ставите точку с запятой и кликаете по ячейке CZ3 во второй книге, закрываете скобку и Enter. Должно получиться что-то вроде
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
Огромное спасибо за помощь. А как можно прописать все эти данные на другом листе. что-бы на основном не было формул. То есть сделать отдельный лист под формулы..
Огромное спасибо за помощь. А как можно прописать все эти данные на другом листе. что-бы на основном не было формул. То есть сделать отдельный лист под формулы..3jiodeu
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
