طلعت محمد حسن

Private sub CommandButton4_Click Sheet3.Activate Q=0 xxx=4 ""=Do Until Sheet1.Cells(xxx,"A").Text If me.ComboBox1.Text=Sheet1.Cells(xxx,"A").Text Then Q=1 kk=msgBox("هل تريد الالغاء"),yasNox if kk=vbyas then ActiveCell.EntireRow.Delete Else msgbox("لم يتم الالغاء") end if end if xxx=xxx+1 Loop end sub

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

اخي علي ممكن اتواصل انا وانت عن طريق الماسنجر لانة هناك بعض الامور بدي استفسر عنها منك

السلام عليكم اخي لو سمحت ما هي نسبة الضريبة عندكم وهل يوجد سياسة محددة بالخصم وشكرا

اخي حمادة المقصود من السؤال ورقة اكسل موجودة على سطح المكتب قبل فتحها . هل بالامكان ان امنع الامر Delete على هذه الورقة بحيث احمي هذه الورقة من الحذف جزاك اللة خير.

اخي حمادة عمر جزاك اللة خير هذا هو المطلوب اقبل تحياتي واحترامي لك.

السلام عليكم هل يوجد كود برمجي يمنع الويندوز من حذف ورقة عمل او عمل تعديل على الرجستيري لمنع الويندوز من حذف ورقة العمل ولكم جزيل الشكر.

اللة يحفظك من كل مكروه اشكرك

السلام عليكم هل من الممكن وضع باسورد لكل شيت او كل ورقة من اورق العمل بحيث لا يمكن ان تفتح الورقة الا بكلمة مرور ولكم كل الشكر والاحترام.

السلام عليكم اخي العزيز بالمرفق مثال في صفحة المنصرف+المبيعات هناك زر لاظهار الفورم ومن خلال هذا الفورم اقوم بأدخال البيانات على الشيت وهناك زر طباعة داخل الفورم ويوجد بة كود طباعة الفورم ولكن مخرجات الطباعة تظهر ازرار الاوامر المطلوب طباعة القسم الذي يحتوي على بيانات فقط داخل الفورم. وشكرا لكم. ابراهيم 9.rar

السلام عليكم ورحمة اللة وبركاتة عمل جميل من شخص اجمل في اعمالة وابداعاتة في كل عمل استاذ ضاحي تزيد الشوق لدينا في حب المعرفة والتعلم.

السلام عليكم الاخ الكريم / طلعت محمد حسن بارك الله فيك بعد اذن اخي الحبيب / حمادة باشا ... جزاه الله خيرا وبنفس الكود المستخدم من طرفه في مشاركتة تم تنفيذ طلبك بوضع الكود واستخدامه عن طريق الفورم ... وايضا عن طريق الوقوف داخل اي خلية بالجدول بعد اظهار الفورم ام ان هناك شرط في الفورم كبحث او .... واليك المرفق تقبلوا خالص تحياتي Book1-Delete Row1.rar شكرا للاخ حمادة كان قصدي من السؤال ان الفورم يوجد بة اكثر من تكست بوكس وفية استعلام بحيث يتم استدعاء اي صف داخل الفورم هنا كيف يمكن الحذف ونحن داخل الفورم

هل ممكن تحديد ابعاد الفورم عند الطباعة بمعنى التحكم بالمساحة المطبوعة وشكرا

الاخ حمادة السلام عليكم ورحمة اللة وبركاتة سؤالي لو اردنا حذف البيانات من داخل فورم كيف يكون الكود وشكرا

الاستاذ ابو حنين كل الشكر والاحترام لك بخصوص تنسيق الوقت بنظام 12 ساعة وليس بنظام 24 ساعة كيف يكون التعديل وشكرا لكم.

السلام عليكم ورحمة اللة وبركاتة اخي ابراهيم شاهد صفحة المنصرف + المبيعات اذا كان المطلوب كذالك سوف اقوم بعمل باقي الشاشات او ان هناك تعديل تود اضافتة في الشاشة أعلمني بذلك لان جميع الشاشات ستعمل نفس العمل بأنتظار ردك اقبل تحياتي واحترامي. ابراهيم 9.rar

سوف اقوم اخي الكريم بعمل اللازم ان شاء اللة.

اخي الكريم هل المطلوب من عمل الفورم هو ادخال البيانات ومن ثم امكانية البحث عنها من داخل الفورم

اخي الكريم حسب معلوماتي المتواضعة يمكن اضافة التاريخ كالتالي Private Sub UserForm_Initialize() TextBox1.Text = Date Lbl1.Caption = Date End Sub اما الوقت بدل Date نضع Thim لكن المشكلة التي وجهتني بالوقت هو عدم تحديث الوقت الى غاية الان ابحث عن هذة المعلومة اقبل تحياتي

الرجاء المساعدة في هذا الطلب؟

مشكور استاذي ابو حنين ما قصرت الكود واضح ويعمل بشكل صحيح اقبل تحياتي واحترامي لشخصك الكريم.

السلام عليكم ورحمة اللة وبركاتة المرفق فورم نموذج لفاتورة كنت قد اعددتها المطلوب مساعدتي في اضافة الكود البرمجي لزر تعديل وزر حذف ولكم كل الشكر والاحترام. تصميم فاتورة.rar

شكرا جزيلا الاستاذ عبد اللة باقشير والاستاذ ابو حنين طبقت الكود اخي ابو حنين في التكست بوكس الاول كتبت 1/1/2013 كانت النتيجة في التكست بكس الثاني كما يلي 31/1/1331

الاخوه الافاضل السلام عليكم ورحمة اللة وبركاتة يوجد عندي فورم يوجد بداخلة تكست بوكس عدد اثنان الاول يتم ادخال التاريخ فية والثاني اريد ان يظهر التاريخ الاول بداخلة مضاف الية 30 يوم اي شهر من التاريخ الاول فما هو الكود البرمجي لذلك وشكرا لكم.