Отличный урок, все получилось. Вопрос к автору - Как сделать так чтобы после появления формы ввода сразу в ней были вбиты значения из заранее известных ячеек?
Не подскажите макрос на ввод через форму данных в заданную область найденную опять же через форму ( ну например есть таблица с ценами, нужно найти цену и напротив добавлять накладные, наименования и т.д. с последующем добавлением строк вниз соответственно
Драствуйте Я всё зделал но у меня не работает Private Sub CommandButton2_Click() Dim ss, l, ros l = Range("A1").End(xlDown).Row ss = TextBox1.Value l = l + 1 ros = "C" & l Range(ros).Value = ss Текс идёт толкьо на ячейке C2 End Sub
Спасибо. НО в новых версиях нахождения последней использованной строки не работает, используйте это With Sheets("Sheet2") .Range("A" & .Rows.Count).End(xlUp).Row End With
Драсвуте Private Sub CommandButton2_Click() Dim ss, l, ros l = Range("A1").End(xlDown).Row ss = TextBox1.Value l = l + 1 ros = "C" & l Range(ros).Value = ss Надпис идёт толко на ячейка с2 End Sub
Супер, давно мечтал найти такое видео!
Спасибо большое!!! Все расжевано до мелочей. Код работает!!!
Спасибо автору, ведь даже такой чайник как я разобрался.
Отдельный респект Володимиру Ладиненко- все заработало после его коррекции.
Супер давно об этом думал но много работы не до этого было. СПАСИБО!!!❤❤❤❤
Спасибо. Всё разложено по полочкам, все понятно.
Отличный урок, все получилось. Вопрос к автору - Как сделать так чтобы после появления формы ввода сразу в ней были вбиты значения из заранее известных ячеек?
лайк, комент, подписка агонь коротко и все понятно для нулевого студента.
Лайк однозначно!!!!! Самое внятное и понятное объяснение данной темы и написание скриптов.
Спасибо!
У меня ,всё заработало, правда, в таблице должна быть первая запись сделанная от "рук", если нет выдаёт ошибку 104.
Здравствуйте!
Спасибо за хороший пример. А можно ещё сделать так чтобы кнопка добавить сработала как сброс данных в TextBox-ах?
нужно изменить на
s = Cells(Rows.Count, 2).End(xlUp).Row
и будет роаботать
А как сделать, чтобы форма очищалась после добавления данных? во избежание дублирования
А как же на видео всё работает???
Привет, а как Юзер Форму заполнить которая при выполнении макроса будет заполняться от 0 % до 100%
Здраасьте!
А куда делось автоматическое добавление borders?
Не могли бы Вы уточнить макрос с учетом новых изменений!
у меня не получилось: форма выводится на экран, а при вводе пишет ошибку 104. что это может значить? ввела полностью весь макрос с сайта
Не подскажите макрос на ввод через форму данных в заданную область найденную опять же через форму ( ну например есть таблица с ценами, нужно найти цену и напротив добавлять накладные, наименования и т.д. с последующем добавлением строк вниз соответственно
лайк
Здавствуйте а можете дать примеры работ по данному видео
После ввода переменной "l" выдало ошибку:
run-time error 1004 method range of object global failed
Драствуйте Я всё зделал но у меня не работает
Private Sub CommandButton2_Click()
Dim ss, l, ros
l = Range("A1").End(xlDown).Row
ss = TextBox1.Value
l = l + 1
ros = "C" & l
Range(ros).Value = ss
Текс идёт толкьо на ячейке C2
End Sub
У кого ошибка выдаёт, Я нашел у себя ошибку, L Я спутал с 1 именно в тексте xldown Я написал x1down.
Спасибо. НО в новых версиях нахождения последней использованной строки не работает, используйте это
With Sheets("Sheet2")
.Range("A" & .Rows.Count).End(xlUp).Row
End With
Спасибо за отзыв
не работает
@@Володимир-ж3й9в Странно. У меня работал в Офис 365
@@bakytbekasankulov2077 у меня офис 2016
Полностью можете написать пример
Почему не в 4К???
Первая часть работает а вот вторая нет
Дичайший ужас. Диапазон это одна ячейка, 5 балов
Драсвуте
Private Sub CommandButton2_Click()
Dim ss, l, ros
l = Range("A1").End(xlDown).Row
ss = TextBox1.Value
l = l + 1
ros = "C" & l
Range(ros).Value = ss
Надпис идёт толко на ячейка с2
End Sub