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

Вход

Регистрация

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

 

= Мир MS Excel/Изменить код макроса копирования - Мир MS Excel

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

Excel 2010
Доброй ночи. Один макрос не даёт заснуть. Я его почти добила, но не получается изменить часть кода, чтобы при копировании на новый лист были значения, а не формулы. Спасибо.
[vba]
Код
Range(Cells(i, 2), Cells(i, 8)).Copy Destination:=Sheets("Архив").Cells(iLastRowArhiv, 2)
[/vba]
 
Ответить
СообщениеДоброй ночи. Один макрос не даёт заснуть. Я его почти добила, но не получается изменить часть кода, чтобы при копировании на новый лист были значения, а не формулы. Спасибо.
[vba]
Код
Range(Cells(i, 2), Cells(i, 8)).Copy Destination:=Sheets("Архив").Cells(iLastRowArhiv, 2)
[/vba]
Автор - karmen185
Дата добавления - 27.06.2015 в 01:13
KSV Дата: Суббота, 27.06.2015, 01:24 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
если нужно скопировать только значения, без форматирования, то можно так:
[vba]
Код
Sheets("Архив").Cells(iLastRowArhiv, 2).Resize(, 7).Value = Range(Cells(i, 2), Cells(i, 8)).Value
[/vba]

а если с форматированием, так:
[vba]
Код
Range(Cells(i, 2), Cells(i, 8)).Copy
Sheets("Архив").Cells(iLastRowArhiv, 2).PasteSpecial xlPasteValuesAndNumberFormats
[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Суббота, 27.06.2015, 01:26
 
Ответить
Сообщениеесли нужно скопировать только значения, без форматирования, то можно так:
[vba]
Код
Sheets("Архив").Cells(iLastRowArhiv, 2).Resize(, 7).Value = Range(Cells(i, 2), Cells(i, 8)).Value
[/vba]

а если с форматированием, так:
[vba]
Код
Range(Cells(i, 2), Cells(i, 8)).Copy
Sheets("Архив").Cells(iLastRowArhiv, 2).PasteSpecial xlPasteValuesAndNumberFormats
[/vba]
Автор - KSV
Дата добавления - 27.06.2015 в 01:24
karmen185 Дата: Суббота, 27.06.2015, 01:36 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KSV, большое спасибо. Крутилась вокруг да около, а про Resize забыла, возьму на вооружение. :)
 
Ответить
СообщениеKSV, большое спасибо. Крутилась вокруг да около, а про Resize забыла, возьму на вооружение. :)
Автор - karmen185
Дата добавления - 27.06.2015 в 01:36
KSV Дата: Суббота, 27.06.2015, 01:38 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Пожалуйста! :)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
СообщениеПожалуйста! :)
Автор - KSV
Дата добавления - 27.06.2015 в 01:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменить код макроса копирования (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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