Печать страницы - Run time error '1004': Aplication

Название: 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

Название: От: Run time error '1004': Aplication - defined or object defined error
Отправлено: Администратор от 25 февраля 2023, 20:42

В какой строке ошибка?

Название: От: Run time error '1004': Aplication - defined or object defined error
Отправлено: Посетитель от 25 февраля 2023, 21:13

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

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

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

Название: От: Run time error '1004': Aplication - defined or object defined error
Отправлено: Посетитель от 25 февраля 2023, 21:18

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

Название: От: Run time error '1004': Aplication - defined or object defined error
Отправлено: Администратор от 25 февраля 2023, 21:21

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

Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 25 февраля 2023, 19:49