PK küsib:
Mul on tööleht, kuhu sisestan mõned väärtused. Kui klõpsate makro nuppu, soovin, et väärtused või selle arvutatud tulemused lisatakse teisele lehele või failile.
Hea küsimus. Oletame, et väärtused on lehe1 lahtrites C10 ja E12 ning soovite, et need lisataks lehe2 järgmisele reale.
Tõeline trikk on siin kood järgmise lehe leidmiseks lehelt2. Alustades Sheet2 viimasest reast (A65536) ja kasutades seejärel .End (xlup), leiate veerus A. viimase rea andmetega. Kui lisate sellele reale 1, suunatakse teid järgmisele Sheet2 andmete reale. Kasutage seda koodi:
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
