Макрос переноса строк

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос переноса строк (Формулы/Formulas)

dx84

Дата: Среда, 16.04.2014, 16:26 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: -8 ±

Замечаний: 80% ±

Excel 2010

Здравствуйте дорогие знатоки!
Есть вот такая проблемка, макрос копирует выделенные ячейки с «листа 1» во внешний файл . А надо что бы копировал определенный диапазон например «A1:G10» с листа под названием «расход материала» возможно такое?
Sub Copy_ROWs_to_EXT_FILE() ' скопировать данные во внешний файл-накопитель
'---------------------------------------------------------------------------------------
' Procedure : Copy_ROWs_to_EXT_FILE
' Author : KuklP & Alex_ST
' Topic_HEADER : Макрос "Copy_ROWs_to_EXT_FILE"
' Topic_URL : http://www.excelworld.ru/forum/3-176-2008-16-1293625247
' DateTime : 29.12.10, 15:20
' Purpose : скопировать строки выделенных ячеек во внешний файл-накопитель
' Notes : после работы макроса файл-накопитель становится невидимым в обычных окнах Excel (как надстройка или Personal.xls)
'---------------------------------------------------------------------------------------
If Not TypeName(Selection) = "Range" Then Exit Sub
Dim lr&, wb As Workbook, lb As Workbook
With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
Set wb = GetObject("c:\test.xls") ' здесь нужно прописать полный путь к файлу-накопителю
Set lb = ThisWorkbook
lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row ' lr - номер последней не пустой строки файла-накопителя
Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1) ' вставить выбранные в файле-источнике строки после последней не пустой строки в файл-накопитель
wb.Close (True) ' закрыть файл-накопитель с сохранением
With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
Set wb = Nothing: Set lb = Nothing
End Sub

Ответить

СообщениеЗдравствуйте дорогие знатоки!
Есть вот такая проблемка, макрос копирует выделенные ячейки с «листа 1» во внешний файл . А надо что бы копировал определенный диапазон например «A1:G10» с листа под названием «расход материала» возможно такое?
Sub Copy_ROWs_to_EXT_FILE() ' скопировать данные во внешний файл-накопитель
'---------------------------------------------------------------------------------------
' Procedure : Copy_ROWs_to_EXT_FILE
' Author : KuklP & Alex_ST
' Topic_HEADER : Макрос "Copy_ROWs_to_EXT_FILE"
' Topic_URL : http://www.excelworld.ru/forum/3-176-2008-16-1293625247
' DateTime : 29.12.10, 15:20
' Purpose : скопировать строки выделенных ячеек во внешний файл-накопитель
' Notes : после работы макроса файл-накопитель становится невидимым в обычных окнах Excel (как надстройка или Personal.xls)
'---------------------------------------------------------------------------------------
If Not TypeName(Selection) = "Range" Then Exit Sub
Dim lr&, wb As Workbook, lb As Workbook
With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
Set wb = GetObject("c:\test.xls") ' здесь нужно прописать полный путь к файлу-накопителю
Set lb = ThisWorkbook
lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row ' lr - номер последней не пустой строки файла-накопителя
Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1) ' вставить выбранные в файле-источнике строки после последней не пустой строки в файл-накопитель
wb.Close (True) ' закрыть файл-накопитель с сохранением
With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
Set wb = Nothing: Set lb = Nothing
End Sub

Автор - dx84
Дата добавления - 16.04.2014 в 16:26