الأستاذ الفاضل / أبو عبد الرحمن

مشكور مروركم العطر علينا ، وعلى ملاحظاتكم الغالية على البرنامج

بالفعل تم التعديل على الصفوف من الأول للثالث

يمكنكم الرجوع للرابط التالى 

-------------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

------------------------

تقبل تحياتى

 
اخى الكريم

لطباعة الفورم  نفسه جرب استخدام الكود التالى فى حدث زر الطباعة

Private Sub CommandButton16_Click()

Me.PrintForm

End Sub

 
الأستاذ / خالد

يمكن وضع الكود التالى فى حدث الفورم ليقوم بعملية الحفظ قبل إغلاق الفورم والاشعار بذلك

 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

MsgBox ("تم حفظ التغيرات بنجاج"), 64

ActiveWorkbook.Save

Me.Hide

End Sub


 

 
الأستاذ /  mo_shoeb1

الفرق أنه كان  هناك خطأ غير مقصود  و هو عند مسح الدوائر الحمراء كان بيمسح أيضا زر ( تحويل الشيت إلى ملف PDF ) معه

فقمت بتغيير هذا الزر حتى لا يتم إزالته مع الدوائر الحمراء هذا فقط التغيير

----------------------

الأستاذ/ ناصر سعيد

اقتراحكم نصب العين إن شاء الله فى الاصدارات القادمة بالفعل إعطاء رقم تمييز كل تعديل

تقبلوا تحياتى

 الأستاذ / dodo12

من فضلك أرفق صورة للمشكلة الظاهرة التى تحدث أمامك لكى نقف على المشكلة 

 
بارك الله فيك أخى / محمد

ولك بمثل ما دعوت لى

والحمد لله الذى بنعمته تتم الصالحات

 وجزاكم خيرا أستاذى الكريم

ومشكور مروركم العطر على الموضوع

 
الأستاذ / محمد النيل

تفضل الملف المرفق به ما طلبت إن شاء الله

1 ـ البحث برقم التسلسل وجلب البيانالت من الشيت غلى الفورم

2 ـ ترحيل التعديلات من الفورم إلى أماكنها فى الشيت بناء على رقم التسلسل

لعله هو المطلوب

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
بارك الله فيك أستاذ / على

موضوع رائع مطلوب كثيرا ،

سدد الله خطاك بالتوفيق دائما وجزاك خيرا

 
أرفق الملف أخى الكريم

وإن شاء الله ستجد المساعدة من أحد الأخوة الكرام

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

 
بارك الله فيك أستاذى الغالى / زيزو العحوز

تعودنا منكم الابداع دائما

ملحوظة بسيطة على الكود الثانى :

استبدال استبدال القيمة ( 1 ) بــ ( 0 ) فى التعليمة التالية

For j = 1 To ListBox1.ListCount




لتكون كالتالى حتى يتم اضافة أول عنصر فى Listbox1 إلى Label1



For j = 0 To ListBox1.ListCount

 
بارك الله فيك أخى الحبيب / ابو البراء

هذه ثمرة من بستان علمكم