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

Вход

Регистрация

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

 

= Мир MS Excel/копирование данных с одного листа на другой. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
копирование данных с одного листа на другой.
Ona Дата: Понедельник, 23.06.2014, 21:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый вечер. Как можно создать макрос вот к такой задаче: копирование постоянно меняющихся данных, на лист1 в солбце B записываются данные, которые меняются с 1 по 6 строку, далее данные с 1 строки по 3 включительно записывались на лист2 в столбец А, данные с 4 строки по 6 включительно, записывались на лист2 в столбец B.
К сообщению приложен файл: 4164505.xlsx (11.8 Kb)


Сообщение отредактировал Ona - Понедельник, 23.06.2014, 23:11
 
Ответить
СообщениеДобрый вечер. Как можно создать макрос вот к такой задаче: копирование постоянно меняющихся данных, на лист1 в солбце B записываются данные, которые меняются с 1 по 6 строку, далее данные с 1 строки по 3 включительно записывались на лист2 в столбец А, данные с 4 строки по 6 включительно, записывались на лист2 в столбец B.

Автор - Ona
Дата добавления - 23.06.2014 в 21:41
DJ_Marker_MC Дата: Понедельник, 23.06.2014, 23:29 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
[vba]
Код
Sub icopy()
Worksheets("Лист2").Range("A2:A4").Value = Worksheets("Лист1").Range("B1:B3").Value
Worksheets("Лист2").Range("b2:b4").Value = Worksheets("Лист1").Range("B4:B6").Value
End Sub
[/vba]
К сообщению приложен файл: 4164505-otvet.xlsm (18.5 Kb)


Сообщение отредактировал DJ_Marker_MC - Понедельник, 23.06.2014, 23:49
 
Ответить
Сообщение[vba]
Код
Sub icopy()
Worksheets("Лист2").Range("A2:A4").Value = Worksheets("Лист1").Range("B1:B3").Value
Worksheets("Лист2").Range("b2:b4").Value = Worksheets("Лист1").Range("B4:B6").Value
End Sub
[/vba]

Автор - DJ_Marker_MC
Дата добавления - 23.06.2014 в 23:29
Ona Дата: Понедельник, 23.06.2014, 23:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
спасибо, что без ответа не оставили. но почему-то не работает, может не правильно описала свою задачу. значения не копируются, а хотелось чтобы дальше измененные данные копировались в столбцах. пример прикладываю.
К сообщению приложен файл: 123.xlsm (15.7 Kb)
 
Ответить
Сообщениеспасибо, что без ответа не оставили. но почему-то не работает, может не правильно описала свою задачу. значения не копируются, а хотелось чтобы дальше измененные данные копировались в столбцах. пример прикладываю.

Автор - Ona
Дата добавления - 23.06.2014 в 23:51
DJ_Marker_MC Дата: Вторник, 24.06.2014, 00:02 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Тогда так:
[vba]
Код
Sub icopy()
Application.ScreenUpdating = False
Application.CutCopyMode = False
iLastA = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row + 1
iLastB = Worksheets("Лист2").Cells(Rows.Count, 2).End(xlUp).Row + 1

Worksheets("Лист1").Range("B1:B3").Copy
Worksheets("Лист2").Range("A" & iLastA).PasteSpecial xlValue
Worksheets("Лист1").Range("B4:B6").Copy
Worksheets("Лист2").Range("B" & iLastB).PasteSpecial xlValue

Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 4875981.xlsm (19.8 Kb)
 
Ответить
СообщениеТогда так:
[vba]
Код
Sub icopy()
Application.ScreenUpdating = False
Application.CutCopyMode = False
iLastA = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row + 1
iLastB = Worksheets("Лист2").Cells(Rows.Count, 2).End(xlUp).Row + 1

Worksheets("Лист1").Range("B1:B3").Copy
Worksheets("Лист2").Range("A" & iLastA).PasteSpecial xlValue
Worksheets("Лист1").Range("B4:B6").Copy
Worksheets("Лист2").Range("B" & iLastB).PasteSpecial xlValue

Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - DJ_Marker_MC
Дата добавления - 24.06.2014 в 00:02
Ona Дата: Вторник, 24.06.2014, 00:09 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо великое, за помощь, все работает. hands
 
Ответить
СообщениеСпасибо великое, за помощь, все работает. hands

Автор - Ona
Дата добавления - 24.06.2014 в 00:09
DJ_Marker_MC Дата: Вторник, 24.06.2014, 00:11 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Кстати, вот так будет лучше.
Добавил еще суммирование по диапазону. Ато когда вы накопируете больше чем 500 строк, придется растягивать сверху формулу сумма, а сейчас будет сразу вставляется на листе2 в А1 и В1 готовая сумма без формулы.

Up.
Сори, не приложил файл. Прилаживаю.
К сообщению приложен файл: 7369996.xlsm (20.5 Kb)


Сообщение отредактировал DJ_Marker_MC - Вторник, 24.06.2014, 00:13
 
Ответить
СообщениеКстати, вот так будет лучше.
Добавил еще суммирование по диапазону. Ато когда вы накопируете больше чем 500 строк, придется растягивать сверху формулу сумма, а сейчас будет сразу вставляется на листе2 в А1 и В1 готовая сумма без формулы.

Up.
Сори, не приложил файл. Прилаживаю.

Автор - DJ_Marker_MC
Дата добавления - 24.06.2014 в 00:11
Ona Дата: Вторник, 24.06.2014, 01:26 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ага...понятно.еще лучше. Спасибо :)
 
Ответить
СообщениеАга...понятно.еще лучше. Спасибо :)

Автор - Ona
Дата добавления - 24.06.2014 в 01:26
Xaroos Дата: Вторник, 26.05.2015, 14:06 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день, воспользовался данным макросом, исправил под свои нужды, все работает , но не совсем так как мне нужно. Хочется, что бы с листа ПРОДАЖА, после нажатия кнопки в журнал, все что находится в накладной копировалось в ЖУРНАЛ ПРОДАЖ и в конце добавлялась дата продажи. а между продажами ставилась сумма по накладной. И каждый день в журнале добавлялся итог за день, на листе Журнал продаж как смог изобразил желаемое и еще желательно что бы копировались значения, а не формулы. Спасибо!
[moder]Читаем Правила форума, создаём свою тему. Эта тема закрыта[/moder]
К сообщению приложен файл: 2359108.xlsx (94.8 Kb)


Сообщение отредактировал Pelena - Вторник, 26.05.2015, 14:12
 
Ответить
СообщениеДобрый день, воспользовался данным макросом, исправил под свои нужды, все работает , но не совсем так как мне нужно. Хочется, что бы с листа ПРОДАЖА, после нажатия кнопки в журнал, все что находится в накладной копировалось в ЖУРНАЛ ПРОДАЖ и в конце добавлялась дата продажи. а между продажами ставилась сумма по накладной. И каждый день в журнале добавлялся итог за день, на листе Журнал продаж как смог изобразил желаемое и еще желательно что бы копировались значения, а не формулы. Спасибо!
[moder]Читаем Правила форума, создаём свою тему. Эта тема закрыта[/moder]

Автор - Xaroos
Дата добавления - 26.05.2015 в 14:06
  • Страница 1 из 1
  • 1
Поиск:

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