Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2175
    Sheets("másolandó lap neve").Copy
    Cells.Copy
    Range("A1").PasteSpecial xlPasteValues
    ActiveWorkbook.Save
    ActiveWorkbook.Close

    Az első sor átmásolja egy új füzetbe a lapot, és az új füzetet teszi aktívvá. A cells.copy másolja az összes cellát, a köv. sor beilleszti az értéket. A két utolsó ment és zár.