Всем привет! Помогите, пожалуйста, решить такую задачу: Надо скопировать с Первой страницы данные и вставить на Вторую. При этом Первая страница скрыта и её не хотелось бы показывать при работе макроса. Поэтому возник вопрос из первого пришедшего в голову решения: можно ли скопировать данные без перехода на страницу. Например: с Листа1 надо скопировать ячейку А1 и вставить на Лист2 так, чтобы перехода на Лист1 не было. Форма Copy Sheets("Лист1").Range("A1") почему-то не работает. Вероятно я что-то не так пишу.
Всем привет! Помогите, пожалуйста, решить такую задачу: Надо скопировать с Первой страницы данные и вставить на Вторую. При этом Первая страница скрыта и её не хотелось бы показывать при работе макроса. Поэтому возник вопрос из первого пришедшего в голову решения: можно ли скопировать данные без перехода на страницу. Например: с Листа1 надо скопировать ячейку А1 и вставить на Лист2 так, чтобы перехода на Лист1 не было. Форма Copy Sheets("Лист1").Range("A1") почему-то не работает. Вероятно я что-то не так пишу.maverick_77
если нельзя, но очень хочется, то можно!
Сообщение отредактировал maverick_77 - Вторник, 30.06.2015, 14:18
Не понял, как это использовать... сори... И не совсем понимаю, для чего в этой ситуации файл... но вот, прикрепил: Надо чтобы макрос копировал с листа "Расчёты" (скрыт) данные и вставлял на страницу "Итоговая". Например, диапазон A2:D3 листа "Расчёты" скопировал в B8:E9 листа "Итоговая"
Не понял, как это использовать... сори... И не совсем понимаю, для чего в этой ситуации файл... но вот, прикрепил: Надо чтобы макрос копировал с листа "Расчёты" (скрыт) данные и вставлял на страницу "Итоговая". Например, диапазон A2:D3 листа "Расчёты" скопировал в B8:E9 листа "Итоговая"maverick_77
Макрописец, В моем файле лист скрыт, и видимым не становится, этот код работает даже с VeryHidden листом. Если я ошибаюсь, докажите скрином, где лист "Расчёты" становится видимым во время выполнения макроса.
Макрописец, В моем файле лист скрыт, и видимым не становится, этот код работает даже с VeryHidden листом. Если я ошибаюсь, докажите скрином, где лист "Расчёты" становится видимым во время выполнения макроса.Manyasha
Manyasha, спасибо! Так даже круче, т.к. могу сохранить форматирование, которое изначально было на "Итоговой"! =)
При копировании, действительно, ни на миг не становится видна вторая страница.
И тогда вопрос на развитие: а если вдруг мне понадобится копировать с теми форматами ячеек, которые на странице "Расчёты", такой варианта не прокатит ведь (?) Как тогда можно поступить?
Manyasha, спасибо! Так даже круче, т.к. могу сохранить форматирование, которое изначально было на "Итоговой"! =)
При копировании, действительно, ни на миг не становится видна вторая страница.
И тогда вопрос на развитие: а если вдруг мне понадобится копировать с теми форматами ячеек, которые на странице "Расчёты", такой варианта не прокатит ведь (?) Как тогда можно поступить?maverick_77
Если Вам нужно скопировать именно значения и форматы (а не вообще все, включая формулы), то это можно сделать так [vba]
Код
Sub Макрос1() Sheets("рассчёты").Range("A2:D3").Copy Sheets("Итоговая").Range("A2").PasteSpecial Paste:=xlPasteValues Sheets("Итоговая").Range("A2").PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False End Sub
[/vba] Кстати, не знаю, нарочно у Вас так сделано или нет (я, например, иногда сознательно называю листы с ошибками), но на всякий случай - "расчеты" пишется с одним "с".
Если Вам нужно скопировать именно значения и форматы (а не вообще все, включая формулы), то это можно сделать так [vba]
Код
Sub Макрос1() Sheets("рассчёты").Range("A2:D3").Copy Sheets("Итоговая").Range("A2").PasteSpecial Paste:=xlPasteValues Sheets("Итоговая").Range("A2").PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False End Sub
[/vba] Кстати, не знаю, нарочно у Вас так сделано или нет (я, например, иногда сознательно называю листы с ошибками), но на всякий случай - "расчеты" пишется с одним "с"._Boroda_
_Boroda_, да, спасибо из за вариант, и за поправку. Я когда сюда начал вопросы постить, обнаружил эту ошибку. И гордая владелица серебряной медали каког-то там ВУЗа будет после основного времени смены сидеть вычищать эту ошибку из стапицот файлов, которые между собой взаимосвязаны и ссылаются на эту страницу =))) Но это уже офтоп... сори.
Manyasha, спасибо!
_Boroda_, да, спасибо из за вариант, и за поправку. Я когда сюда начал вопросы постить, обнаружил эту ошибку. И гордая владелица серебряной медали каког-то там ВУЗа будет после основного времени смены сидеть вычищать эту ошибку из стапицот файлов, которые между собой взаимосвязаны и ссылаются на эту страницу =))) Но это уже офтоп... сори.