Вопрос № 119845: Здравствуйте, что бы легче было воспринимать информацию, предоставляю ее в .xls формате:
http://ifolder.ru/5070916
Задание: обновить данные с одного листа данными другого, по определенному критерию. Внутри файла все описано....
Вопрос № 119.845
Здравствуйте, что бы легче было воспринимать информацию, предоставляю ее в .xls формате:
http://ifolder.ru/5070916
Задание: обновить данные с одного листа данными другого, по определенному критерию. Внутри файла все описано.
Отвечает: Черников Игорь Владимирович
Здравствуйте, Irkutskiy Konstantin!
Вот Ваша программа. Всегда рад помочь!
Но меня грызут сомнения, что я правильно её написал, потому что на первом листе 12 строк данных, а на втором листе 15 строк. И ещё наверно нужно было добавить в программу выбор по названию в столбцах Тикер на обоих листах, т.к. они идут не по порядку, но в задании Вы этого не упоминули. В прочем если это будет необходимо, то пишите, переделаю.
For i = 6 To 17
If (Workbooks("Обновление.xls").Worksheets("Shares").Cells(i, 15).Font.ColorIndex = 3 Or _
Workbooks("Обновление.xls").Worksheets("Shares").Cells(i, 14).Font.ColorIndex = 3) And _
Workbooks("Обновление.xls").Worksheets("securities-PFTS").Cells(i - 3, 13).Value = "+" Then
Workbooks("Обновление.xls").Worksheets("Shares").Cells(i, 15).Value = _
Workbooks("Обновление.xls").Worksheets("securities-PFTS").Cells(i - 3, 15).Value
Workbooks("Обновление.xls").Worksheets("Shares").Cells(i, 14).Value = _
Workbooks("Обновление.xls").Worksheets("All").Cells(3, 7).Value
End If
Next i
--------- От каждого по способностям, каждому по труду
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Irkutskiy Konstantin!
http://ifolder.ru/3765138 - надстройка Excel "Данные из другой таблицы"
Код доступен для изучения.
Евгений