Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/макрос для переноса данных с ячейки в таблицу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос для переноса данных с ячейки в таблицу (Формулы/Formulas)
макрос для переноса данных с ячейки в таблицу
autoVin Дата: Понедельник, 31.03.2014, 17:47 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ув. Форумчане, у кого есть несколько минут свободного времени, прошу помощи в решении моего вопроса.

Задача следующая
на листе1 есть данные (в ячейках с рамкой) которые при нажатии на кнопку нужно переместить на лист2 соответствующие ячейки а на листе1 очистить

при повторении процедуры дынные переносятся на лист2 на строку ниже..

К сообщению приложен файл: 7614473.xls (35.0 Kb)
 
Ответить
Сообщениеув. Форумчане, у кого есть несколько минут свободного времени, прошу помощи в решении моего вопроса.

Задача следующая
на листе1 есть данные (в ячейках с рамкой) которые при нажатии на кнопку нужно переместить на лист2 соответствующие ячейки а на листе1 очистить

при повторении процедуры дынные переносятся на лист2 на строку ниже..

Автор - autoVin
Дата добавления - 31.03.2014 в 17:47
Dмитрий Дата: Вторник, 01.04.2014, 10:01 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 9 ±
Замечаний: 40% ±

Excel 2010
Не очень у Вас удачный вариант. Все как-то разбросано...
Но, в принципе, наверное так
К сообщению приложен файл: 7614473-1.xls (51.5 Kb)
 
Ответить
СообщениеНе очень у Вас удачный вариант. Все как-то разбросано...
Но, в принципе, наверное так
Автор - Dмитрий
Дата добавления - 01.04.2014 в 10:01
Wasilich Дата: Вторник, 01.04.2014, 10:27 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
И так тоже.
[vba]
Код
Sub Кнопка1_Щелкнуть()
   Dim S&
   With Sheets("Лист2")
      S = .Range("A" & Rows.Count).End(xlUp).Row + 1
     .Cells(S, 1) = Range("D5")
     .Cells(S, 2) = Range("F5")
     .Cells(S, 3) = Range("D7")
     .Cells(S, 4) = Range("D8")
     .Cells(S, 5) = Range("D9")
     .Cells(S, 6) = Range("D10")
     .Cells(S, 7) = Range("D16")
     .Cells(S, 8) = Range("D17")
     .Cells(S, 9) = Range("D18")
     .Cells(S, 10) = Range("D22")
     .Cells(S, 11) = Range("D23")
     Range("D5:D23").ClearContents
     Range("F5").ClearContents
   End With
End Sub
[/vba]
 
Ответить
СообщениеИ так тоже.
[vba]
Код
Sub Кнопка1_Щелкнуть()
   Dim S&
   With Sheets("Лист2")
      S = .Range("A" & Rows.Count).End(xlUp).Row + 1
     .Cells(S, 1) = Range("D5")
     .Cells(S, 2) = Range("F5")
     .Cells(S, 3) = Range("D7")
     .Cells(S, 4) = Range("D8")
     .Cells(S, 5) = Range("D9")
     .Cells(S, 6) = Range("D10")
     .Cells(S, 7) = Range("D16")
     .Cells(S, 8) = Range("D17")
     .Cells(S, 9) = Range("D18")
     .Cells(S, 10) = Range("D22")
     .Cells(S, 11) = Range("D23")
     Range("D5:D23").ClearContents
     Range("F5").ClearContents
   End With
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 01.04.2014 в 10:27
autoVin Дата: Четверг, 03.04.2014, 13:19 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем огромное спасибо, направление понял дальше буду доводить сам, плюсики всем нажал :D


Сообщение отредактировал autoVin - Четверг, 03.04.2014, 13:28
 
Ответить
СообщениеВсем огромное спасибо, направление понял дальше буду доводить сам, плюсики всем нажал :D
Автор - autoVin
Дата добавления - 03.04.2014 в 13:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос для переноса данных с ячейки в таблицу (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!