PK kysyy:
Minulla on laskentataulukko, johon syötän joitain arvoja. Napsauttamalla makropainiketta haluan, että arvot tai sen lasketut tulokset liitetään toiseen taulukkoon tai tiedostoon.
Hyvä kysymys. Oletetaan, että arvot ovat Taulukon 1 soluissa C10 ja E12 ja haluat, että ne liitetään Taulukko2 seuraavaan riviin.
Todellinen temppu on koodi löytää seuraava rivi Sheet2: sta. Aloittaessasi Taulukko2: n viimeisestä rivistä (A65536) ja sitten .End (xlup) -toiminnolla, löydät viimeisen rivin, jossa on tietoja sarakkeessa A. Lisäämällä 1 tähän riviin sinut siirretään seuraavaan taulukon 2 riviin. Käytä tätä koodia:
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
