PK frågar:
Jag har ett kalkylblad där jag matar in några värden. När jag klickar på en makroknapp vill jag att värdena eller dess beräknade resultat ska läggas till i ett annat ark eller fil.
Bra fråga. Låt oss säga att värdena finns i cellerna C10 och E12 i Sheet1 och du vill att de ska läggas till nästa rad i Sheet2.
Det verkliga tricket här är koden för att hitta nästa rad på Sheet2. Börja vid den sista raden i Sheet2 (A65536) och sedan använda .End (xlup) hittar den sista raden med data i kolumn A. Om du lägger till 1 i den raden pekar du på nästa rad för data på Sheet2. Använd den här koden:
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
