عبدالله باقشير

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

السلام عليكم جرب هذا Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 10 Then MsgBox "hima" End If End Sub تحياتي

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

السلام هليكم هنا المطلوب ليس كلمة سر !!! وانما المطلوب اسم ورقة معلومات المعادلات اثناء الاخفاء ( يتم اضافتها ) ولازم تعطيه نفس هذا الاسم اثناء الاظهار ليجلب معلومات المعادلات منها ثم (يتم حذفها) هذا ما فهمته من الكود تحياتي

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

اضفنا عمود يمين جدول البيانات جعلناه كمعيار للترحيل ( يمكنك اخفاءه ) شاهد الكود Sub KH_START() Dim cel As Range Dim LR As Integer, M As Integer, C As Integer Dim iTest As String With Main iTest = .[H7].Value2 & "-" & .[B13].Value2 End With With Products LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 M = Val(CStr(Application.Match(iTest, .Range("A2:A" & LR), 0))) If M Then M = M + 1 For C = 1 To 6 .Cells(M, C + 4).Value = Val(.Cells(M, C + 4)) + Val(Main.Range("C13").Cells(1, C)) Next Else .Cells(LR, "A").Value = iTest .Cells(LR, "B").Value = Main.[B13] .Cells(LR, "C").Value = Main.[H7] .Cells(LR, "D").Value = Main.[C7] .Cells(LR, "E").Resize(1, 6).Value = Main.Range("C13:H13").Value End If End With End Sub المرفق 2010 TA.rar

جزاكم الله خير وكل عام وانتم بخير

جزاكم الله خيرا

السلام عليكم جرب الكود التالي Sub KH_START() Dim cel As Range Dim LR As Integer, M As Integer, c As Integer With ورقة2 LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 M = Val(CStr(Application.Match(ورقة1.[F1], .Range("A2:A" & LR), 0))) If M Then M = M + 1 For c = 1 To 5 .Cells(M, c + 2).Value = Val(.Cells(M, c + 2)) + Val(ورقة1.Range("B8").Cells(1, c)) Next Else .Cells(LR, "A").Value = ورقة1.[F1] .Cells(LR, "B").Value = ورقة1.[C1] .Cells(LR, "C").Resize(1, 5).Value = ورقة1.Range("B8:F10").Value End If End With ورقة1.Range("C1,B8:F10").ClearContents End Sub المرفق 2010 T.rar

السلام عليكم كل عام وانتم بخير تقبل الله منا ومنكم صالح الأعمال

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

الحمدلله الذي بنعمته تتم الصالحات.

السلام عليكم قارن بين عمل هذين الكودين Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "KH" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("a1:a100")) Is Nothing Then MsgBox "KH" End If End Sub وستعرف ماذا اقصد !!!!!!!!!!!

السلام عليكم ورحمة الله وبركاته ليس هناك شي لتعتذر منه من الاساس وانا اردت فقط توجيهك الى الطريق الصحيح واذا كنت تعلمت الحلقات التكرارية فهذا شي كبير فأغلب الاعمال تتم بها اما عن كودك اعلاه ساعطيك فيه 5 درجات لانه ينفذ ما تريده وساخصم 5 درجات للاسباب التالية: 1- لم تستخدم الحدث المناسب 2- لم تقيد عمل الكود على نطاق معين فهو يعمل على جميع خلايا الورقة 3- استخدام الحلقة التكرارية بدون داعي النتيجة 5 من 10 تحياتي

مثل ما شرحت اعلاه اذا تم تقييد العمل على الخلية A1 يصبح Target هو الخلية A1 ويصبح السطرين الذي ذكرتهم هما نفس التعبير تحياتي

السلام عليكم ورحمة الله وبركاته الاخ الفاضل / محمد ابو البراء .............هداك الله ان اكواد الحدث التلقائي يجب ان يقيد عملها في اطار النطاق الذي تريد العمل عليه ولا تكون مفتوحة على الغارب ويجب ان تختار كود الحدث المتاسب في المكان المناسب في كودي السايق قيدت العمل في خلية واحدة وهي A1 اذا تم تغييرها يتم تنفيذ الكود يعني استخدمت هذا الحدث Worksheet_Change وليس هذا الحدث Worksheet_SelectionChange وقد اخبرتك ان مثل طلبك لا يحتاج الى حلقة تكرارية ويمكنك تعيين النطاق الذي تريد العمل عليه وانت الان تريد الغمل على النطاق A1:A100 وهذا تعديل الكود: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1:a100")) Is Nothing Then If Target.Value = 9 Then Target.Font.Color = -16776961 Else Target.Font.Color = 0 End If End If End Sub وسؤالي لك هل تريد ان تعمل كود او تريد تتعلم كيف تعمل كود ؟؟؟ تحياتي الحلقات التكرارية - تلوين الخلية بشرطbraa.rar

عنوان

السلام عليكم مثل هذا الكود لا يحتاج جمل تكرارية يحتاج فقط تعيين النطاق مثلا للعمود A Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [A1].Address Then If Target.Value = 9 Then Columns(1).Font.Color = -16776961 Else Columns(1).Font.Color = 0 End If End If End Sub تحياتي

نعم ...........احسنت هذا تعديل للمعادلة في الملف المرفق =IF($B5=0;"";IF(COUNTIF(INDIRECT("'"&$A$1&"'!$A$2:A20000");$B5)=0;"الرقم غير موجود في القائمة";VLOOKUP($B5;INDIRECT("'"&$A$1&"'!$A$7:g20000");MATCH(C$4;INDIRECT("'"&$A$1&"'!$A$6:g6");0);0))) تحياتي

السلام عليكم استخدم الدالة INDIRECT لتحويل التعبير النصي الى مرجع مثلا INDIRECT("'"&F1&"'!A2:A20000") تحياتي

جزاكم الله خيرا

السلام عليكم اختي الفاضلة ام عبدالله ...........حفظها الله زيادة في الخير جزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم لك الكثير من المشاركات ولا تعرف ان مثل العنوان الذي وضعته انه مخالف!!!!!!!!!!!! عموما تم تعديل العنوان...وارجوا ان لا يتكرر ذلك هذه المعادلة المستخدمة للجمع =SUMIFS(INDEX(mylast;0;3);INDEX(mylast;0;1);B$3;INDEX(mylast;0;2);$A5) المرفق 2010 جمع بشرط.rar

اخي الفاضل / الريفي