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

أخي الحبيب ياسر العربي .. يبدو أن الأخوة لم يجربوا الملف بشكل جيد أو لربما أكون مخطيء .. راجع هذا السطر ففيه خطأ يتسبب في عدم عمل الكود بشكل صحيح targtN = Application.WorksheetFunction.Match(ComboBox1.Text, SERCH.Range("A3:J3"), 0) + 1 'دالة لايجاد رقم عمود البحث لما الرقم 1 .لأن الرقم 1 سيزيد من رقم العمود بمقدار واحد ويجلب العمود التالي له ؟! أمر آخر وهو الأهم أنك لم تستخدم هذا المتغير في عمود البحث ..لاحظ السطر التالي If myArray(X, 1) Like targt & "*" Then لاحظ استخدام الرقم 1 بدلاً من المتغير targtN ، وهذا سيجعل البحث محصوراً في العمود الأول فقط .. تقبل تحياتي

جرب السطر بهذا الشكل Range("$A$2:$R$" & lastrow).AutoFilter Field:=14, Criteria1:="=" & "*" & TextBox1.Text & "*", Operator:=xlOr

الحمد لله أن توصلتي للحل ..يرجى إفادتنا بكيفية حلها عن طريق الـ Power Query ليستفيد الجميع

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

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

وعليكم السلام جربي الملف المرفق التالي رابط الملف من هنا

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

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

ممتاز أخي العزيز زيزو رائع رائع أعجبني كثيراً فقط للنتائج الصحيحة استخدم السطر التالي للمتغير Z Z = Cells(R, Arr(X)) + (Cells(R, Arr(X)) * Range("B12")) أخي الكريم سليم تعديل بسيط أيضاً للحصول على النتيجة المرجوة =INDEX($A4:$I4,2*(COLUMNS($A$1:A1)-1)+3)+(INDEX($A4:$I4,2*(COLUMNS($A$1:A1)-1)+3)*$B$12)

بارك الله فيك أخي الكريم أبو حنف وجزيت خيراً بمثل ما دعوت لنا تقبل تحياتي

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

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

سأحاول العمل على ملفك إن شاء الله .. لكن هناك بعض الظروف لدي تمنعني من المشاركة بشكل إيجابي

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

وعليكم السلام أخي الكريم وائل جرب الكود التالي .. وحاول أن تضع شكل المخرجات إذا لم يؤدي الكود الغرض Sub Test() Dim Cel As Range For Each Cel In Range("A1:A29") If Len(Cel) >= 255 Then Cel.Offset(, 1).Value = Cel.Value Cel.ClearContents End If Next Cel End Sub

أضف ورقة عمل جديدة ثم جرب الكود التالي Sub Using_Arrays() Dim Arr As Variant Dim Temp As Variant Dim I As Integer Dim J As Integer Dim P As Integer Dim Cnt As Integer Dim tSum As Double Sheet1.Range("B3:L1000").ClearContents Arr = Sheet1.Range("O2:AT143").Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2) * 2 + 1) For I = 2 To UBound(Arr, 1) Cnt = 0: tSum = 0 For J = LBound(Arr, 2) To UBound(Arr, 2) If Not IsEmpty(Arr(I, J)) Then Temp(I - 1, Cnt + 1) = Arr(I, J) Temp(I - 1, Cnt + 2) = Arr(1, J) tSum = tSum + Arr(I, J) P = P + 1 Cnt = Cnt + 2 End If Next J Temp(I - 1, UBound(Temp, 2) - 1) = tSum Cnt = Cnt + 2 Next I Sheet2.Range("A1").Resize(UBound(Temp, 1), J * 2 - 1).Value = Temp End Sub ستوضع النتائج في ورقة العمل الجديدة والمجموع في العمود رقم 64 في الورقة الجديدة

وعليكم السلام أخي الكريم محمد بارك الله فيك وجزاك الله خيراً .. تقبل تحياتي

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

أخي الكريم حاتم تم التعديل .. بناءً على رغبة أخونا محمد الدسوقي

وعليكم السلام أخي محمد يرجى إعادة رفع الملف مرة أخرى حيث أنه غير موجود .. وجزاك الله خيراً

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

بعد التجربة اتضح أنه يؤثر على الخلايا التي بها معادلات ..عموماً بسيطة قم بتعديل السطر التالي في الكود For Each xCell In xRg.SpecialCells(xlCellTypeConstants)

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

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

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