رجب جاويش

أخى ابراهيم اطلب كما تشاء ايه رأيك فى هذه الفكرة COMB22222.rar

بعد اذن أخى الحبيب / أبو حنين وأخى الحبيب / محمود ولإثراء الموضوع هذا كود آخر Sub ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "1" Then sh.Range("a2:a1000").ClearContents End If Next LR = Cells(Rows.Count, 1).End(xlUp).Row For Each cl In Range("A1:A" & LR) x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) End If cl.Copy Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues Sheets(x).Range("A1") = "حرف" & " " & cl Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح الى صفحات منفصلة" Sheets("1").Select Application.ScreenUpdating = False End Sub Book25555.rar

تفضل أخى COMB22222.rar

أخى الفاضل / الشهابى لإثراء الموضوع يمكن اختصار المعادلة السابقة الى الصورة التالية =AND(G$2>=$E3;G$2<=$F3) Book4.rar

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

أخى ابراهيم مع تعديل بسيط فى معادلة offset يعمل الفورم بشكل طبيعى =OFFSET(Sheet1!$B$3;0;0;1;SUBTOTAL(3;Sheet1!$B$3:$G$3)) COMB2.rar

تفضل أخى تم تعديل التواريخ من والى لكى تكون متوافقة حسب طلبك Sub ragab() Application.ScreenUpdating = False LR = [E10000].End(xlUp).Row Range("G3:NH" & LR).Interior.ColorIndex = xlNone For Each cl In Range("E3:E" & LR) For Each cll In [G2:NH2] If cll >= cl And cll <= cl.Offset(0, 1) Then Cells(cl.Row, cll.Column).Interior.ColorIndex = 3 End If Next Next Application.ScreenUpdating = True End Sub Book5555.rar

أخى ابراهيم أشكرك جزيل الشكر على هذه الكلمات الطيبة فى الحالة الثانية سيكون الكود بالشكل التالى Private Sub UserForm_Activate() With Me.ComboBox1 .RowSource = "list2" End With End Sub COMB2.rar

تفضل أخى الفاضل نسخة على 2003 COMB2003.rar

السلام عليكم هذا هو الكود المطلوب Private Sub UserForm_Activate() With Me.ComboBox1 .Column = Range("list").Value End With End Sub COMB.rar

أخى الفاضل / عيد جزاك الله كل خير على هذه الكلمات الطيبة وكل عام وأنتم بخير

أخى الفاضل / عيد جرب الملف المرفق تطبيق معادلة if 6.rar

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

أخى الفاضل / عيد جرب المعادلة التالية فى الخلية X7 =IF(AND(S7="";T7="");"";CEILING(SUM(S7:T7)/12;5))

السلام عليكم ورحمة الله وبركاته الأستاذ الكبير / العيدروس الاستاذ الكبير / بن عليه بعد التحية اسمحا لى أن اتعلم منكا وأنتما أستاذان كبيران لقد لاحظت نفس ملاحظة الاستاذ الكبير بن عليه على هذا الكود الرائع ولقد سمحت لنفسى بتعديل بسيط عليه حتى يعمل مع جميع الأرقام وعلى فكرة انا خبرتى ضعيفة جدا فى الدوال المعرفة فارجو أن يكون التعديل صحيحا وهذا هو التعديل Public Function Ali_F(R As Range, V As Integer) As Long Dim A1, A2, B, C B = Mid(R.Formula, InStr(R.Formula, "+") + 1) C = Mid(R.Formula, InStr(R.Formula, "=") + 1) A1 = Mid(R.Formula, Right$(InStr(R.Formula, "+"), Len(B))) A2 = Mid(R.Formula, InStr(R.Formula, "=") + 1, Len(C) - Len(B)) If Val(V) = 1 Then Ali_F = A1 ElseIf V = 2 Then Ali_F = A2 End If End Function فصل أرقام من دالة جمع.rar

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

بعد اذن أخى الحبيب / محمود أخى الفاضل / عيد جرب الملف المرفق تطبيق معادلة if.rar

أخى الحبيب / أبو حنين دائما مبدع كعادتك جزاك الله كل خير وأجزل لك العطاء على هذا البرنامج القيم

أخى الحبيب / محمود دائما سباق بالحلول المتعددة والمبتكرة

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

بعد اذن أخى الحبيب / محمود أخى ابراهيم السلام عليكم تفضل أخى ما تريد قائمة منسدلة أفقية مرنة.rar

أخى الحبيب / هاني عدلي الف شكر أخى الحبيب على كلماتك الرقيقة وكل عام وأنتم بألف خير أخوك / رجب جاويش

أخى الحبيب / محمود يسعدنى ويشرفنى العمل معك وتشرفنى صداقتك هذا حل آخر عن طريق كود يعمل بمجرد الاختيار من الخلية C4 حل بالكود.rar

تفضل أخى دالة IF.rar

أخى الفاضل غير السطر Last = iNx الى السطر Last = iNx + 9