حفظ الديباجة عند الضغط على زر الحفظ تحفظ على شكل ملفات وليس شيتات

[ابوعبدالواجد]

السلام عليكم : حياكم الله - رمضان مبارك

ممكن عند ادخال البيانات في الديباجة والضغط على زر حفظ يتم حفظ الملف بموجب رقم كود العميل على شكل ملف اكسل  , بالتالي سيكون كل عميل له صفحة على شكل ملف وليس على شكل شيت وكما مبين بالملف بالحفظ - وتبقى الديباجة ملف ادخال بيانات تشبه الفورمة

بارك الله فيكم وتقبل الله منكم الطاعات

الحفظ.rar

تم تعديل يونيو 6, 2017 بواسطه ابوعبدالواجد

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي

Sub ExportActiveSheetToNewWorkbook()
'YasserKhalil *** 07-06-2017
'---------------------------
    Dim wb      As Workbook
    Dim ws      As Worksheet
    Dim str     As String
    
    Set ws = ActiveSheet
    str = ws.Range("A2").Value
    
    Application.DisplayAlerts = False
        If wb Is Nothing Then
            ws.Copy
            ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
            Set wb = ActiveWorkbook
    
            If Dir(ThisWorkbook.Path & "\ملفات العملاء\" & str & ".xlsx") <> "" Then
                MsgBox "Workbook Is Already Existing", vbCritical
                wb.Close False
            Else
                wb.SaveAs Filename:=ThisWorkbook.Path & "\ملفات العملاء\" & str & ".xlsx"
                wb.Close True
                MsgBox "Workbook Exported Successfully ...", 64
            End If
        End If
    
        Set ws = Nothing
        Set wb = Nothing
    Application.DisplayAlerts = True
End Sub

 

[ابوعبدالواجد]

جزيت خيرا - تمام 100 % هو المطلوب

ممكن استاذ ياسر الله يعزك ويرفع من قدرك

عند الضغط على زر حفظ - تختفي البيانات الموجودة في الديباجة 

وتبقى فارغة لادخال بيانات جديدة

جزيت خيرا

[ياسر خليل أبو البراء]

يمكنك قبل نهاية الكود الإشارة للخلايا المطلوب مسحها ثم مسحها باستخدام ClearContents

مثال :

Range("B2:C2").ClearContents

 

[ابوعبدالواجد]

تمام - الكود ممتاز

استاذ امر مهم وهو عند فتح ملف تم حفظه واضافة بيانات جديدة  ، كدفع قسط او شراء مادة جديدة 

المعادلات الموجودة كمجموع المشتريات ومجموع الاقساط والمبلغ المتبقي  وكذلك معادلة السعر * الكمية ، الموجودة بالديباجة - تختفي كلها بعد الحفظ ، اي عند فتح ملف تم حفظه لا توجد معادلات

جزيت خيرا - اثقلت عليك - في ميزان حسناتك - رمضان مبارك

تم تعديل يونيو 7, 2017 بواسطه ابوعبدالواجد

[ياسر خليل أبو البراء]

جرب حذف السطر التالي من الكود حيث أنه يقوم بتحويل المعادلات لقيم

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

 

[ابوعبدالواجد]

جزيت خيرا - تمام 100 % شغل ممتاز

الله يرضى عليك 

 

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لي 

تقبل تحياتي