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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование диапазона на другой лист (Формулы/Formulas)
Копирование диапазона на другой лист
pabchek Дата: Четверг, 23.04.2015, 11:54 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Добрый день! Помогите, плз, начинающему написать элементарный макрос.
В файле с листа "Расчет" скопировать диапазон (желтый) на лист "База" в первую непустую ячейку колонки А (в примере А15) и вернуться на лист Старт
К сообщению приложен файл: 3810561.xls (20.5 Kb)

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеДобрый день! Помогите, плз, начинающему написать элементарный макрос.
В файле с листа "Расчет" скопировать диапазон (желтый) на лист "База" в первую непустую ячейку колонки А (в примере А15) и вернуться на лист Старт
Автор - pabchek
Дата добавления - 23.04.2015 в 11:54
_Boroda_ Дата: Четверг, 23.04.2015, 12:12 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
     r1_ = Лист3.Range("A" & Rows.Count).End(xlUp).Row
     c_ = Лист2.Range("Результат").Rows.Count
     Лист3.Range("A" & r1_ + 1).Resize(c_, 4) = Лист2.Range("Результат").Value
End Sub
[/vba]
К сообщению приложен файл: 3810561_1.xls (39.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
     r1_ = Лист3.Range("A" & Rows.Count).End(xlUp).Row
     c_ = Лист2.Range("Результат").Rows.Count
     Лист3.Range("A" & r1_ + 1).Resize(c_, 4) = Лист2.Range("Результат").Value
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 23.04.2015 в 12:12
pabchek Дата: Четверг, 23.04.2015, 12:19 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Да, спасибо большое!

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеДа, спасибо большое!
Автор - pabchek
Дата добавления - 23.04.2015 в 12:19
pabchek Дата: Четверг, 23.04.2015, 13:50 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
_Boroda_, при переносе в мой рабочий файл, нужно менять названия листов. Я попытался но ничего не получается.
[vba]
Код
Sub tt()
     r1_ = Worksheets("База").Range("A" & Rows.Count).End(xlUp).Row
     c_ = Worksheets("Расчет").Range("Результат").Rows.Count
     Worksheets("База").Range("A" & r1_ + 1).Resize(c_, 4) = Worksheets("Расчет").Range("Результат").Value
End Sub
[/vba]

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
Сообщение_Boroda_, при переносе в мой рабочий файл, нужно менять названия листов. Я попытался но ничего не получается.
[vba]
Код
Sub tt()
     r1_ = Worksheets("База").Range("A" & Rows.Count).End(xlUp).Row
     c_ = Worksheets("Расчет").Range("Результат").Rows.Count
     Worksheets("База").Range("A" & r1_ + 1).Resize(c_, 4) = Worksheets("Расчет").Range("Результат").Value
End Sub
[/vba]
Автор - pabchek
Дата добавления - 23.04.2015 в 13:50
_Boroda_ Дата: Четверг, 23.04.2015, 14:05 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Поскольку у Вас имя в области книги, а не листа, то можно просто вот так:
[vba]
Код
    r1_ = Sheets("База").Range("A" & Rows.Count).End(xlUp).Row
      c_ = Range("Результат").Rows.Count
      Sheets("База").Range("A" & r1_ + 1).Resize(c_, 4) = Range("Результат").Value
[/vba]
Но Ваш макрос у меня тоже работает.
Могу предположить, что у Вас имена листов не совпадают (возможно, лишний пробел или еще что-то). Переименуйте или таи, или здесь - просто скопируйте имена отсюда и переназовите свои листы. Или наоборот

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПоскольку у Вас имя в области книги, а не листа, то можно просто вот так:
[vba]
Код
    r1_ = Sheets("База").Range("A" & Rows.Count).End(xlUp).Row
      c_ = Range("Результат").Rows.Count
      Sheets("База").Range("A" & r1_ + 1).Resize(c_, 4) = Range("Результат").Value
[/vba]
Но Ваш макрос у меня тоже работает.
Могу предположить, что у Вас имена листов не совпадают (возможно, лишний пробел или еще что-то). Переименуйте или таи, или здесь - просто скопируйте имена отсюда и переназовите свои листы. Или наоборот
Автор - _Boroda_
Дата добавления - 23.04.2015 в 14:05
pabchek Дата: Четверг, 23.04.2015, 14:34 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Ура! Заработало! :)
Надо срочно за макросы садиться))))

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеУра! Заработало! :)
Надо срочно за макросы садиться))))
Автор - pabchek
Дата добавления - 23.04.2015 в 14:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование диапазона на другой лист (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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