Комментарии:
Здраасьте!
А куда делось автоматическое добавление borders?
Дичайший ужас. Диапазон это одна ячейка, 5 балов
ОтветитьПривет, а как Юзер Форму заполнить которая при выполнении макроса будет заполняться от 0 % до 100%
ОтветитьДрасвуте
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
Драствуйте Я всё зделал но у меня не работает
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
Спасибо. Всё разложено по полочкам, все понятно.
ОтветитьСпасибо автору, ведь даже такой чайник как я разобрался.
Отдельный респект Володимиру Ладиненко- все заработало после его коррекции.
Здавствуйте а можете дать примеры работ по данному видео
Ответитьлайк
ОтветитьНе подскажите макрос на ввод через форму данных в заданную область найденную опять же через форму ( ну например есть таблица с ценами, нужно найти цену и напротив добавлять накладные, наименования и т.д. с последующем добавлением строк вниз соответственно
Ответитьнужно изменить на
s = Cells(Rows.Count, 2).End(xlUp).Row
и будет роаботать
Не могли бы Вы уточнить макрос с учетом новых изменений!
ОтветитьСпасибо. НО в новых версиях нахождения последней использованной строки не работает, используйте это
With Sheets("Sheet2")
.Range("A" & .Rows.Count).End(xlUp).Row
End With
Лайк однозначно!!!!! Самое внятное и понятное объяснение данной темы и написание скриптов.
Ответить