Получаемую цифру из веба помешаем в ячейку которая будет обновляться раз в минуту, далее следует каждую новую цифру импортировать в калонку над предыдущей и в соседнюю колонку время этого момента.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Row <> 3 Or Target.Column <> 8 Then Exit Sub
Application.EnableEvents = False
Range("A2:B2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(2, 1) = Cells(3, 8)
Cells(2, 2) = Format(Now, "DD.MM.YYYY hh:mm")
Application.EnableEvents = True
End Sub
Worksheet_Change возникает на листе Лист7, в нем (Worksheet_Change) и надо производить процедуру проверки на изменение, результат записывать на другой лист.Сможете сами код написать?
to # 15 Есесено, он привязан к определенным листа и ячейкам, подключение д.б. создано и настроено на обновление. Должен запускаться по событию Worksheet_Change листа Лист7.
Коллега, учите матчасть! Если вы задаете вопрос по макросам, то как минимум вы должны понимать "что это такое и как с ним работать". В вашей книге нет макросов, что должно работать?
Извиняюсь, нашлись, да не те. Где аналог Лист7 из первого файла? Где обработчик события для этого листа?
Это вопрос? Я просил проверить: если направить данные в ячейку А2 - добавляются ли поступившие данные в конец таблицы? И срабатывает ли это у Вас при ручном вводе?