занесение данных в таблицу

[ASAN]

Как сделать?
Есть определенная ячейка в которую заносятся числа(запрос с веб страницы). При обновлении веб-страницы это число меняется. Мне нужно чтоб при изменении(обновлении) числа оно вносилось по порядку в таблицу.

[SAS888]

Пусть, например, ячейка "A1" - изменяемая ячейка. И пусть каждое новое данное нужно вставить в столбец "B" в следующую строку. Тогда вставим в модуль рабочего листа запуск процедуры по событию изменения значения контролируемой ячейки:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim VRange As Range
    Set VRange = Range("A1")
    If Not Intersect(Target, VRange) Is Nothing Then
        Cells(ActiveSheet.Range("B65536").End(xlUp).Row, 2) = Range("A1")
    End If
End Sub

Измените ссылки на нужные ячейки.

[ASAN]

Оставил все как есть, поменял только в строке
Cells(ActiveSheet.Range("B65536").E nd(xlUp).Row, 2) = Range("A1")
"B65536" на "B3"
Оно из А1 переносит в В1, и при изменении А1 все равно записывает в В1, а нужно в В2, В3, В4......(в последнюю не занятую строку)

[SAS888]

Строка кода ActiveSheet.Range("B65536").End(xlU p).Row равносильна действию: на активном листе выделить ячецку "B65536" (т.е. последнюю ячейку нужного столбца) и одновременно нажать "End" и [стрелка вверх]. В результате выделится последняя заполненная ячейка в столбце. ".Row" - номер строки этой ячейки. А нам нужна следующая ячейка, так что в коде нужно, действительно, написать: Cells(ActiveSheet.Range("B65536").E nd(xlUp).Row+1, 2) = Range("A1")

[ASAN]

Сообщение от SAS888

Строка кода ActiveSheet.Range("B65536").End(xlU p).Row равносильна действию: на активном листе выделить ячецку "B65536" (т.е. последнюю ячейку нужного столбца) и одновременно нажать "End" и [стрелка вверх]. В результате выделится последняя заполненная ячейка в столбце. ".Row" - номер строки этой ячейки. А нам нужна следующая ячейка, так что в коде нужно, действительно, написать: Cells(ActiveSheet.Range("B65536").E nd(xlUp).Row+1, 2) = Range("A1")

Спасибо! Все получилось и работает!

[Artmi]

А у меня не работает такой код с чем может быть связано такое поведение эксель 2003

[VictorM]

только если Вы его поместили в стандартный модуль, иначе должен работать.
SAS888

вставим в модуль рабочего листа запуск процедуры по событию изменения значения контролируемой ячейки

[Artmi]

Вставил в модуль листа, вопрос видимо в другом.
я немного по другому сам сделал и работает только в том случае если я руками обновляю значение, а если экспорт из внешней программы то не работает, может что-то в настройках?