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]
Добрый день. Помогите пожалуйста чуть чуть переделать макрос. Необходимо чтобы столбцы из исходной книги копировались начиная с 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
Сообщение отредактировал 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]
последняя строка в столбце [vba]Код
'lNum - номер столбца iLastRow = .Cells(Rows.Count, lNum).End(xlUp).Row
[/vba] Udik
вот вам барабан яд 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 столбце
кол-во будет считать в 5 столбце Viv
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.
Viv , к сожалению выдает ошибку 1004: Application-defined or object-defined error.cresh12
Сообщение отредактировал 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
попробуй этот файл
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
попробуй еще раз
www.vbastudio.ru
Ответить
Сообщение попробуй еще раз Автор - Viv Дата добавления - 17.09.2015 в 10:16
cresh12
Дата: Четверг, 17.09.2015, 10:30 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Viv , Огромное спасибо)) Все отлично работает))
Viv , Огромное спасибо)) Все отлично работает))cresh12
Ответить
Сообщение Viv , Огромное спасибо)) Все отлично работает))Автор - cresh12 Дата добавления - 17.09.2015 в 10:30
Viv
Дата: Четверг, 17.09.2015, 10:36 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
2
±
Замечаний:
60% ±
Excel 2003;Excel 2013
Ок! Ошибка была в активации листа перед подсчетом кол-а строк..
Ок! Ошибка была в активации листа перед подсчетом кол-а строк.. Viv
www.vbastudio.ru
Ответить
Сообщение Ок! Ошибка была в активации листа перед подсчетом кол-а строк.. Автор - Viv Дата добавления - 17.09.2015 в 10:36