أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil طلب التعديل وتصحيح اليوزر فورم اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تعديل كود تخزين الفاتورة على هيئة pdf

السلام عليكم هذا الكود للاخ ياسر احتاج الى تعديله الكود شغال 100% ولكن هنااك مشكلة عند تخزين الفاتورة الجديدة يت ..



11-10-2019 06:24 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
السلام عليكم 
هذا  الكود للاخ ياسر   احتاج الى تعديله  الكود شغال 100%  ولكن هنااك مشكلة  عند تخزين الفاتورة  الجديدة يتم حدف السابقة واستبدالها  وانا اريد تخزين جميع الفواتير التي اقوم بها  بالاضافة اريد  عمل مكان تخزين اخر على سطح المكتب  باسم مجلد خاص  بينما في الكود يقوم بتسمية الملف باسم output بدون اي  مجلد   ارفق لكم الملف والكود 
Sub Test()
    Dim c As Range, spath As String
    
    Application.ScreenUpdating = False
        With Worksheets("ورقة1")
            For Each c In .Range("A19:A32")
                If Application.Count(c.Resize(1, 4)) = 0 Then
                    c.EntireRow.Hidden = True
                End If
            Next c
        
            spath = ThisWorkbook.Path & "Output.pdf"
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=spath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            .Range("A19:A32").EntireRow.Hidden = False
        End With
    Application.ScreenUpdating = True
End Sub
 
 
  فاتورة.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(89.486) KB





11-10-2019 07:37 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
وعليكم السلام أخي الكريم
أعطي المزيد من التفاصيل حول المجلد وما هو الاسم المتوقع وهل تريد أن يتم تخزين كل الملفات في مجلد واحد أم كل ملف له مجلد خاص به ..؟
وهل التسمية للملف يمكن إضافة الساعة والدقيقة لها بحيث لا يتكرر ..؟؟




11-10-2019 07:45 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
مجلد واحد اخي ياسر  والتسمية  تكون بناء   عللى  الخلية  المكتوب فيها  order no :  كما  موجود في الملف  واذا امكن  بتاريخ  اليوم 




11-10-2019 08:06 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
وماذا لو كان تم تصدير الملف إلى المجلد في نفس اليوم ..؟ ما هو المتوقع في هذه الحالة ؟؟ أن يقوم الكود باالكتابة على الملف الموجود أي إزالة القديم أم تريد ترك القديم كما هو ويتم التسمية باسم مختلف
وما هوالاسم المتوقع في هذه الحالة؟




11-10-2019 08:18 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 223
قوة السمعة : 4281
الاعجاب : 561
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
بعد اذن الاستاذ ياسر لما لا تغير السطر التالى بالكود 
spath = ThisWorkbook.Path & "Output.pdf"

الى
spath = ThisWorkbook.Path & .Range("a1").Value & ".pdf"

والغرض من السطر على فرض ان الشيت الى فيه عرض للفاتورة ان رقم الفاتورة في الخلية a1 
قم بتغير اسم الخلية الى الخلية التى بها رقم الفاتورة 
وبناء علية سيتم الحفظ برقم الفاتورة والطبيعي ان ارقام الفواترير كلها مختلفة

وايضا يمكن تغير الخلية بدلا من رقم الفاتورة تغيرة للخلية التى بها اسم العميل وعليه سيتم حفظ الفاتورة باسم العاميل ولكن لن تحفظ فتورتين في نفس الوقت لنفس العميل


ووالتعديل التالى يتم حفظ البيانات في مجلد مرفق مع البنامج في نفس المسار باسم pdf
spath = ThisWorkbook.Path & "\Pdf\" & .Range("a1").Value & ".pdf"

طبعا يجب ان يكون الفولدر في نفس المسار وبنفس الاسم

بالنهاية لم اقم بالتجربه على الكود قم بالتجربة واتمنى ان يكون هذا هو طلبك 
 

أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

11-10-2019 08:46 مساء
مشاهدة مشاركة منفردة [5]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
المشاركة الأصلية كتبت بواسطة: YasserKhalil
وماذا لو كان تم تصدير الملف إلى المجلد في نفس اليوم ..؟ ما هو المتوقع في هذه الحالة ؟؟ أن يقوم الكود باالكتابة على الملف الموجود أي إزالة القديم أم تريد ترك القديم كما هو ويتم التسمية باسم مختلف
وما هوالاسم المتوقع في هذه الحالة؟

  
لن يكون هناك تضارب  في تسمية الملف  حتى لو تم اصدار  اكثر من فاتورة  في نفس اليوم  لانه اذا لاحظت  رقم الطلب = a238  ستكون التالية a239  وهكذا 




11-10-2019 09:08 مساء
مشاهدة مشاركة منفردة [6]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب
بعد اذن الاستاذ ياسر لما لا تغير السطر التالى بالكود 
spath = ThisWorkbook.Path & "Output.pdf"

الى
spath = ThisWorkbook.Path & .Range("a1").Value & ".pdf"

والغرض من السطر على فرض ان الشيت الى فيه عرض للفاتورة ان رقم الفاتورة في الخلية a1 
قم بتغير اسم الخلية الى الخلية التى بها رقم الفاتورة 
وبناء علية سيتم الحفظ برقم الفاتورة والطبيعي ان ارقام الفواترير كلها مختلفة

وايضا يمكن تغير الخلية بدلا من رقم الفاتورة تغيرة للخلية التى بها اسم العميل وعليه سيتم حفظ الفاتورة باسم العاميل ولكن لن تحفظ فتورتين في نفس الوقت لنفس العميل


ووالتعديل التالى يتم حفظ البيانات في مجلد مرفق مع البنامج في نفس المسار باسم pdf
spath = ThisWorkbook.Path & "Pdf" & .Range("a1").Value & ".pdf"

طبعا يجب ان يكون الفولدر في نفس المسار وبنفس الاسم

بالنهاية لم اقم بالتجربه على الكود قم بالتجربة واتمنى ان يكون هذا هو طلبك 
 


شكرا اخي محمود  كودك يعمل  ولكن الا يوجد طريقة لاضافة  التاريخ  مع رقم الفاتورة  عندما  وضعت  مدى التاريخ اعطاني خطا 




11-10-2019 09:21 مساء
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 223
قوة السمعة : 4281
الاعجاب : 561
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
جرب التالى

spath = ThisWorkbook.Path & "Pdf" & "فاتورة رقم" & .Range("a1").Value & " بتاريخ " & Format(today, "dd-mm-yyy") & ".pdf"

أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

11-10-2019 09:32 مساء
مشاهدة مشاركة منفردة [8]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
اخي محمود   وضعت كودك  لم يخزن اي فاتورة بالمجلد  والسبب انك لم تضع  اسم المجلد في الامتداد  وقد قمت بوضعه بعد التعديل 
 spath = ThisWorkbook.Path & "\Pdf\" & "فاتورة رقم" & .Range("a1").Value & " بتاريخ " & Format(today, "dd-mm-yyy") & ".pdf"  


يظهر اسم الملف  :  فاتورة رقم بتاريخ 
دون ظهور التاريخ 

أثارت هذه المشاركة إعجاب: YasserKhalil،



12-10-2019 12:11 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif تعديل كود تخزين الفاتورة على هيئة pdf
بارك الله فيك أخي الحبيب محمود أبو الدهب وعوداً حميداً للمنتدى .. لعل غيابك عنا خير إن شاء الله
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
بحث وتخزين ف اليست بوكس cvjfdkl
3 189 محمود ابو الدهب
تعديل كود الترحيل والتخزين المبتدأ
0 258 المبتدأ
تخزين بيانات اكثر من صفحة في مصفوفة VBA حسين مامون
11 612 حسين مامون
حل مشكلة تم الغاء التفعيل من قبل المسؤول أو سياسة التشفير أو تخزين بيانات الاعتماد Yasser Elaraby
1 9394 Yasser Elaraby
طلب تعديل في كود تخزين بصيغة pdfالىxls زياد عبد الجليل
3 642 YasserKhalil

الكلمات الدلالية
تعديل ، تخزين ، الفاتورة ، هيئة ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:12 صباحا

أعلن هنا
أعلن هنا
أعلن هنا