حسين مامون

في الشيت "قائمة" انقر دوبل كليك على اي خلية تريد في العمود A ستنسخ الخلية الى F1 كما طلبت واختر اي شيت في الومبوبوكس وسينشط السيت المختار وينسخ ما في الخلية F1 الى D5 خطا في كود حد الصفحة.xls

اخي الكريم انا شغال عندي 100/100 جرب تعديل الاستاذ Mohamed_Fouad ربما يفي بالغرض

جرب التعديل في ماكرو الترحيل المبيعات و العملاء (2).xlsm

انسخ هذه الى الخلية AC2 واسحب نزولا =COUNTIF($C$11:$C$170;AA2:AA15)

اليك المرفق قم بفك الضط وضع الفولدر REVI في :c الفولدر REVI تجد فيه الملف الرئيسي "تقويم" وفلدر "vi" لتخزين استمارات قم بتجربة بعد اضافة عميل او ثلاثة وابدي رأيك اتمنى ان تجد فيه غايتك REVI.rar

وهذا عمل بسيط اتمنى ان يروقك تقويم.xlsm

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

هل تريد افراغ البيانات السابقة عند اختيار عميل اخر جرب المرفق تقويم 02.xlsm

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

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

ولك نصيب من الاجر ان شاء الله و الحمد لله ان تم الامر على خير

تفضل بحث من خلال الكمبو بوكس (1).xlsm

اتمنى ان يكون ما تريد في المرفق بحث من خلال الكمبو بوكس (1).xlsm

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

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

الحمد لله

اعتذر اخي لتأخري في الرد جرب المرفق عد الكومبوبكس الممتلئة.xlsm

السلام عليكم استاذ KI50NG هذا الذي تتكلم عنه غير موجود في الملف الذي رفعته في مشاركتك الاولى

اخي الكريم معدرة : عملت هذا التصميم لاني لم اجد ما تكلمت عنه في الملف الذي رفعته في مشاركتك الاولى ، ما فيه اي فورم ولا صفحة user كما ذكرتها ولا اي LIST BOX حاول رفع الملف الذي فيه التصميم كما ذكرت في مشاركتك تحياتي

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

ربما يكون المطلوب ادخل ايقيمة في Textbox1وانقر زر Entr على لوحة المفاتيح عد الكومبوبكس الممتلئة.xlsm

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

Sub sel() Dim lr lr = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lr + 1).Select End Sub ضع الماكرو في مديول وابطه بزر على الشيت المراد

شكرا لك استاذ F.Elmaadawy والحمد الله ان تم الامر على خير

ربما يكون المطلوب هو هذا الكود في حدث الشيت1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target > 0 Then Target.Offset(, 1).Select End If End Sub منع ادخال في اي خلية فيها بيانات.xlsm