PK vraagt:
Ik heb een werkblad waarin ik enkele waarden invoer. Als ik op een macroknop klik, wil ik dat de waarden of de berekende resultaten ervan aan een ander blad of bestand worden toegevoegd.
Goede vraag. Stel dat de waarden in de cellen C10 en E12 van Sheet1 staan en u wilt dat ze aan de volgende rij in Sheet2 worden toegevoegd.
De echte truc hier is de code om de volgende rij op Sheet2 te vinden. Als u begint bij de laatste rij in Blad2 (A65536) en vervolgens .End (xlup) gebruikt, wordt de laatste rij met gegevens in kolom A gevonden. Als u 1 aan die rij toevoegt, gaat u naar de volgende rij voor gegevens op Blad2. Gebruik deze code:
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
