ПК пита:
Имам радни лист у који уносим неке вредности. Кликом на дугме макронаредбе желим да се вредности или израчунати резултати додају на други лист или датотеку.
Добро питање. Рецимо да су вредности у ћелијама Ц10 и Е12 листа1 и желите да се додају у следећи ред листа2.
Прави трик овде је код за проналажење следећег реда на Схеет2. Почевши од последњег реда у Схеет2 (А65536), а затим помоћу .Енд (клуп) пронаћи ћете последњи ред са подацима у колони А. Додавањем 1 у тај ред водићете до следећег реда за податке на Схеет2. Користите овај код:
Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub
