احمد عبد الناصر

السلام عليكم جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [a10].Address Then If Target = 0 Or IsEmpty(Target) Then [a25:a27].EntireRow.Hidden = True End If End Sub تحياتي

السلام عليكم عندي استفسار -عندما يجد الكود القيمة و ينسخ الصف في شيت جديد هل يكمل البحث في الصفحة و الصفحات الاخري و ينسخها ايضا , ام يكتفي بسطر واحد ويتوقف ؟! -البحث عن القيمة يتم باي معيار يحتوي علي او يبدأ ب او يكون مساوي له تماما . ان الله مع الصابرين تحياتي

السلام عليكم جرب بدل الكود بالاتي Private Sub UserForm_Initialize() 'TextBox12.Visible = False TextBox2.Visible = False 'TextBox13.Visible = False Label22.Caption = "" Label2.Visible = False 'Label23.Visible = False 'Label34.Visible = False 'Label35.Visible = False 'TextBox15.Visible = False End Sub لاحظ ان هناك textboxs و lables غير موجودة في الفورم و مكتوب لها اكواد (هنا المشكلة) تحياتي

السلام عليكم معذرة لم استوعب تماما ما تريد , ارجو ان ترفق ملف كروكي يوضح ما تريد . تحياتي

السلام عليكم جرب هذه تحياتي Service cost -arabic sheet+.rar

السلام عليكم لم استوعب ما تريد بالظبط ارجو منك مزيد من الايضاح و الافضل ارفاق الملف المطلوب التعديل عليه في موضوع جديد . و الموضوع سهل باذن الله تحياتي

السلام عليكم جرب هذه , لكن لاحظ ان اخر رقمين غير صحيحين . تحياتي +متوسط الدرجات.rar

السلام عليكم الاستاذ محمد طاهر اسعد الله اوقاتك و شكرا لمرورك الكريم ووفقك الله في ادارة هذا الصرح العظيم . تقبل خالص شكري و تحياتي .

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

السلام عليكم حسنا جرب المرفق الكود منقول بالكامل و لم اعدل فيه اي حرف .لكن لا اعرف صاحبه الاصلي . النتيجة تعتمد علي عدد حروف الكلمة طبقا للتباديل في الرياضيات ان كانت الكلمة3 حروف ستكون النتيجة 6 كلمات وان كانت 7 حروف ستكون النتيجة 5040 كلمة . Dim CurrentRow As Long Sub GetString() Dim lngMax As Long Dim InString As String If Val(Application.Version) > 11 Then lngMax = 9 Else lngMax = 8 End If InString = Cells(1, 1) If Len(InString) < 2 Then Exit Sub If Len(InString) > lngMax Then MsgBox "Too many permutations!", vbExclamation Exit Sub Else Range(Cells(2, 1), Cells(Rows.Count, 1)).ClearContents CurrentRow = 1 Call GetPermutation("", InString) End If End Sub Sub GetPermutation(x As String, y As String) ' The source of this algorithm is unknown Dim i As Integer, j As Integer j = Len(y) If j < 2 Then Cells(CurrentRow, 1) = x & y CurrentRow = CurrentRow + 1 Else For i = 1 To j Call GetPermutation(x + Mid(y, i, 1), _ Left(y, i - 1) + Right(y, j - i)) Next End If End Sub تحياتي code+.rar

السلام عليكم استاذ يوسف لي ملاحظة ان ناتج ما ذكرت لكلمة استقلال سيكون 5040 كلمة فهل هذا ما تريد ؟ تحياتي

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

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

السلام عليكم معذرة علي التأخر في الرد جرب هذا تحياتي VVVVV++-+.rar

السلام عليكم استاذ علي جرب المرفق , اعاننا الله و اياكم علي مشاغل الحياة ورزقنا و اياكم الفردوس . ومعذرة علي التأخر في الرد تحياتي Natega++--++.rar

السلام عليكم استاذ حمادة شكرا لكلماتك و مرورك العطر استاذ خالد شكرا لمرورك العطر , لكن اسمح لي بالتنويه ان الكود بالكامل من صنع الاستاذ عبد الله باقشير و لم اغير فيه شيء و لكن عدلت في ال widths الخاص ببعض ال lables ,اما الكود فكما هو . استاذ اكرم جرب المرفق بعد تعديل بسيط . تحياتي ++ملف بحث بفورم ممتاز.rar

السلام عليكم جرب المرفق ملاحظة : التعديل يشمل طريقة العرض فقط بمعني ان ضغط زر نسخ اليست في ملف جديد سوف ينسخ كل الاعمدة . تحياتي +ملف بحث بفورم ممتاز.rar

السلام عليكم و رحمة الله وبركاتة جمعة مباركة معذرة علي التأخر في الرد , اعاننا الله واياكم علي مشاغل الحياة و رزقنا الله و اياكم جنة النعيم . من لم يشكر الناس لم يشكر الله , هذه اسماء بعض الاساتذة الذين تأثرت باعمالهم فشكرا لكم مع حفظ الالقاب لجميع الاساتذة الافاضل عبد الله باقشير , الخالدي , احمد زمان , عباد , بن عليه حاجي , عبد الله المجرب , رجب جاويش , ابو ادم , ابو خليل , طارق , محمود لي . شكري و تقديري و امتناني علي الترقية , و مبروك الترقية لاخي الاستاذ عمرو ترقية مستحقة بالفعل. الاساتذة و الاخوة الافاضل عبد الله باقشير اسلام الشيمي ابراهيم ابو ليلة مجدي يونس مصطفى كامل دغيدي حمادة عمر شوقي غريب رجب جاويش ضاحي الغريب احمد فضيلة سعيد بيرم جمال عبد السميع (ابو محمود ) عبد الله المجرب محمد مصطفي ياسر الحافظ خالد القدس ام عبدالله ابو محمد اشرف admbrk amfouad ايمن ريا احمد زمان الدهشوري الشهابي شكرا لكم علي الكلمات الطيبة تقبلوا تحياتي و تقديري . شكرا للادرارة . رفع الله قدركم وأعلى نزلكم في جنات النعيم

السلام عليكم استاذنا الفاضل عبد الله باقشير , اسعد الله اوقاتك . شكرا لك مرورك الكريم و كرمك و ثناءك . رفع الله قدركم وأعلى نزلكم في جنات النعيم.

السلام عليكم شاهد هذا http://www.officena.net/ib/index.php?showtopic=45979&hl=tadawul تحياتي

السلام عليكم استاذ محمد مصطفي جرب هذه . لكنها معادلة طويلة ,اتمني ان يكون هناك طريقة افضل ادق و اسرع . تحياتي +تسلسل مشروط.rar

السلام عليكم استاذ مصطفي ملف استاذ عباس يعمل عندي تمام اظن المشكلة عندك في تمكين الماكرو . ابحث عن كيفية تمكين الماكرو . او انظر المشاركة رقم 2 في هذا الرابط http://www.officena.net/ib/index.php?showtopic=45949&hl=%2B%D8%AA%D9%85%D9%83%D9%8A%D9%86+%2B%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88 تحياتي

السلام عليكم تحياتي للجميع , اسعد الله اوقاتكم استاذنا الجليل عبد الله باقشير تعاملك مع arrays فوق الممتاز مذهل بارك الله لك و زادك من فضله و تقبل منك . هذه محاولة اخرى Private Sub CommandButton1_Click() ListBox1.ColumnCount = 12 [ba2] = [b2].Value [ba3] = TextBox1.Text Range("bb1:bm1") = Array([b2], [c2], [d2], [e2], [f2], [j2], [g2], [k2], [h2], [l2], [i2], [m2]) Range("b2:m" & Range("a" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("ba2:ba3"), CopyToRange:=Range("bb1:bm1") arr = Range("bb2:bm" & Range("bb" & Rows.Count).End(xlUp).Row) ListBox1.List = arr Range("ba1:bm" & Range("bb" & Rows.Count).End(xlUp).Row).Clear End Sub +زيادة اعمدة الست بوكس.rar

السلام عليكم تحياتي للجميع , اسعد الله اوقاتكم استاذ عباد اكواد رائعة تحياتي يبدو ان لا يمكن زيادة الاعمدة بطريقة يدوية , يجب استخدام range او array كمصدر للبيانات . هذه محاولة Private Sub CommandButton1_Click() ListBox1.ColumnCount = 12 [ba2] = [b2].Value [ba3] = TextBox1.Text Range("b2:m" & Range("a" & Rows.Count).End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("ba2:ba3"), CopyToRange:=Range("bb1") arr = Range("bb2:bn" & Range("bb" & Rows.Count).End(xlUp).Row) ListBox1.List = arr Range("ba1:bn" & Range("bb" & Rows.Count).End(xlUp).Row).Clear End Sub