PK klausia:
Turiu darbalapį, kuriame įvedu kai kurias reikšmes. Spustelėjus makrokomandą, noriu, kad reikšmės ar jos apskaičiuoti rezultatai būtų pridėti prie kito lapo ar failo.
Geras klausimas. Tarkime, kad vertės yra „Sheet1“ C10 ir E12 langeliuose ir norite, kad jos būtų pridėtos prie kitos „Sheet2“ eilutės.
Tikroji gudrybė yra kodas, skirtas rasti kitą „Sheet2“ eilutę. Pradėdami nuo paskutinės „Sheet2“ eilutės (A65536) ir naudodami .End (xlup), paskutinę eilutę su duomenimis rasite A stulpelyje. Pridėję 1 prie šios eilutės, būsite nukreipti į kitą „Sheet2“ duomenų eilutę. Naudokite šį kodą:
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
