عبد الفتاح كيرة

أخى ali.ly شكرا لك ومرحبا بك بيننا أخى نادر شكرا لثنائك الطيب وبارك الله فيك

اضغط الملف ثم أرسله مضغوطا

ممتاز الاستفسار عن هذه الأمور column() هذه ترجع لنا رقم العمود الذى فيه المعادلة وبما أننا فى عمود رقم 8 ونحن نريد استرجاع البيانات من عمود رقم 4 فى الشيت الثانى لذا طرحنا 4 فيصير الناتج 4 تزيد هذه الـ 4 واحدا كلما اتجهنا بالمعادلة للعمود التالى

تفضل بالمرفقات المعادلة المستخدمة =INDEX('سنة 2009'!$A$7:$H$23;MATCH('سنة 2010'!B7&'سنة 2010'!C7;'سنة 2009'!$B$7:$B$23 & 'سنة 2009'!$C$7:$C$23;0);COLUMN()-4) نموذج مختصر-kemas.zip

بعد النسخ كليك يمين على مكان خلية اللصق ثم نختار من القائمة " لصق خاص" ثم نحدد كلمة " القيم"

الله يبارك فيك أخى الجزيرة وشكرا لمرورك

أكرمك الله أخى الحبيب شرح الشيت كنترول بالفديو أظن هذا يحتاج لفلم طويل الله يعين شكرا لمرورك

المرفقات Sub زر1_انقر() Dim x As Long Dim lastr As Long Dim col1 As Range Dim col2 As Range Dim c1 As Range Dim c2 As Range Dim col3 As Range Dim c3 As Range lastr = Range("a" & Rows.Count).End(xlUp).Row x = 1 Set col1 = Range("a2:a" & lastr) Set col2 = Range("b2:b" & lastr) Set col3 = Range("c2:c" & lastr) col3.Cells.ClearContents For Each c1 In col1 For Each c2 In col2 If c1.Value = c2.Value Then col3.Cells(x, 1).Value = c1.Value x = x + 1 End If Next c2 Next c1 Set col1 = Nothing Set col2 = Nothing Set col3 = Nothing End Sub القيم المشتركة بين عمودين.zip

عليك إعادة تمكين اللغة العربية من لوحة التحكم إعدادات إقليمية

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

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

تفضل أخى هذا شرح متواضع لهذا النوع من المعادلات أظن أول مرة يشرح مثل هذا فى فديو

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

معادلة أخرى بعد إذن أخى ولد المجرب =IF(ISNA(INDEX(data!$A$2:$B$11;MATCH(B5;data!$B$2:$B$11;0);2));"";INDEX(data!$A$2:$B$11;MATCH(B5;data!$B$2:$B$11;0);2))

أخى المعادلة تعد ب 3 شروط " مجتمعة" الشرط الأول full الشرط الثانى rss الشرط الثالث 20 لابد من اجتماع الشروط الثلاثة العمود e لا دخل له فى هذه الشروط ليس هناك فى الجدولين السفليين شرط Empty لكى يتم عده وضح ما تريد بمثال محلول لنضبط لك المعادلة بإذن الله

حياك الله أخى مزلزل شكرا لمرورك

شكرا مبارك عليك إتمام هذا العمل المتميز

الشكر لله عدل مشاركتك و اكتب لفظ الجلالة بالهاء " الله " بارك الله فيك

شكرا لك

تفضل ofisna 2-kemas.zip

لست واثقا إذا كان هذا ما تريده ضع المعادلة فى e5 و اسحبها لأسفل =SUMPRODUCT(--($C$5:$C$14=20)*($B$5:$B$14=B5)*($F$5:$F$14=F5))

تحولت الصفحة هذه إلى مسرح إبداعات بارك الله فيكم

و الله تعلمنا منكم الكثير هذا كود صغير لتصفية رقم اللوحة فى نفس العمود و بدون أية معادلات أحب أن يقول أستاذى خبور رأيه فيه Dim myrng As Range, mycl As Range, mypoint As Long Set myrng = Sheets(1).Range("a4:a" & Application.WorksheetFunction.CountA(Range("a:a")) - 3) Application.ScreenUpdating = False For Each mycl In myrng mycl.Select With Selection .Replace What:="إ", Replacement:="ا" ' .Replace What:="أ", Replacement:="ا" .Replace What:="ى", Replacement:="ي" .Replace What:=""" """, Replacement:="""""" .Replace What:=" ", Replacement:="" For i = 1 To 5 Step 2 Selection.Replace What:=Mid(mycl, i, 1), _ Replacement:=Mid(mycl, i, 1) & " " Next i End With Next mycl Application.ScreenUpdating = True Range("a4").Select و هذا بفضل الله ثم بفضل ما تعلمناه منكم استخدام دالة الاستبدال لوضع مسافة بعد الحرف و حذف الفراغاتkemas.zip