PK chiede:
Ho un foglio di lavoro in cui inserisco alcuni valori. Facendo clic su un pulsante macro, desidero che i valori oi risultati calcolati vengano aggiunti a un foglio o file diverso.
Buona domanda. Diciamo che i valori sono nelle celle C10 ed E12 di Sheet1 e vuoi che vengano aggiunti alla riga successiva in Sheet2.
Il vero trucco qui è il codice per trovare la riga successiva su Sheet2. A partire dall'ultima riga in Sheet2 (A65536) e quindi utilizzando .End (xlup) troverà l'ultima riga con i dati nella colonna A. L'aggiunta di 1 a quella riga ti indirizzerà alla riga successiva per i dati su Sheet2. Usa questo codice:
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
