الصـقر

استاذى الحبيب KHMB ما فى شئ يغلى عليك القصه مش معادلات او فيجوال بيسك اهم شئ يكون شئ سهل وبسيط بالاستخدام ولا يتسبب فى تقل الشيت وفى نفس الوقت يؤدى الغرض استاذى الفاضل / محمد الخازمى جربق المرفق بالاكواد هل هو المطلوب يتم العمل على المنطقه المظلله باللون الاصفر وهذا هو الكود لمن يريد المعرفه Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("c36:g37")) Is Nothing Then If Not IsNumeric(Target.Value) Then: MsgBox " الرجاء ادخال ارقام فقط ", vbCritical, "تنبية": Target.Value = "": Exit Sub End If End Sub يمكن من خلال هذا السطر تعديل النطاق المراد العمل علية هو حاليا c36:g37 If Not Intersect(Target, Range("c36:g37")) Is Nothing Then تقبلوا تحياتى رقم فقط.zip

اخى الكريم جرب المرفق بالمعادلات وليس الاكود تقبل تحياتى رقم فقط.zip

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

استاذى سليم بالفعل لا يوجد اى قوائم منسدله كما قال الحبيب ياسر مشتاقون لرؤيه العمل تقبل تحياتى

استاذى الفاضل جزاكم الله خيرا عمل رائع ومتقن تقبل تحياتى

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

بص يا عم حرود اولا الكود دا منقول بس انت نقله غلط فى الكود هذا السطر clear_data2 هذا السطر ممكن يشير الى كود غير موجود ثانيا هذا السطر call_inv_data1 ايضا يشير الى كود غير موجود بالملف ثالثا وهذا هو الاهم If WorksheetFunction.CountIf(Sheets("MAT").[C6:C10000], [i6]) <> 0 Then هنا بهذا السطر اسم الشيت MAT على الرغم لا يوجد فى الملف المرفق اى شيت بهذا الاسم تقبل تحياتى

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

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

اخى الكريم يمكن عمل اضافه بسيطه If Me.ComboBox1.MatchFound = False Then: MsgBox "فضلا اختار من القائمة", vbCritical:Me.ComboBox1.value ="": Exit Sub وايضا يمكن وضع هذا الشرط فى زر الحفظ بمعنى قبل عملية الحفظ سيقوم بالاختبار هل الاختيار تم من القائمة ام لا

اخى الكريم كان من الافضل ارفاق ملف ضع هذا السطر فى حدث تغيير الكمبوبكس If Me.ComboBox1.MatchFound = False Then: MsgBox "فضلا اختار من القائمة", vbCritical: Exit Sub شوف رقم الكمبوبوكس عندك كم وغير لان انا عملته ComboBox1 تقبل تحياتى

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

اخى الكريم راجع الرابط التالى ربما يفيدك http://www.officena.net/ib/index.php?showtopic=57962&hl= تقبل تحياتى

اخى الكريم راجع الرابط التالى http://www.officena.net/ib/index.php?showtopic=57962&hl= ان شاء الله يفيدك تقبل تحياتى

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

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

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

استاذى الفاضل شوقى ربيع يبدو انى لم اوفق فى توضيح ما اريد الاستفسار عنه انا مش عايز طريقه التنبوء من خلال الفيجوال نفسة لانه بيعرض اسم واحد كما تفضلت انا عايز طريقة حضرتك ولكن ما كنت اريد الاستفسار عنه هو لما تم تغية الكمبو فى حدث UserForm_Initialize انا فكرتى انى ممكن نعتمد على تعريف النطاق ثم كتابته فى row source ومن هنا يكون الكود الموجود فى حدث تغيير الكمبو يعمل على النطاق المعرف وهذا هو الكود حدث الكمبو Private Sub ComboBox1_Change() Set b = CreateObject("Scripting.Dictionary") d = UCase("*" & (Me.ComboBox1) & "*") For Each c In a If UCase(c) Like d Then b(c) = "" Next c Me.ComboBox1.List = b.keys Me.ComboBox1.DropDown End Sub وهنا حضرتك عملت حلقه وقلت ان c فى النطاق a لماذا لا يتم استبدال a بالنطاق المعرف ارجو ان اكون وفقت فى ما اريد الاستفسار عنه تقبل تحياتى

استاذى الحبيب استخدم هذا الكود Sub اخفاء() Dim Ln As Long Dim Rng As Range Dim cell As Range فى السطر التالى قم باستبدال a بالعمود اللى فيه الارصده عندك Ln = .Cells(.Rows.Count, "a").End(xlUp).Row فى السطر التالى غير اسم الشيت وظبط النطاق بما يتناسب معك Set Rng = Sheets("اسم الصفحه المراد العمل عليه").Range("a1:a" & Ln) For Each cell In Rng If cell.Value = 0 Then cell.EntireRow.Hidden = True End If Next cell End Sub وهذا الكود لارجاء اظهار القيم الصفرية Sub اظهار() اكتب اسم الصفحه كما هو مبين ثم حدد الصفوف المراد العمل عليها حاليا هى من 1 الى 1000 Sheets("اسم الصفحه المراد العمل عليها ").Rows("1:1000").Select Selection.EntireRow.Hidden = False End Sub لو حضرتك مش هتعرف تطبقها ارفق ملف وانا اطبقه لك تقبل تحياتى

استاذى الحبيب هذا هو الكود المرتبط بزر الترحيل بالفورم With ورقة4 هنا يقوم بالبحث عن اخر خليه بها بيانات بالعمود b وهو المسجل به اسماء الطلبه Ln = .Cells(.Rows.Count, "b").End(xlUp).Row هنا عمل حلقه تكرارية for تبدأ من الصف 11 وهو اول صف به اسماء الطلبه الى اخر خليه بالعمود به بيانات For I = 11 To Ln هنا وضع الشرط لو التكست بوكس = خليه بالعمود b ينفذ الترحيل If Me.TextBox7.Value = CStr(.Cells(I, "b")) Then .Cells(I, 4).Value = Me.TextBox1.Value .Cells(I, 5).Value = Me.TextBox2.Value .Cells(I, 6).Value = Me.TextBox3.Value .Cells(I, 7).Value = Me.TextBox4.Value .Cells(I, 8).Value = Me.TextBox5.Value .Cells(I, 9).Value = Me.TextBox6.Value هنا رساله بأتمام عملية الترحيل MsgBox "ÊãÊ ÚãáíÉ ÇáÑÕÏ ÈäÌÇÍ", , "KHMB" End If Next End With اخر شئ مسح التكست بوكس لادخال بيانات جديده Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox1.SetFocus ارجوا ان يكون استفسارك واضح وانا تحت امرك تقبل تحياتى

استاذى الفاضل شوقى ربيع لو تسمح لى فى استفسار بسيط حضرتك اعتمد على تغذية الكمبوبوكس من خلال حدث UserForm_Initialize فتقوم بتعريف a ومن ثم list combox = a فلماذا لا يتم تعريف النطاق وليكن الاصناف ثم تغذية الكمبوبوكس من row sorce بخصائص الفورم وكتابه اسم النطاق وهو الاصناف وبذالك فى حدث تغيير الكومبو يتم التنبؤ بالقائمه المعرفه وهى الاصناف تقبل تحياتى

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

تفضل استاذى الكريم هل هذا هو طلبك انظر المرفق اعمال السنة2+.zip

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

استاذى الفاضل شوقى ربيع هذا السطر بالكود Me.ComboBox1.List = b.keys أود الاستفسار عن هذه الجزئية b.keys ( انا فاهم ان b تشير الى القاموس ) فماذا تعنى keys تقبل تحياتى