Excel. Урок 65. Создаем форму на VBA. Добавляем данные из формы в конец таблицы

[@Ravil851]

Супер, давно мечтал найти такое видео!

[@psix_kol]

Спасибо большое!!! Все расжевано до мелочей. Код работает!!!

[@ДмитрийПоветкин-в7г]

Спасибо автору, ведь даже такой чайник как я разобрался.
Отдельный респект Володимиру Ладиненко- все заработало после его коррекции.

[@эллащербакова]

Спасибо. Всё разложено по полочкам, все понятно.

[@GloryTokarev]

Лайк однозначно!!!!! Самое внятное и понятное объяснение данной темы и написание скриптов.

[@esdelano]

Спасибо!

[@ДмитрийСарасек]

Супер давно об этом думал но много работы не до этого было. СПАСИБО!!!❤❤❤❤

[@regulusblack9258]

лайк, комент, подписка агонь коротко и все понятно для нулевого студента.

[@---jb8ou]

Отличный урок, все получилось. Вопрос к автору - Как сделать так чтобы после появления формы ввода сразу в ней были вбиты значения из заранее известных ячеек?

[@Володимир-ж3й9в]

нужно изменить на
s = Cells(Rows.Count, 2).End(xlUp).Row
и будет роаботать

[@1986Mazhara]

А как сделать, чтобы форма очищалась после добавления данных? во избежание дублирования

[@Александр-д2ь2в]

А как же на видео всё работает???

[@Магомед-я7л]

Какую книгу посоветуете прочесть по этой теме ? Что было понятно написанно , спасибо большое всем кто поделится инф .

[@ВасильКуруц-е1ю]

Здравствуйте!
Спасибо за хороший пример. А можно ещё сделать так чтобы кнопка добавить сработала как сброс данных в TextBox-ах?

[@Володимир-ж3й9в]

Не могли бы Вы уточнить макрос с учетом новых изменений!

[@0d1l6ek]

Здавствуйте а можете дать примеры работ по данному видео

[@alexanderrubin1173]

Здраасьте!
А куда делось автоматическое добавление borders?

[@Володимир-ж3й9в]

Не подскажите макрос на ввод через форму данных в заданную область найденную опять же через форму ( ну например есть таблица с ценами, нужно найти цену и напротив добавлять накладные, наименования и т.д. с последующем добавлением строк вниз соответственно

[@Serega_Zaicev]

Привет, а как Юзер Форму заполнить которая при выполнении макроса будет заполняться от 0 % до 100%

[@ЯрославСвиридов-н9щ]

У меня ,всё заработало, правда, в таблице должна быть первая запись сделанная от "рук", если нет выдаёт ошибку 104.

[@Kayanen]

Почему не в 4К???

[@Наташинакухня-е3ъ]

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

[@bakytbekasankulov2077]

Спасибо. НО в новых версиях нахождения последней использованной строки не работает, используйте это
With Sheets("Sheet2")
.Range("A" & .Rows.Count).End(xlUp).Row
End With

[@esdelano]

Спасибо за отзыв

[@Володимир-ж3й9в]

не работает

[@bakytbekasankulov2077]

@@Володимир-ж3й9в Странно. У меня работал в Офис 365

[@Володимир-ж3й9в]

@@bakytbekasankulov2077 у меня офис 2016

[@turshak_tv]

Полностью можете написать пример

[@SA19290177]

лайк

[@ВдадимирМаруев]

После ввода переменной "l" выдало ошибку:
run-time error 1004 method range of object global failed

[@feruzanosirova96]

Драствуйте Я всё зделал но у меня не работает
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

[@ТарасБабіч-р8я]

Первая часть работает а вот вторая нет

[@ПархатКалиев]

У кого ошибка выдаёт, Я нашел у себя ошибку, L Я спутал с 1 именно в тексте xldown Я написал x1down.

[@ИванБайшев-ь8в]

Дичайший ужас. Диапазон это одна ячейка, 5 балов

[@feruzanosirova96]

Драсвуте
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