Ali Mohamed Ali

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

أيوه كده برده فين عمود التاريخ أهو العمود AJ

أاى عمود للتاريخ تريد العمل عليه؟

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

بارك الله فيك وجزاك الله كل خير

تفضل لك ما طلبت ملف1.xlsm

تمام ولكن ارجو عدم الإستعجال فأنا مشغول الأن جزاكم الله كل خير

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

تفضل استاذ شكرى لك ما طلبت اصناف1.xlsm

تفضل اخى الكريم ولكن عليك تكملة باقى الصفحات الغير مفتوحة على نفس المنوال وتسميتهم بنفس الأسماء الموجودة بالعمود B من صفحة البيانات ملف1.xlsm

احسنت استاذ سليم بارك الله فيك

اهلا بك اخى الكريم فى المنتدى لماذا لا تستخدم خاصية البحث فى المنتدى تفضل https://www.officena.net/ib/topic/59756-طلب-اضافات-وتعديلات-في-برنامج-كمبيالات/ وهذا هو البرنامج كمبيالة.mdb

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

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

اخى الكريم تظهر هذه الرسالة طبقا لما واقع بملفك فهناك اخطاء فى اسماء الصفحات -فبعض أسماء الصفحات غير مطابقة لما هو وارد فى عمود الأسماء الموجود بصفحة البيانات -لاحظ الصورة بنفسك سوف اقوم بتعديل الأسماء وارسال الملف مرة اخرى لك

وعليكم السلام ضع هذا الكود فى حدث this workbook Private Sub Workbook_Open() MsgBox "Welcome to Officena" End Sub وعليكم السلام ضع هذا الكود فى حدث this workbook Private Sub Workbook_Open() MsgBox "Welcome to Officena" End Sub أو هذا الكود Private Sub Workbook_Open() MsgBox "You have just opened " & ThisWorkbook.Name End Sub

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

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

عليك بفتح هذا وستعرف الفرق بنفسك https://analystcave.com/excel-vba-worksheets-tutorial-vba-activesheet-vs-worksheets/ إذا كان لديك المزيد من الأوراق المحددة Sheets(Array ("Sheet1" ، "Sheet2" ، "Sheet3")) ورقة ("SHEET2"). تفعيل سيتم تنشيط ورقة 2 (لا تزال جميع الأوراق الأخرى محددة) Sheets(Array ("Sheet1" ، "Sheet2" ، "Sheet3")) ورقة ("SHEET2"). اختر إذا كنت تستخدم التحديد ، فإن ورقة 2 هي الورقة الوحيدة التي تم اختيارها آنذاك بارك الله فيك عفوا استاذى سليم فلم ارى مشاركتك جزاك الله كل خير

تفضل لك كل ما طلبت ht.xlsm

قائمة منسدلة لأسماء العملاء الموجودة فى صفحة البيانات تمام تفضل ارفع الملف الأصلى

أيوه انا عامل قائمة منسدلة من اسماء العملاء الموجودة فى صفحة البيانات

طالمل انك لا تقوم برفع الملف جرب هذا راتب الموظف من عن طريق البصمة.rar

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

أحسنت بارك الله فيك استاذ سليم كود ممتاز