Страницы: 1
RSS
Перенос данных из формы заполнения на лист
 
Пожалуйста подскажите, как решить задачу? Есть два листа - на одном форма для заполнения заказ-нарядов, на другом таблица с соответствующими столбцами (таблицу прилагаю). Нужно чтобы по нажатию кнопки "Сохранить" алгоритм искал первую сверху пустую строку и переносил в нее данные из формы, попутно очищая форму.
 
Максим Шорохов, как то так
Код
Sub mrshkei()
Dim i As Long, lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Worksheets("Index"): Set sh2 = Worksheets("Главная")
lr = sh2.Cells(Rows.Count, 6).End(xlUp).Row
sh.Range("C6:C11").Copy
sh2.Cells(lr + 1, 5).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
sh.Range("C6:C11").ClearContents
End Sub



Не бойтесь совершенства. Вам его не достичь.
 
Спасибо вам, добрый человек! Работает!)
Страницы: 1
Наверх