حمادة عمر

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

السلام عليكم حل جميل اخي الحبيب / عطاء الله تقبل خالص تحياتي

بارك الله فيك اخي الكريم

آمين

الاخ الكريم / ibr68 يمكنك عمل ذلك من خلال الخيارات الموضحة في الصورة التالية

السلام عليكم الاخ الكريم / omar shideed بارك الله فيك بالفعل اخي الكريم مازال طلبك غير واضح برجاء ارسال مثال لما تريده بملف وبعد تقديم الشكر والتقدير لـ ... الاستاذ القدير / معتصم محمد ... جزاه الله خيرا الاستاذ الحبيب / قنديل الصياد ... جزاه الله خيرا واثراءا للموضوع شاهد اخي الروابط التالية علها تكون المطلوب حسب فهمي للطلب وان كان كذلك نعمل علي ملفك ( المشاركة رقم 2 ) http://www.officena.net/ib/index.php?showtopic=50524&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7#entry310579 وشاهد ايضا هذا الرابط به نفس الطريقة باستخدام الازرار كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت

السلام عليكم الاخ الكريم شاهد المرفق التالي ع السريع كده SimpleTestStuff-SAMA.rar

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

الاستاذ القدير احمدزمان بارك الله فيك جعل الله كل ذلك في ميزان حسناتك تقبل تحياتي

السلام عليكم الاخ الحبيب / طلعت محمد حسن بارك الله فيك لتفيذ طلبك يمكنك استخدام الكود التالي اخي الحبيب وعذرا علي التأخير ... حيث لم اري الطلب الا الآن Private Sub ComboBox1_Change() Dim v As Integer, Lr ListBox1.Clear Lr = ورقه1.Cells(ورقه1.Rows.Count, "A").End(xlUp).Row For i = 1 To Lr If ورقه1.Cells(i, 1).Offset(0, 8) = ComboBox1.Text Then ListBox1.AddItem ورقه1.Cells(i, 1).Value ListBox1.List(v, 1) = ورقه1.Cells(i, 1).Offset(0, 1).Value ListBox1.List(v, 2) = ورقه1.Cells(i, 1).Offset(0, 2).Value ListBox1.List(v, 3) = ورقه1.Cells(i, 1).Offset(0, 3).Value ListBox1.List(v, 4) = ورقه1.Cells(i, 1).Offset(0, 4).Value ListBox1.List(v, 5) = ورقه1.Cells(i, 1).Offset(0, 5).Value ListBox1.List(v, 6) = ورقه1.Cells(i, 1).Offset(0, 6).Value ListBox1.List(v, 7) = ورقه1.Cells(i, 1).Offset(0, 7).Value ListBox1.List(v, 8) = ورقه1.Cells(i, 1).Offset(0, 8).Value ListBox1.List(v, 9) = ورقه1.Cells(i, 1).Offset(0, 9).Value v = v + 1 End If Next End Sub واليك الملف بالمرفقات الكتب.rar

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

السلام عليكم الاخ الكريم / Ahmed Naggar بارك الله فيك بداية موفقة وموضوعات جميلة وان شاء الله ستسعد كثيرا بالانضمام الي هذا الصرح العملاق مع اخوتك في الله ولكن اخي الحبيب لماذا لا تقوم بوضع هذه الدروس والدروس التالية في موضوع واحد لزيادة الافادة للجميع ومن يدخل الموضوع يستفيد من كل الشروحات بنفس العنوان (( دورة شرح دوال الاكسيل صوت وصورة بالعربي )) ارجو قبول تدخلي وتقبل خالص تحياتي

السلام عليكم الاخ الحبيب / ابراهيم ابو ليلة بارك الله فيك تفضل الكود المطلوب ... مع انني لا اعلم ما الفائدة من ذلك استخدم الكود التالي Private Sub Texinv_Change() Dim LR, Mh As Long Dim i As Integer Dim S As Double On Error Resume Next '================================== S = Me.Texinv.Value Labnow.Caption = Now '================================== 'مسح التكستات SAMA_CLEAR For i = 2 To 16 Me.Controls("TextBox" & i) = "" Next '================================== With Sheet1 LR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1 Mh = WorksheetFunction.Match(S, .Range("B2:B" & LR), 0) + 2 End With '================================== For i = 2 To 16 Me.Controls("TextBox" & i) = Sheet1.Cells(Mh - 1, i).Value Next End Sub واليك الملف بالمرفقات inv11-sama.rar

ولكن حيرتنا اخي الحبيب / عطاء الله لمن نحسب صوتك لـ 2003 ام لـ 2007 !!!!!!!!!!!!!!!!!!

اخي الحبيب / عبد الغني كنت اداعبك فقط تقبل خالص تحياتي

برجاء ارفاق ملف به مثال لما تريده مع مثال لشكل التقرير الذي تريده وكيفيته

الاخ الحبيب / حسين العصلوجي تقبل تحياتي ترقية مستحقة بالفعل ووالله العظيم كنت انتظرها بالفعل لعلمي الشديد بان هناك متابعة جيدة لردودك من خلال مدير قسمنا الغالي / عبد الله باقشير صاحب الترشيح كل الشكر والتقدير لاستاذنا العزيز

بخصوص الطباعة يمكنك استخدام الكود الخاص بالطباعة من خلال تحديد النطاق بالماوس لصاحبه القدير / عبد الله باقشير تحديد الطباعة يدويا او بالماوس _الفار.rar اما بخصوص طريقة الانتقال للايام فهي تعمل لدي بشكل طبيعي سأري ما هو الخلل او اقوم بوضع طريقة اخري لك لتنفيذ المطلوب ( ان شاء الله ) تقبل خالص تحياتي

هل قمت بتنزيل البرنامج الخاص بالفييو في بدايات الموضوع SCREEN.EXE