Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.10.2011, 22:20   #1
jambi
Новичок
Джуниор
 
Регистрация: 06.10.2011
Сообщений: 1
По умолчанию Копирование столбцов из 2 книг в 1

Здравствуйте.
Помогите пожалуйста в решение следующей задачи:

Имеется 2-а файла :
  1. Реализация продукции по контрагентам
  2. Реализация продукции по товару

И имеется 3-й файл Реализация.
Задача в следующем,нужно скопировать столбцы A,B,C,D,E,F,G,H из книги: Реализация продукции по контрагентам в книгу : Реализация, лист - По контрагентам.

И аналогичные действия сделать с данными из книги : Реализация продукции по товару в книгу Реализация, лист - По наименованию.

В архиве 3-и файла.

Заранее спасибо.
Вложения
Тип файла: rar Реализация.rar (30.1 Кб, 7 просмотров)
jambi вне форума Ответить с цитированием
Старый 09.10.2011, 23:39   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Что-то я в последнее время перестал понимать вопросы)))
вот и в данном случае, что непонятно ТС ???
как скопировать столбцы из одной книги в другую или как это сделать программно, т.е. через VBA?
На всякий случай включил макрорекордер, записал...
Код:
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 09.10.2011 (VictorM)
'писАлось в книге

'Реализация продукции по контрагентам.xls
    Columns("A:H").Select
    Selection.Copy
    Windows("Реализация.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Windows("Реализация продукции по товару.xls").Activate
    Columns("A:H").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Реализация.xls").Activate
    Sheets("По наименованию").Select
    ActiveSheet.Paste
End Sub
Код как всегда избыточен, но для понимания - самое оно!))
дальше - дело техники
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499

Последний раз редактировалось VictorM; 10.10.2011 в 13:19.
VictorM вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос значений столбцов из двух книг в третью zagzag228 Microsoft Office Excel 1 29.06.2011 16:56
Копирование и добавление фиксированных столбцов Lock95 Microsoft Office Excel 6 06.05.2011 11:23
копирование ячеек из книг в одну(общую) DEsh Microsoft Office Excel 3 12.11.2010 12:38
Сумирование данных конкретных столбцов из разных книг sharpei4 Microsoft Office Excel 4 11.04.2010 22:01
копирование листов из закрытых книг mephist Microsoft Office Excel 4 10.07.2009 17:18