PK întreabă:
Am o foaie de lucru în care introduc câteva valori. La clic pe un buton macro, vreau ca valorile sau rezultatele calculate să fie adăugate la o altă foaie sau fișier.
Buna intrebare. Să presupunem că valorile sunt în celulele C10 și E12 din Sheet1 și doriți ca acestea să fie atașate la rândul următor din Sheet2.
Adevăratul truc aici este codul pentru a găsi următorul rând pe Sheet2. Începând de la ultimul rând din Sheet2 (A65536) și apoi folosind .End (xlup), veți găsi ultimul rând cu date în coloana A. Adăugarea 1 la acel rând vă va îndrepta către următorul rând pentru datele din Sheet2. Folosiți acest cod:
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
