עזרה - צעד קטן מסיום פליז העתקת גליונות 1+2 לחוברת עבודה חדשה: בשם אחר עפ"י תא D3+D5

[eliran1507]

שלום לחברי הפורום,
אופיס 365, יוצר קובץ חדש ושמרה בשם - לא יודע איך להעתיק יותר מ SHEET1 ארצה להעתיק לדוגמא sheet2 בנוסף : שאת שני הגליונות לקובץ חדש בשם.
ניסיתי & .
מצורף הקובץ הקוד הבא- מעתיק את הגליון לנתיב מסוים ושומר את הקובץ בשם חדש עפי תאים:
לא יכול לעלות קובץ( אבטחת מידע )- סורי
מעתיק את הקוד:

Private Sub CommandButton1_Click()

Dim path As String
Dim fname As String
Dim invno As Long

path = "C:\Users\chest\Blue Pecan\Invoices\"
invno = Range("D3")
fname = invno & " - " & Range("D5")


Application.DisplayAlerts = False

sheet2.copy & Sheet1.Copy


With ActiveWorkbook
.SaveAs Filename:=path & fname, FileFormat:=51
.Close
End With


MsgBox "Your next invoice number is " & invno + 1

Range("D3") = invno + 1

ThisWorkbook.Save

Application.DisplayAlerts = True

End Sub

 

[eliran1507]

מצאתי

sheets(Array("sheet1","sheet2")).copy