PK jautā:
Man ir darblapa, kurā es ievadu dažas vērtības. Noklikšķinot uz makro pogas, es vēlos, lai vērtības vai tās aprēķinātie rezultāti tiktu pievienoti citai lapai vai failam.
Labs jautājums. Pieņemsim, ka vērtības ir 1. lapas šūnās C10 un E12, un jūs vēlaties, lai tās tiktu pievienotas nākamajai 2. lapas rindai.
Patiesais triks šeit ir kods, lai atrastu nākamo rindu Sheet2. Sākot no Sheet2 pēdējās rindas (A65536) un pēc tam izmantojot .End (xlup), tiks atrasta pēdējā rinda ar datiem kolonnā A. Pievienojot šai rindai 1, tiks parādīta nākamā datu lapas 2. rinda. Izmantojiet šo kodu:
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
