[حل شده] save as

[mohammad mehdi]

با عرض سلام خدمت دوستان عزیز
سوالی داشتم میشه توی اکسل وقتی save as رو میزنی فقط شیت فعال رو در خروجی بهت بده ؟ (یعنی در یک فایل اکسل جدا- مثلا وقتی یه فایل اکسل 3 شیت داره وقتی در شیت 2 save as رو که میزنی فقط در خروجی شیت 2 رو بهت بده یعنی یه فایل اکسل که فقط دارای یک شیت هستش)
ممنون

[iranweld]

با سلام

فایل پیوست را ملاحظه نمایید

Private Sub CommandButton1_Click()

Application.DisplayAlerts = False

Dim FlSv As Variant
    Dim MyFile As String
    Dim sh As Worksheet
    
   xx = ThisWorkbook.Path

    Set sh = ActiveSheet
    
    sh.Copy
    
    MyFile = xx & "\" & Range("v5") & ".xlsx"
    
    With ActiveWorkbook
        .SaveAs (MyFile), FileFormat:=51, CreateBackup:=False
       
        .Close False
        
    End With
    Application.DisplayAlerts = True
    
End Sub 

[mohammad mehdi]

دمت گرم عالی بود خیلی کارمو راه انداختی