محمد عبدالسلام

السلآم عليكم ورحمة الله وبركاته في الملف المرفق كود الاستاذ / حسين مامون جزاك الله عنا خير جزاء ممكن مساعدتي جزاكم الله خيرا اريد عند نقر على زر الستعلام من الفورم لفتح نسخة احتياطية من الملف الرئيسي اريد عندما يتم فتح نسخة يتم اخفاء الملف الرئسي ويتم اطهار الملف الأخر لا اريد ان يتم فتح ملفين مرة واحدة back.zip

رائع جداً أخي الفاضل وفقك الله تعالى وجزاك الله خير الجزاء

السلام عليكم ورحمة الله وبركاته اخي الكريم واستاذي الفاضل الكود عند تعديل يعمل بشكل رائع لكن قد حدث نفس الخطا في كود استعلام يوزر فورم عندما تغير اسم الملف لقد ظهرت مشكلة في كود الاستعلام في يوزرفورم عندما يتم نقر اقدي اواجل يظهر هدا الخطأ في هاد سطرين back.zip 870.68 kB · 5 تنزيلات

اخي الحبيب حسين مامون جزاك الله خيرا وجعله في ميزان حسناتك

اخي حسين مامون لقد قومت بتغير اسم الملف لوسمحت قوم تحميل هدا الملف ونقر على زر لعمل نسخة احطياطية وسوف تظهر لك المشكلة back.zip

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

اخي الكريم حسين مامون .. جزاه الله خيرا ولكن مازال هذا الخطأ عند تغيير اسم الملف في هذا سطر من فاتورة الااسم اخر

اخي الكريم حسين مامون .. جزاه الله خيرا ولكن عندا تغير السطورونقر على زر يظهر لي هذا الخطأ Private Sub CommandButton1_Click() Dim ws As Worksheet Set ws = Workbooks("فاتورة").Sheets("invoice") Dim wss As Worksheet Set wss = Workbooks("فاتورة").Sheets("sheet1") Dim ws As Worksheet Set ws = wx.Sheets("invoice") Dim wss As Worksheet Set wss = wx.Sheets("sheet1") Dim DT Dim Nam Dim lr As Long Application.ScreenUpdating = False Application.EnableEvents = False lr = wss.Range("a" & Rows.Count).End(xlUp).row + 1 DT = ws.Range("e5") & Format(Now(), "dd-mm-yyyy hh mm ss") With ws ' .Copy ' .UsedRange = .UsedRange.Value Application.DisplayAlerts = False ' Nam = "d:\back\backup\فاتورة" & DT & ".xlsx" Nam = .Range("e5") & " " & Format(Now(), "dd mm yyyy hh mm ss") ThisWorkbook.SaveCopyAs Filename:="D:\back\Backup\" & Nam & ".xlsm" ' ActiveWorkbook.SaveAs Nam, FileFormat:=xlOpenXMLWorkbook '========================================= If ws.[f5].Text = "اجل" Then wss.Range("a" & lr).Value = Nam wss.Range("a" & lr).Font.Color = 255 wss.Range("b" & lr).Value = "اجل" Else: wss.Range("a" & lr).Value = Nam wss.Range("b" & lr).Value = "نقدي" End If '======================================== ' ActiveWorkbook.Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True Application.EnableEvents = True MsgBox "تم حفظ نسخة باسم " & DT & " ", vbInformation End Sub

السلآم عليكم ورحمة الله وبركاته في الملف المرفق كود الاستاذ / حسين مامون .. جزاه الله خيرا اريد تعديل الكود لي انا سم الفاتورة يتغير في كل نسخةاحتياطية اسم الملف هو الفاتورة وفي نسخة الإحتياطية يصبح الملف بهدا الاسم خاليد 25 10 2019 09 32 54 المشكلة عند نقر على زر لعمل نسخة أخرى يظهر لي هدا الخطأ في صورة باللون الاصفر back.rar https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=168485 back.rar

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

اخي الكريم رائع والله اخي حسين مامون عمل رائع جدا جزاك الله خيرا زادك الله علما وخلقا ورفعه back.rar back.rar

جزاكم الله خير واسالوا الله لكم الفردوس الاعلى مازالت المشكلة قائمة عند البحت من تكست بوكس لما تكون اسماء الشيتات مختافية ويتم اظهار الفورم من شيت invoice عند كتابة حرف في تكست ربوكس تختافي البيانات من الليست بوكس

اخي الكريم لقد تم تعديل رابط الفيديو https://youtu.be/ASVtR4tIIgc

المشكلة لما تكون اسماء الشيتات مختافية وعندما يتم اظهار الفورم من شيت اخر الى شيت1 شاهد الفيديو اخي الكريم لقد تم تعديل رابط الفيديو https://youtu.be/ASVtR4tIIgc

اخي الكريم جزاك الله خير على الاهتمام بالموضوع واسالوا الله لك الفردوس الاعلى اخي لقد واجهتني مشكلة أخرى يوجد في الملف الااصلي لدي كود يقوم بي اخفاء اسماء الشيتات ولقد قومت بي اضافة الكود في الملف عندما اقوم بظهارالفورم من شيت 1واقوم بي البحت من خلال.TextBox1.يتم البحت بشكل طبيعي وعندما يتم اظهار الفورم من شيت اخر بمجرد اكتب حرف في TextBox1 تختافي البيانات من الليست بوكس 2009 2(3).xlsm

رائع يا اخي جزاك الله خيرا الله يحفظك اسف اخي على طلباتي الكترا اريد الما اكتب حرف فيComboBox1 تاتم الفلترة علىالااسم كمتال حرف س يتم فلترة على حرف س

السلام عليكم ورحمة الله وبركاته لما اقوم بي اضافة اسم في ComboBox2 واختيار نوع الفاتورة من ComboBox1 وانقر دبل كليك على النتيجة في ListBox يظهر لي هذا الخطأ 2009.xlsm 2009.xlsm

السلام عليكم ورحمة الله وبركاته المرجو مساعدتي في كود لتعديل في شيت 1 عمود B اريد عمل الكومبوبكس في يوزر فورم لتعديل في شيت 1 من خلال الكومبوبكس عمل زر امر لما اقوم بتحديد سطر من الليست بوكس واختار نقدي من الكومبوبكس وضغط على زر يتم تعديل من نقدي الااجل اوالعكس من لجل الانقدي فاتورة1(1).xlsm

جزاكم الله كل خير ونفع بكم الاسلام والمسلمين

السلام عليكم ورحمة الله وبركاته الرجاء المساعدة اريد ا اظهار عمودين في الليست بوكس عمود A عمود B من شيت 1 فاتورة.xlsm

جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته طلب مساعدة اريد طريقة البحث من خلال الكومبو بوكس واظهار النتائج فى الليست بوكس اريد تعبئة الكومبو بوكس لما اختار اسم تظهار نتائج في الليست بوكس فاتورة.xlsm

طلب أتمنى المساعدة اريد البحث عن طريق الكومبو بوكس واظهار النتائج في الليست بوكس بدلاً من تكست بوكس

اخواتي حفظكم اللهه جزاكم الله خير وأحسن إليكم فيما قدمت دمت برضى الله وإحسانه

السلام عليكم ورحمه الله وبركاته استاتذي الكرام المرجو المساعده في يوزرفورم اذا قمت بي اظهار الفورم بي زر من شيت . invoice. يظهار فارغ ولما اقوم بي اظهار الفورم بي زر من شيت 1 تظهار حميع البيانات في الفورم back.zip back.zip