Paulius rašė:
> 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?
ActiveSheet.SaveAs
WorkSheets("Sheet1").SaveAs