Макрос, доабвляющий новый лист в тьекущий файли переносящий данные в другой файл

Пользователь

Сообщений: 2 Регистрация: 01.01.1970

20.08.2012 16:51:33

Доброго всем здравия.
не пинайте чайника слишком сильно.

вопрос.
нужен макрос, которые бы добавлял новый лист в файл:Заявка_ремонт_Форма, копировал в новый лист форму заявки, потом в файле:Ремонт_финал,в пустую строку сводной таблицы вводились в соответсвующие ячейки значения из первого файла. при создании нового листа ,данные вносились бы в следующую строку и так далее.

файлы во вложении

Прикрепленные файлы

post_356661.rar (78.26 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 20.08.2012 16:59:13 Похоже на заказ. Если да, то где стоимость? Если нет, то где попытки решения? Я сам - дурнее всякого примера! ...

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

20.08.2012 17:10:55

странно...
если я полный чайник в html, php и js, то я почему-то не рвусь за пару часов сделать корпоративный сайт родной фирмы... :(
хотя место web-программиста у нас месяца три как свободно.

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

hantel Пользователь Сообщений: 2 Регистрация: 01.01.1970	#4 20.08.2012 17:12:48 если вы считаете, что это заказ, то вы и называйте цену. а результаты попыток Sub Макрос1() ' ' Макрос1 Макрос ' ' Sheets.Add After:=Sheets(Sheets.Count) Sheets("Лист1").Select ActiveWindow.SmallScroll Down:=-24 Range("A1:N71").Select Selection.Copy Sheets("Лист2").Select Range("A1").Select ActiveSheet.Paste ActiveWindow.View = xlPageBreakPreview Application.CutCopyMode = False Set ActiveSheet.VPageBreaks(1).Location = Range("O1") ActiveWindow.SmallScroll Down:=15 Range("N70:N71").Select ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1 Windows("Ремонт_финал.xls").Activate Range("A10").Select ActiveCell.FormulaR1C1 = "=[Заявка_Ремонт_Форма.xlsx]Лист2!R1C14" Range("C10").Select ActiveCell.FormulaR1C1 = "=[Заявка_Ремонт_Форма.xlsx]Лист2!R24C4" Range("D10").Select ActiveCell.FormulaR1C1 = "=[Заявка_Ремонт_Форма.xlsx]Лист2!R25C4" Range("E10").Select ActiveCell.FormulaR1C1 = "=[Заявка_Ремонт_Форма.xlsx]Лист2!R26C4" Range("F10").Select ActiveCell.FormulaR1C1 = "=[Заявка_Ремонт_Форма.xlsx]Лист2!R27C4" Range("F11").Select End Sub я прекрасно понимаю, что надо учиться, но я не программист по натуре.

Читают тему