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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование столбца из одной книги в другую - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование столбца из одной книги в другую (Макросы/Sub)
Копирование столбца из одной книги в другую
cresh12 Дата: Среда, 16.09.2015, 16:14 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день. Помогите пожалуйста чуть чуть переделать макрос. Необходимо чтобы столбцы из исходной книги копировались начиная с 4 строки и до конца столбца, чтобы не приходилось всегда менять макрос если длина столбца в исходной книге изменилась. К сожалению своих знаний для этой задачи оказалось недостаточно(
вот фрагмент кода
[vba]
Код
lrRes = shRes.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
         SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row + 1
      
      
     shRes.Range("B2:B439") = "1211.5520.0000.000.000"
     shRes.Range("H2:H439") = "Деталь"
     shRes.Range("J2:J439") = "1"
     shRes.Range("K2:K439") = "1"
     shSrc.Range("B4:B441").Copy
     shRes.Cells(lrRes, 3).PasteSpecial xlPasteValues
     shSrc.Range("E4:E441").Copy
     shRes.Cells(lrRes, 5).PasteSpecial xlPasteValues
[/vba]
К сообщению приложен файл: 1112189.xlsm (24.8 Kb)


Сообщение отредактировал cresh12 - Среда, 16.09.2015, 16:27
 
Ответить
СообщениеДобрый день. Помогите пожалуйста чуть чуть переделать макрос. Необходимо чтобы столбцы из исходной книги копировались начиная с 4 строки и до конца столбца, чтобы не приходилось всегда менять макрос если длина столбца в исходной книге изменилась. К сожалению своих знаний для этой задачи оказалось недостаточно(
вот фрагмент кода
[vba]
Код
lrRes = shRes.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
         SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row + 1
      
      
     shRes.Range("B2:B439") = "1211.5520.0000.000.000"
     shRes.Range("H2:H439") = "Деталь"
     shRes.Range("J2:J439") = "1"
     shRes.Range("K2:K439") = "1"
     shSrc.Range("B4:B441").Copy
     shRes.Cells(lrRes, 3).PasteSpecial xlPasteValues
     shSrc.Range("E4:E441").Copy
     shRes.Cells(lrRes, 5).PasteSpecial xlPasteValues
[/vba]
Автор - cresh12
Дата добавления - 16.09.2015 в 16:14
Udik Дата: Среда, 16.09.2015, 17:46 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
последняя строка в столбце
[vba]
Код

'lNum - номер столбца
iLastRow = .Cells(Rows.Count, lNum).End(xlUp).Row
[/vba]

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщениепоследняя строка в столбце
[vba]
Код

'lNum - номер столбца
iLastRow = .Cells(Rows.Count, lNum).End(xlUp).Row
[/vba]
Автор - Udik
Дата добавления - 16.09.2015 в 17:46
Viv Дата: Среда, 16.09.2015, 18:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 2 ±
Замечаний: 60% ±

Excel 2003;Excel 2013
кол-во будет считать в 5 столбце
К сообщению приложен файл: 0774983.xlsm (23.6 Kb)

www.vbastudio.ru
 
Ответить
Сообщениекол-во будет считать в 5 столбце
Автор - Viv
Дата добавления - 16.09.2015 в 18:00
cresh12 Дата: Четверг, 17.09.2015, 09:02 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Viv, к сожалению выдает ошибку 1004: Application-defined or object-defined error.


Сообщение отредактировал cresh12 - Четверг, 17.09.2015, 09:02
 
Ответить
СообщениеViv, к сожалению выдает ошибку 1004: Application-defined or object-defined error.
Автор - cresh12
Дата добавления - 17.09.2015 в 09:02
Viv Дата: Четверг, 17.09.2015, 09:55 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 2 ±
Замечаний: 60% ±

Excel 2003;Excel 2013
попробуй этот файл
К сообщению приложен файл: 9086735.xlsm (23.6 Kb)

www.vbastudio.ru
 
Ответить
Сообщениепопробуй этот файл
Автор - Viv
Дата добавления - 17.09.2015 в 09:55
cresh12 Дата: Четверг, 17.09.2015, 09:58 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Все та же ошибка(
 
Ответить
СообщениеВсе та же ошибка(
Автор - cresh12
Дата добавления - 17.09.2015 в 09:58
Viv Дата: Четверг, 17.09.2015, 10:16 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 2 ±
Замечаний: 60% ±

Excel 2003;Excel 2013
попробуй еще раз
К сообщению приложен файл: 1438171.xlsm (23.5 Kb)

www.vbastudio.ru
 
Ответить
Сообщениепопробуй еще раз
Автор - Viv
Дата добавления - 17.09.2015 в 10:16
cresh12 Дата: Четверг, 17.09.2015, 10:30 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Viv, Огромное спасибо)) Все отлично работает))
 
Ответить
СообщениеViv, Огромное спасибо)) Все отлично работает))
Автор - cresh12
Дата добавления - 17.09.2015 в 10:30
Viv Дата: Четверг, 17.09.2015, 10:36 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 2 ±
Замечаний: 60% ±

Excel 2003;Excel 2013
Ок! Ошибка была в активации листа перед подсчетом кол-а строк..

www.vbastudio.ru
 
Ответить
СообщениеОк! Ошибка была в активации листа перед подсчетом кол-а строк..
Автор - Viv
Дата добавления - 17.09.2015 в 10:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование столбца из одной книги в другую (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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