Run time error '1004': Aplication - defined or object defined error

Автор Посетитель, 25 февраля 2023, 19:49

Посетитель

Добрый день!

Только начал разбираться в VBA, возникала следящая ошибка - "Run time error '1004': Aplication - defined or object defined error"
Пытаюсь сделать так, что бы при нажатии на кнопку, запись сохранялась на втором листе в формате списка, для отслеживания изменений. Пожалуйста, подскажите что делаю не так? очень надеюсь на Ваш ответ. 
______________________________________________________________ 

Private Sub CommandButton1_Click()
Dim zn1, zn2, zn3, l, adr

k = Sheets("SF011").Range("B1").End(xlDown).Row

zn1 = Range("J2").Value
zn2 = Range("K2").Value
zn3 = Range("L2").Value

k = k + 1
adr = Sheets("SF011").Range("B") & k
Sheets("SF011").Range(adr).Value = zn1
adr = Sheets("SF011").Range("C") & k
Sheets("SF011").Range(adr).Value = zn2
adr = Sheets("SF011").Range("D") & k
Sheets("SF011").Range(adr).Value = zn3


End Sub

Администратор


Посетитель

Ошибка в строке adr = Sheets("SF011").Range("B") & k

К сожалению, первый мой опыт работы в VBA и я не совсем понимаю, как нужно исправить.

Но думаю что проблема в том что adr = 'Дата 1048577'

Посетитель

Мне нужно, что бы ячейка не заменялась новым значением, а заполнялась сселяющая ячейка

Администратор

А что должно быть в переменной "adr"?