حسين مامون

بعد اذن الاستاذ نبيل عبد الهادي واثراء للموضوع جرب المرفق اخفاء اوراق العمل بناء على معلومة في خلية.xlsm

تفضل القاعدة (1) (1).xlsm

حدد الخطأ على الشيت باللون الاصفر واشرح ما تريد مثلا زر التعديل اريد تيكست بوكس5 تترحل في العمود "J"

تفضل اظن سبب ثقل التعديل الجهاز لديك عندي ما في مشكلة القاعدة (1) (1).xlsm

بارك الله فيك وزادك من فضله

تفضل من فورم البحث زر طباعة القاعدة (1) (1).xlsm

ساعمل على هذا وساجيبك بحول الله تحياتي

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

1 تم تعديل المشكلة في عرض البيانات 2 بالنسبة للخطأ الذي ذكرت لم يظهر عندي اي خطأ 2 اما الطباعة لم افهم ما تقصد هل تريد طباعة الفورم كما هو ام تريد تصميم شيت خاص لهذا الغرض ؟ ارجو توضيح الشرح لكي يفهم كل من يريد تقديم المساعدة

ارفع الملف ولكن اريد بيانات في data

وهذا زر طباعة الفورم على ورقة A4 القاعدة.xlsm

جرب البحث ورد علي ولكن ادخل بعض البيانات في شيت DATAاولا القاعدة.xlsm

تفضل لم اجد اي خطأ الا في تنسيق الخلية New Microsoft Excel Worksheet.xlsx (1) (1) (1) (1) (1).xlsm

ربما يكون هذا التعديل ما تقصد New Microsoft Excel Worksheet.xlsx (1) (1) (1) (1).xlsm اخي الكريم جرب ورد حالا

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

مرحبا اخي تحت امرك ولكن لازم تشرح ما الخطأ لتفادي اهدار الوقت تحياتي

مرحبا اخي matrex 30 جرب التعديل New Microsoft Excel Worksheet.xlsx (1) (1).xlsm

اخي الكريم اشرح المشكل ماهو الخطأ بالظبط بالنسبة للترتيب ايضا اشرح المشكل مثلا textbox كذ يرحل البيانات الى العمود كذا تحياتي

جرب هذا التعديل New Microsoft Excel Worksheet.xlsx.xlsm

جرب المرفق New Microsoft Excel Worksheet.xlsx.xlsm

استاذ مجدى يونس جزاك الله خير الجزاء

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

روعة جزاك الله خيرا الجزاء استاذي Ali Mohamed Ali

Option Explicit Sub test() Dim x1, x2, lr1, lr2 Application.ScreenUpdating = False Range("f5:h100").ClearContents lr1 = Range("b" & Rows.Count).End(xlUp).Row lr2 = Range("e" & Rows.Count).End(xlUp).Row For x1 = 4 To lr1 For x2 = 5 To lr2 If Cells(x1, 2) = Cells(x2, 5) Then If Cells(x1, 3) = "A" Then Cells(x2, 6) = Cells(x2, 6) + 1 ElseIf Cells(x1, 3) = "B" Then Cells(x2, 7) = Cells(x2, 7) + 1 ElseIf Cells(x1, 3) = "C" Then Cells(x2, 8) = Cells(x2, 8) + 1 'ElseIf Cells(x1, 3) = "D" Then 'Cells(x2, 9) = Cells(x2, 9) + 1 ' 'ElseIf Cells(x1, 3) = "E" Then 'Cells(x2, 10) = Cells(x2, 10) + 1 ' 'ElseIf Cells(x1, 3) = "G" Then 'Cells(x2, 11) = Cells(x2, 11) + 1 End If End If Next Next Application.ScreenUpdating = True End Sub جرب المرفق كود حلقات تكرارية 01.xls

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