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

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

23,265 Просмотров

Ссылки и html тэги не поддерживаются


Комментарии:

Alexander Rubin
Alexander Rubin - 29.09.2023 18:44

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

Ответить
Иван Байшев
Иван Байшев - 23.09.2023 00:47

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

Ответить
Сергей Зайцев
Сергей Зайцев - 09.07.2023 17:57

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

Ответить
Feruza Nosirova
Feruza Nosirova - 28.04.2023 17:10

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

Ответить
Feruza Nosirova
Feruza Nosirova - 28.04.2023 17:07

Драствуйте Я всё зделал но у меня не работает

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

Ответить
элла щербакова
элла щербакова - 10.04.2023 18:39

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

Ответить
Дмитрий Поветкин
Дмитрий Поветкин - 11.11.2022 08:28

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

Ответить
Одил Аскаров
Одил Аскаров - 10.11.2022 14:41

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

Ответить
Алексей С
Алексей С - 18.10.2022 19:08

лайк

Ответить
Володимир
Володимир - 13.09.2022 13:17

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

Ответить
Володимир
Володимир - 13.09.2022 11:24

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

Ответить
Володимир
Володимир - 13.09.2022 11:18

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

Ответить
Bakytbek Asankulov
Bakytbek Asankulov - 18.04.2022 15:46

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

Ответить
Glory Tokarev
Glory Tokarev - 08.04.2022 17:59

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

Ответить