PK spør:
Jeg har et regneark der jeg legger inn noen verdier. Når du klikker på en makroknapp, vil jeg at verdiene eller de beregnede resultatene skal legges til et annet ark eller en annen fil.
Godt spørsmål. La oss si at verdiene er i cellene C10 og E12 i Sheet1, og at du vil at de skal legges til neste rad i Sheet2.
Det virkelige trikset her er koden for å finne neste rad på Sheet2. Ved å starte på den siste raden i Ark2 (A65536) og deretter bruke .End (xlup) finner den siste raden med data i kolonne A. Hvis du legger til 1 i den raden, blir du vist til neste rad for data på Ark2. Bruk denne 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
