salvare foaie in alt fisier,xlsx

[Laslau Petre]

Buna ziua,
Am creat un buton care salveaza fisierul, cu numele unei casute din fisier, intr-un anume folder.
As dori sa salvez in acel folder doar un singur sheet din fisier, cu numele unei casute din fisier. Ideal ar fi o parte din sheet.
Butonului i-am alocat urmatorul cod:

Private Sub CommandButton1_Click()
Dim path As String
Dim filename1 As String

path = "C:\Users\cem 110\Desktop\cereri\"
filename1 = Range("a8").Text
Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:=path & filename1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True

End Sub
Multumesc!

[csaba1960]

Buna

Ai o soluție in atașament.
Path-ul si numele fișierului am trecut ca parametrii in prima pagina.
Pagina pe care o salvezi, il alegi după numărul sau. In celula B3, este un Data Validation, pentru a impiedica sa scrii altceva decât cifre, momentan limitat la 10, daca e cazul o modifici.
Din pagina aleasa este salvata doar parte selectata prealabil.

[Laslau Petre]

Multumesc Csaba!