Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2128
    A VB szerkesztőben a ThisWorkbook lapodhoz kell rendelned a makrót.

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Const utvonal = "D:\Akármi\Valami\"

    ActiveWorkbook.SaveAs Filename:=utvonal & Sheets("Munka1").Range("G3") & ".xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End Sub

    Az utvonal változóhoz a saját útvonaladat add meg, a Sheets("Munka1") helyén is a saját lapod neve legyen.