إبراهيم ابوليله

للرفع

اخى الكريم هذا الكود لاحد عمالقة المنتدى لا اتذكره قد يكون الاخ رجب جاويش او الاخ عبد الله بقشير ولكن وظيفه ههذا الكود يمنع قبول الكومو بوكس الا للبيانات الموجوه فى المدى المحدد For Each cl In [A4:A10]

اخى الكريم بارك الله فيك ولكن يفضل ارفاق ملف للعمل عليه اما بخصوص المدى With Sheets("Sheet1") هنا يتم تحديد اسم الشيت For r = 5 To .Range("A" & .Rows.Count).End(xlUp).Row رقم 5 يعنى بدايه من السطر رقم خمسه فى العمود a وهذا على حد علمى ارجو ان اكون وفقت فى توضيح الامر لك وارجو ان كنت اخطأت فى الشرح فليصحح الخطأ اى من الاخوه الاعضاء العمالقه فى هذا المنتدى

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

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

اخى الحبيب ابو حنين كود رائع وجميل ويتسم بالبساطه ولكن فى حالة عدم وجود بيانات يظهر فراغات وانا شخصيا افضل هذا الكود Private Sub UserForm_Initialize() Dim I As Integer With Sheets("96") For r = 5 To .Range("A" & .Rows.Count).End(xlUp).Row If .Range("A" & r) <> "" Then ComboBox1.AddItem .Range("A" & r) End If Next r End With Book11.rar

اخى الكريم حماده عمر بارك الله فيك عمر رائع بارك الله فيك وشرح وافى ومفصل سير على بركه الله نحن فى انتظار باق الشهر

اخى الكريم رجب بارك الله فيك ولكن ماذا سيكون شكل الكود بدون زر وماذا لو اردت استخدام الشكل الاتى If Range("d5:d" & LR) <> "" Then Range("d5:d" & LR).HorizontalAlignment = xlCenter Range("d5:d" & LR).VerticalAlignment = xlCenter Range("d5:d" & LR).Font.Size = 16 Range("d5:d" & LR).Font.Name = "Agency FB" Range("d5:d" & LR).Font.Size = 16 Range("d5:d" & LR).Borders.LineStyle = xlContinuous Else Range("d5:d" & LR).ClearFormats END SUB

الاخوه الافاضل اريد كود يقوم بعمل بورد للخلايا التى بها بيانات فقط فى نطاق محدد border.rar

اخى الكريم بن علية بارك الله فيك كود رائع ويعمل جيدا مشكورا على الاهتمام ولكنى لى طلب اخر ارجو النظر الى الشيت المرفق بارك الله فيك Copy of HOT.rar

اخى الكريم بن عليه اسف اذا كنت اخطأت فى اسمك فى المشاركه رقم3 ولكن لى طلب اخر ارجو النظر الى الشيت المرفق بارك الله فيك Copy of HOT.rar

للرفع

الاخ رجب بارك الله فيك ولكن هل يمكن عمل دمج للنطاق من D5 الى S5 بحيث يكون الدمج لكل خليتين متجاورتين عن طريق الكود بعنى ان يتم عمل دمج للخلليه D5وE5 L معا وهكذا بالنسبه لباقى النطاق

اخى الكريم رجب بارك الله فيك ولكنى اريد ان يكون الاستخراج افقيا

الاخ الكريم محمود فعلا والله دائما مانرى منك الجديد اخى الكريك رجب بارك الله فيك ولكن لى طلب اخر ارجو النظر الى الشيت استخراج الاسماء الجديده.rar

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

الاخ عباد بارك الله فيك وللعلم ان الكود الذى قمت انا بارفاقه كان للاخ الفاضل رجب جاويش وكنت احاول التعديل عليه ولكنى لم استطع ولكن اخى الكريم اسمح لى ان اضيف طلب اخر وهو تعدد المعطيات انظر المرفق Book1.rar

الاخوه الافاضل تحيه طيبه وبعد ارجو المساعده فى كود استخراج البياناتBook1.rar

الاخوه الافاضل تحية طيبة وبعد اريد كود يقوم باضافة صفحات بناعاء على الاسم المكتوب فى الخليه a2 ثم يقوم بعمل برنت برفيو للصفحه التى تم انشائها انشاء صفحه.rar

الاخ احمد عبد الناصر ايه الجمال ده بارك الله فيك

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

الاخ حماده مشكورا على الاهتمام ولكنى بالفعل مطبق تنسيق التاريخ على الخلايا وبعد الترحيل من الفورم الى الاكسيل تم الترحيل خطأ كما ذكرت ولكنى عن الذهاب الى الخليه وكتابة الناريخ يدوى دو فورم يتم كتابة التاريخ بالصوره الصحيحه وبصراحه لا اعرف ما هو الخطأ وبذلك فانا لى سؤال لك هل قمت بتجربة الملف وهل تم ترحيل التاريخ معك بصوره صحيحه جرب انت انت تدخل التاريخ 1/4/2013 1/5/2013 1/2/2013 هل يتم الترحيل معك بالصوره الصحيحه

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

الاخوه الافاضل اعتقد انك يجب ان تشاهدو ذلك STA.rar