Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Заполнение таблицы (макросом), добавление новых строк
 
#1
26.01.2015 12:43:45
Добрый день, прошу вас помочь мне решить проблему, пробовал тут поискать ответа, но не нашел.
есть два файла в эксель. "шаблон" и "заявки", нужно заполнить таблицу в заявках согласно данным в шаблоне, при этом каждая новая запись должен заполнятся в новой строке. вот макрос которую я имею:
Код
 Sub
    Windows(Заявки.xlsm").Activate
    Range("D132").Select
    ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R10C10"
    Range("E132").Select
    ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R12C10" 
    Range("F132").Select 
    ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R11C10" 
    Range("G132").Select 
    ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R16C10" 
    Range("H132").Select 
    ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R13C10" 
    Range("J132").Select 
    ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R14C10" 
    Range("K132").Select 
    ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R18C10" 
    Range("L132").Select 
    ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R9C10" 
    Range("L133").Select 
    ActiveWindow.ScrollColumn = 3 
    ActiveWindow.ScrollColumn = 4  
    ActiveWindow.ScrollColumn = 5 
    ActiveWindow.ScrollColumn = 6 
    ActiveWindow.ScrollColumn = 7 
    Rows("132:132").Select 
    Range("G132").Activate 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
        :=False, Transpose:=False 
    Windows("шаблон.xltm").Activate 
End Sub  
в данном макросе у меня всегда копируется на одну и туже ячейку, что нужно поменять для того чтобы заполнялся следующая новая строка. заранее спасибо
 
 
 
#2
26.01.2015 13:00:38
Код
 Sub ффф()
Dim iY As Long
Windows("Заявки.xlsm").Activate
iY = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("D" + Trim(Str(iY))).Select
ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R10C10"
Range("E" + Trim(Str(iY))).Select
ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R12C10"
Range("F" + Trim(Str(iY))).Select
ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R11C10"
Range("G" + Trim(Str(iY))).Select
ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R16C10"
Range("H" + Trim(Str(iY))).Select
ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R13C10"
Range("J" + Trim(Str(iY))).Select
ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R14C10"
Range("K" + Trim(Str(iY))).Select
ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R18C10"
Range("L" + Trim(Str(iY))).Select
ActiveCell.FormulaR1C1 = "=[шаблон.xltm]заключение!R9C10"
Range("L" + Trim(Str(iY))).Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
Rows(iY).Select
Range("G" + Trim(Str(iY))).Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows("шаблон.xltm").Activate
End Sub

Не тестил. Без примера не удобно.
Но должно работать.
 
 
 
#3
26.01.2015 13:17:48
МатросНаЗебре спасибо большое вроде копирует на новую строку)) вот только нужно теперь под свой файл  внести изменения, вроде суть я понял. спасибо вам. если что я буду еще спрашивать, если можно))))
 
 
 
#4
26.01.2015 13:46:38
Цитата
МатросНаЗебре  
Все получилось, классно, сижу довольный. но только появилась странная проблема, когда я открываю файл "Шаблон" почему то переименовывается на "Шаблон1"( если открою еще раз то переименовывается на "Шаблон11" итд) , не знаете почему так? у меня то в макросе написано ("шаблон.xltm" ;) .
 
 
 
#5
26.01.2015 13:51:54
МатросНаЗебре, Что это за говнокод?
There is no knowledge that is not power
 
 
 
#6
26.01.2015 14:00:56
Цитата
Johny пишет: Что это за говнокод?
Особенно это доставляет:
Код
ActiveWindow.ScrollColumn = 3 
ActiveWindow.ScrollColumn = 4 
ActiveWindow.ScrollColumn = 5 
ActiveWindow.ScrollColumn = 6 
ActiveWindow.ScrollColumn = 7
 :D
Bite my shiny metal ass!      
 
 
 
#7
26.01.2015 14:09:50
Johny, Лузер™, а почему вы у меня спрашиваете?
 
 
 
#8
26.01.2015 14:14:22
Johny, всё же подбирайте слова.
 
 
 
#9
26.01.2015 14:14:39
Цитата
unique пишет: когда я открываю файл "Шаблон" почему то переименовывается на "Шаблон1"(
Ибо это шаблон ".xltm". С ".xls" или ".xlsx" или ".xlsm" этого бага не будет.
 
 
 
#10
26.01.2015 15:09:25
МатросНаЗебре, все получилось, УРААА, супер. спасибо вам огромное
 
 
 
Страницы: 1
Наверх