ياسر خليل أبو البراء

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

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

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

وعليكم السلام أخي الكريم نايف جرب الكود التالي (مع استبدال اسم ورقة العمل في الكود باسم ورقة العمل لديك حيث أنني أحبذ التعامل مع أسماء أوراق العمل باللغة الإنجليزية) Private Sub CommandButton1_Click() Dim m As Integer Dim r As Integer Dim t As Integer Dim i As Integer Dim x As Variant ListBox1.Clear With Sheets("Sheet1") m = .Cells(.Rows.Count, 1).End(xlUp).Row x = Split(TextBox1.Text, vbCrLf) If UBound(x) = -1 Then Exit Sub For i = LBound(x) To UBound(x) For r = 2 To m If .Cells(r, 2) Like x(i) & "*" Then ListBox1.AddItem ListBox1.List(t, 0) = .Cells(r, 1) ListBox1.List(t, 1) = .Cells(r, 2) t = t + 1 End If Next r Next i End With End Sub

أخي الكريم محمود لما لا تقوم بطرح موضوع جديد مستقل عن هذا الموضوع ليشارك فيه الجميع .. هذا جانب ، وجانب آخر قم بتبسيط طلبك حتى تجد استجابة فقد لا أجد الوقت الكافي للرد على جميع الاستفسارات .. قم بالسؤال عن نقطة نقطة وحاول تدرس الأكواد التي تقدم في الموضوعات المختلفة .. وإن شاء الله مع الوقت تصبح محترفاً في التعامل بهذه الأكواد .. بالنسبة لسؤالك عن الأكواد التي تتحكم بها بالتسطير وتغيير عرض الأعمدة وخلافه فهي أكواد مباشرة ولا مشكلة فيها ويمكن الحصول عليها من خلال تسجيل ماكرو مع التنقيح لها .. حاول الإطلاع على موضوع "افتح الباب وادخل لعالم البرمجة" وادرس الحلقات بشكل جيد علها تكون نقطة بداية جيدة لك إن شاء الله أعتذر عن عدم الإطالة .. وكما أخبرتك حاول أن تتناول أي استفسارات بشكل مبسط لكي يسهل الرد عليها .. وهذا لا يعني أننا نبخل بالمعلومة إنما أحب إعطاء المعلومة رويداً رويداً تقبل تحياتي

يوجد بالمنتدى دوال معرفة (توضع في موديول كالأكواد) ، والمعادلات وإن وجدت لن تضاهي قوة الأكواد في التعامل مع التفقيط .. قم بالبحث في المنتدى وستجد عشرات الموضوعات في موضوع التفقيط ، فقط قتل بحثاً

أخي الكريم قمت بطرح الموضوع من قبل ووضعت لك رابط فيه .. يرجى عدم تكرار الموضوعات يحذف بعد الإطلاع عليه ..........

الخلية B38 في ورقة العمل INDEDX مدمجة وكذلك الخلية B39 والخلية B66 والخلية B67 ... وهذا هو سبب الخطأ .. أزل الدمج وجرب الكود مرة أخرى وبالنظر إلى ورقة العمل INDEX أجدك قد قمت بعملية تسطير لنطاقات متباعدة .. ما الغرض من ذلك؟ الأفضل في بناء قواعد البيانات عدم ترك فواصل بين الصفوف ..

تم تحديث الملف في المشاركة الأولى حيث أن الرابط القديم وجدته مفقود .. تقبلوا تحياتي

السلام عليكم أخي الكريم أحمد أهلاً بك في المنتدى ونورت بين إخوانك تفضل الرابط التالي أعتقد فيه ما تطلب إن شاء الله

أخي الكريم محمود ارفق الملف للإطلاع عليه فمن الصعب العمل على الكود بدون ملف مرفق .. ارفق الملف وسأحاول الإطلاع عليه في أقرب وقت إن شاء الله

بارك الله فيك أخي العزيز دغيدي .. مشكور على مرورك المشرف

في الخلية J7 ضع المعادلة التالية واضغط بعدها Ctrl + Shift + Enter لأنها معادلة صفيف ، ثم قم بسحبها لأسفل =MAX(IF($F$6:$F$10000=I7,$G$6:$G$10000))

جرب الكود بعد التعديل البسيط .. Sub big5() Dim ws As Worksheet Dim rngTestArea As Range Dim i As Integer Dim j As Integer Dim myResult As String Set ws = ThisWorkbook.Worksheets("ورقة1") Set rngTestArea = ws.Range("G6:G" & ws.Cells(Rows.Count, "G").End(xlUp).Row) j = 0 For i = 1 To 5 j = Application.WorksheetFunction.Large(rngTestArea, i) myResult = myResult & "Rank " & i & " is " & j & vbCr Next i MsgBox myResult End Sub

وعليكم السلام ارفق ملف للعمل عليه

السلام عليكمأقدم لكم ملف يحتوي على دوال الإكسيل بـ 16 لغة مختلفة ، والملف مفيد في حالة التعامل مع نسخة غير النسخة الإنجليزية لمعرفة الاسم الصحيح للدالة https://www.file-upload.com/zpo9tygi69snتقبلوا وافر تقديري واحترامي

بارك الله فيك أخي الكريم محمود ومشكور على سؤالك عني .. جزاك الله خيراً بالنسبة لاستثناء أوراق عمل محددة يمكنك الإطلاع على الفيديو التالي وستتعلم منه كيفية الاستثناء لأوراق عمل محددة .. وإذا تعثر إن شاء الله ستجد من يساعدك

إذا قمت بالنسخ بشكل عادي سيقوم الكود بنسخ نفس التنسيقات والألوان ..

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

السلام عليكم .. على سبيل التخمين لأنني لا أدري ما المطلوب إلى الآن .. جرب الكود التالي Sub text() Dim ws As Worksheet Dim a As Variant Dim c As Range Dim i As Long Dim r As Long Dim ss As Long Set ws = ActiveSheet a = ws.Range("A2:B" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Value For i = LBound(a, 1) To UBound(a, 1) If a(i, 2) <> "" Then r = r + 1: a(i, 1) = r Else r = 0: a(i, 1) = "" End If Next i ws.Range("A2").Resize(UBound(a, 1), UBound(a, 2)).Value = a TextBox2.Visible = True TextBox5.Visible = False If Me.TextBox6.Value <> "" Then ss = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 Me.TextBox2.Value = ss Else Me.TextBox2.Value = "" End If End Sub

استخدم مسجل الماكرو وانسخ البيانات بالترتيب الذي ترغبه وستحصل على ما تريده لأن العمل بالمصفوفات لا يتعامل إلا مع القيم بدون التنسيقات .. أو قم بالتنسيق بعد ترحيل البيانات .. الخيار يرجع إليك

إذاً فلتحاول وإذا تعثرت في نقطة معينة أخبرنا بها .إذ لا يمكنني العمل على التخمين وفقك الله

بارك الله فيك أخي العزيز مهند .. وفقني الله وإياك لكل خير

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

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