не могу разобраться смакросом (перебор строк) - Microsoft Office Excel

aleks1982 · 21.07.2010, 12:13

Нужно сделать макрос который из каждой строчки таблицы(Лист1) создаёт лист3..n и в этих листах заполняет таблицу(Лист2)
Создание листа сделал, заполнение таблицы тоже сделал, а вот как сделать чтобы макрос каждый раз на строку в низ переходил не могу

ПОМОГИТЕ КТО МОЖЕТ

IgorGO · 21.07.2010, 13:17

запускайте Sub1 в Модуле1.
С наименованиями организаций мог не угадать. Подправите код, если они не в 5-й, а в 4-й или 3-й колонке будут у Вас записаны на листе1.

aleks1982 · 22.07.2010, 11:13

Благодарствую за помощь

Keshunya · 26.07.2010, 14:58

Спасибо огромное и от меня. Я ,к сожалению, не программист, так что собираю с мира по нитке. У меня только еще одно условие всплывает- нужно переносить данные на новый лист и одновременно оставлять такие же параметры страницы. То что у меня есть (для кнопки):
Cells.Select
Range("A1").Activate
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("A1:AA1").Select
Application.CutCopyMode = False

Данные перенеслись, все хорошо, а вот параметры страницы нужно задавать заново. Помогите, плиз, дописать Ваш макрос!!!
(Перехожу в нужную тему с теми же вопросами))))))

EducatedFool · 26.07.2010, 15:08

Цитата:

нужно переносить данные на новый лист и одновременно оставлять такие же параметры страницы

Keshunya, макрос дописывать не надо.
А надо безжалостно удалить ранее написанный код, заменив его одной строкой типа этой:

Код:

Sub test()
    ActiveSheet.Copy , ActiveSheet
End Sub

Keshunya · 26.07.2010, 15:25

То, что нужно! Низкий поклон!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
не могу разобраться	Var17	Общие вопросы Delphi	6	27.03.2010 01:21
[C++] Не могу разобраться ...	AquaticSoul	Общие вопросы C/C++	8	24.03.2010 16:23
Не могу разобраться	Lokin	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	22.03.2010 22:45
Не могу сделать перебор компонентов в С++ по примеру из Delphi	CahekG	Общие вопросы C/C++	1	10.03.2009 18:02
не могу разобраться с форматом строк	Bezdar	Microsoft Office Excel	2	14.11.2008 11:32

22.07.2010, 11:13	#3
aleks1982 Новичок Джуниор Регистрация: 21.07.2010 Сообщений: 2	Благодарствую за помощь

26.07.2010, 14:58	#4
Keshunya Пользователь Регистрация: 08.07.2010 Сообщений: 33	Спасибо огромное и от меня. Я ,к сожалению, не программист, так что собираю с мира по нитке. У меня только еще одно условие всплывает- нужно переносить данные на новый лист и одновременно оставлять такие же параметры страницы. То что у меня есть (для кнопки): Cells.Select Range("A1").Activate Selection.Copy Sheets.Add ActiveSheet.Paste Range("A1:AA1").Select Application.CutCopyMode = False Данные перенеслись, все хорошо, а вот параметры страницы нужно задавать заново. Помогите, плиз, дописать Ваш макрос!!! (Перехожу в нужную тему с теми же вопросами))))))

26.07.2010, 15:25	#6
Keshunya Пользователь Регистрация: 08.07.2010 Сообщений: 33	То, что нужно! Низкий поклон!