Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных при нажатии кнопки
 
#1
02.06.2017 10:18:31
Есть таблица заказа, состоит из двух вкладок: 1-непосредственно сам заказ, 2-обзор заказа. В первой вкладке человек забивает данные заказа, при нажатии кнопки заказать эти данные копируются в другую вкладку (в первой вкладке они соответственно удаляются). Подскажите как сделать чтобы во второй вкладке заказы переносились по порядку
 
 
 
#2
02.06.2017 10:20:58
Наверное, здравствуйте.
Цитата
Horror написал: как сделать чтобы во второй вкладке заказы переносились по порядку
По какому порядку?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
02.06.2017 10:40:17
списком: заполняя пустые ячейки. не перекрывая данные предыдущих заказов
 
 
 
#4
02.06.2017 10:56:50
Пример: приходит человек в первой вкладке забивает заказ и нажимает кнопку ЗАКАЗАТЬ, после нажатия кнопки данные в первой вкладке удаляются. Так же после нажатия этой кнопки данные заказа копируются во вторую вкладку. Пиходит другой человек, заполняет свой заказ нажимает кнопку ЗАКАЗАТЬ, данные которые он заполнил переносятся в другую вкладку и заполняет пустые ячейки....в итоге во второй вкладке появляется список заказов от этих двух человек
 
 
 
#5
02.06.2017 10:59:12
Horror, подобной Вашей теме "вагон и маленькая тележка". Поищите по форуму подобные задачи и адаптируйте под свои данные.
ОФФ Не интересно. Набило оскомину...

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#6
02.06.2017 13:30:37
Может так подойдет :)  
 
 
 
#7
02.06.2017 13:33:33
нажатием кнопки должно добавлять в таблицу во второй вкладке, а не заменять
 
 
 
#8
02.06.2017 14:24:21
Horror, кнопка цитирования не для ответа!
 
 
 
#9
02.06.2017 14:38:40
подкорректировал код от Logistic,
Код
Sub Copy_ClearЗаказ()
Application.ScreenUpdating = False 'отключили обновление экрана
 Range("A2:H" & Cells(Rows.Count, 8).End(xlUp).Row).Copy Sheets("Обзор заказа").Cells(Sheets("Обзор заказа").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
 Sheets("Обзор заказа").Activate 'активируем лист
' MsgBox " Данные   успешно скопированы на лист Обзор заказа", 64, "Подтверждение копирования диапазона"
 

 With Sheets("Заказ")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'Нашли последнюю строку на  листе
        .Range(.Cells(2, 1), .Cells(LastRow, 8)).ClearContents  'Очистили диапазон таблицы полностью
 End With
'  MsgBox " Данные с листа Заказ  очищены", 64, "Очистка диапазона"
 Sheets("Заказ").Activate
  Application.ScreenUpdating = True 'включили обновление экрана
End Sub
 
 
 
#10
02.06.2017 14:44:55
То что доктор прописал, примного благодарен
 
 
 
Страницы: 1
Читают тему
Наверх