Sveiki,

Esu visai zalias sioj srityje.

Turiu toki paprasta macrosa

Sub SaveAs()
     
    Dim FName           As String
    Dim FPath           As String
     
    FPath = "C:\saskaitos\"
    FName = Sheets("Saskaita").Range("G8").Text
    ActiveWorkbook.SaveCopyAs Filename:=FPath & "\" & FName & ".xls"
    rep = MsgBox("You sheet has been saved " & Name, vbYes + vbInformation, "Copy of spreadsheet")
     


Kaip pakeisti, kad saugotu ne visa woorkbooka o tik konkretu sheeta?

aciu!