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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование диапазона - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование диапазона (Отладка макроса)
Копирование диапазона
Мур Дата: Суббота, 16.04.2011, 11:04 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

Приветствую всех участников!
Вопрос к макросоведам или просто знающим ребятам.
Необходимо скопировать диапазон с одного листа на другой, при этом исходный лист
должен быть скрыт.
Подскажите где ошибка, пример прилагается.
Заранее спасибо.
К сообщению приложен файл: HidCop.xlsm (15.2 Kb)
 
Ответить
СообщениеПриветствую всех участников!
Вопрос к макросоведам или просто знающим ребятам.
Необходимо скопировать диапазон с одного листа на другой, при этом исходный лист
должен быть скрыт.
Подскажите где ошибка, пример прилагается.
Заранее спасибо.
Автор - Мур
Дата добавления - 16.04.2011 в 11:04
nilem Дата: Суббота, 16.04.2011, 12:01 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Избавляйтесь от Selection
Code
Sub Макрос1()
     Sheets("Лист1").Range("B1:D3").Copy Sheets("Лист2").Range("H9")
End Sub

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеИзбавляйтесь от Selection
Code
Sub Макрос1()
     Sheets("Лист1").Range("B1:D3").Copy Sheets("Лист2").Range("H9")
End Sub
Автор - nilem
Дата добавления - 16.04.2011 в 12:01
Мур Дата: Суббота, 16.04.2011, 15:49 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

nilem, большое спасибо!
Работает замечательно. И главное просто.

А тут мудрю, сначала

Code
Sheets("Ëèñò1").Visible = True

перед Selection вписываю, затем после выполнения кода наооборот
Sheets("Ëèñò1").Select
ActiveWindow.SelectedSheets.Visible = False

Еще раз спасибо!

 
Ответить
Сообщениеnilem, большое спасибо!
Работает замечательно. И главное просто.

А тут мудрю, сначала

Code
Sheets("Ëèñò1").Visible = True

перед Selection вписываю, затем после выполнения кода наооборот
Sheets("Ëèñò1").Select
ActiveWindow.SelectedSheets.Visible = False

Еще раз спасибо!

Автор - Мур
Дата добавления - 16.04.2011 в 15:49
Мур Дата: Суббота, 16.04.2011, 15:51 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

О как наредактировал!
 
Ответить
СообщениеО как наредактировал!
Автор - Мур
Дата добавления - 16.04.2011 в 15:51
Мур Дата: Суббота, 16.04.2011, 15:53 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

А если так:
nilem, большое спасибо!
Работает замечательно. И главное просто.
А тут мудрю, сначала
Code
Sheets("Ëèñò2").Select
     Sheets("Ëèñò1").Visible = True
     Sheets("Ëèñò1").Select
     Range("B1:D3").Select
     Selection.Copy
     Sheets("Ëèñò2").Select
     Range("H9").Select
     ActiveSheet.Paste
     Sheets("Ëèñò1").Select
     ActiveWindow.SelectedSheets.Visible = False

Еще раз большое спасибо!

 
Ответить
СообщениеА если так:
nilem, большое спасибо!
Работает замечательно. И главное просто.
А тут мудрю, сначала
Code
Sheets("Ëèñò2").Select
     Sheets("Ëèñò1").Visible = True
     Sheets("Ëèñò1").Select
     Range("B1:D3").Select
     Selection.Copy
     Sheets("Ëèñò2").Select
     Range("H9").Select
     ActiveSheet.Paste
     Sheets("Ëèñò1").Select
     ActiveWindow.SelectedSheets.Visible = False

Еще раз большое спасибо!

Автор - Мур
Дата добавления - 16.04.2011 в 15:53
Мур Дата: Суббота, 16.04.2011, 16:03 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

И окончательный вариант ответа (простите меня воюю с редактором):
nilem, большое спасибо!
Работает замечательно. И главное просто.
А я тут мудрю:
Code
Sub Макрос1()

     Sheets("Лист2").Select
     Sheets("Лист1").Visible = True
     Sheets("Лист1").Select
     Range("B1:D3").Select
     Selection.Copy
     Sheets("Лист2").Select
     Range("H9").Select
     ActiveSheet.Paste
     Sheets("Лист1").Select
     ActiveWindow.SelectedSheets.Visible = False
      
End Sub

И вроде работает, но как-то чересчур сложно все.

А Вам, еще раз большое спасибо!

 
Ответить
СообщениеИ окончательный вариант ответа (простите меня воюю с редактором):
nilem, большое спасибо!
Работает замечательно. И главное просто.
А я тут мудрю:
Code
Sub Макрос1()

     Sheets("Лист2").Select
     Sheets("Лист1").Visible = True
     Sheets("Лист1").Select
     Range("B1:D3").Select
     Selection.Copy
     Sheets("Лист2").Select
     Range("H9").Select
     ActiveSheet.Paste
     Sheets("Лист1").Select
     ActiveWindow.SelectedSheets.Visible = False
      
End Sub

И вроде работает, но как-то чересчур сложно все.

А Вам, еще раз большое спасибо!

Автор - Мур
Дата добавления - 16.04.2011 в 16:03
KuklP Дата: Понедельник, 18.04.2011, 04:29 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Да уж, перебор. Смотрим:
Code
Sub Макрос1()  
      Sheets("Лист1").[B1:D3].Copy  Sheets("Лист2").[H9]    
End Sub

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеДа уж, перебор. Смотрим:
Code
Sub Макрос1()  
      Sheets("Лист1").[B1:D3].Copy  Sheets("Лист2").[H9]    
End Sub
Автор - KuklP
Дата добавления - 18.04.2011 в 04:29
KuklP Дата: Понедельник, 18.04.2011, 04:34 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ну вот, невнимателен. Николай раньше ответил то же от: nilem Дата: Суббота, 16.04.2011, 12:01 | Сообщение № 2.
Мур, что Вас не устраивает в ответе Николая?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Понедельник, 18.04.2011, 04:45
 
Ответить
СообщениеНу вот, невнимателен. Николай раньше ответил то же от: nilem Дата: Суббота, 16.04.2011, 12:01 | Сообщение № 2.
Мур, что Вас не устраивает в ответе Николая?
Автор - KuklP
Дата добавления - 18.04.2011 в 04:34
Мур Дата: Понедельник, 18.04.2011, 08:01 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

Здравствуйте! KuklP.
Меня всё устраивает. Николая я уже поблагодарил.
Просто напоследок выложил каким дурацким путем
пошел я сам. wacko Читайте предыдущие сообщения.

Вам тоже спасибо!

 
Ответить
СообщениеЗдравствуйте! KuklP.
Меня всё устраивает. Николая я уже поблагодарил.
Просто напоследок выложил каким дурацким путем
пошел я сам. wacko Читайте предыдущие сообщения.

Вам тоже спасибо!

Автор - Мур
Дата добавления - 18.04.2011 в 08:01
KuklP Дата: Понедельник, 18.04.2011, 12:24 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Quote (Мур)
Здравствуйте! KuklP.
Здравствуйте, Мур. И Вам спасибо за аккуратность. Я уже извинился за свою невнимательнось от Дата: Понедельник, Сегодня, 04:34 | Сообщение № 8.
Удачи!

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Quote (Мур)
Здравствуйте! KuklP.
Здравствуйте, Мур. И Вам спасибо за аккуратность. Я уже извинился за свою невнимательнось от Дата: Понедельник, Сегодня, 04:34 | Сообщение № 8.
Удачи!
Автор - KuklP
Дата добавления - 18.04.2011 в 12:24
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование диапазона (Отладка макроса)
  • Страница 1 из 1
  • 1
Поиск:

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