رجب جاويش

أخى الفاضل سليم سلمت يداك أخى محمد هل تقصد هكذا =SUMIFS(OFFSET($D$9;;MATCH(B6;D8:AO8;0)-1;27;1);A9:A35;B3;B9:B35;B4;C9:C35;B5) New Microsoft Excel Worksheet.rar

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

السلام عليكم أخى الفاضل جرب المرفق اماكن.rar

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

السلام عليكم أخى الفاضل ما رأيك فى زر واحد يستخدم لترحيل الجديد وترحيل بعد التعديل جرب المرفق اوفيسنا.rar

أخى الفاضل / الأستاذ أيمن ابراهيم تفضل وأرجو أن يكون كما تريد الفورم.rar

الأخ الفاضل / أيمن ابراهيم أجمل وأرق تحية وتقدير تفضل جرب المرفق الفورم.rar

بعد اذن أخى سليم تفضل اخى كله بالاكود لانه مينفعش تعديل ع وجود معادلات الاستدعاء هذا كود الاستدعاء فى حدث الورقه Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range Dim LR As Integer Dim sh2 As Worksheet Set sh2 = Sheet2 If Target.Address = [c2].Address Then LR = sh2.Cells(Rows.Count, 1).End(xlUp).Row For Each cl In sh2.Range("A4:A" & LR) If [c2] = cl Then [c4] = cl.Offset(0, 1) [b6] = cl.Offset(0, 2) [b8] = cl.Offset(0, 3) [b10] = cl.Offset(0, 4) End If Next End If End Sub وهذا كود الترحيل Sub ragab() Dim cl As Range Dim LR As Integer Dim sh1 As Worksheet Dim sh2 As Worksheet Set sh1 = Sheet1 Set sh2 = Sheet2 LR = sh2.Cells(Rows.Count, 1).End(xlUp).Row For Each cl In sh2.Range("A4:A" & LR) If sh1.[c2] = cl Then cl.Offset(0, 1) = sh1.[c4] cl.Offset(0, 2) = sh1.[b6] cl.Offset(0, 3) = sh1.[b8] cl.Offset(0, 4) = sh1.[b10] End If Next End Sub وهذا الملف اوفيسنا.rar

شكرا جزيلا أخى محمد

بارك الله فيك أخى الحبيب ياسر

جزاك الله كل خير أخى الفاضل يونس

أخى الفاضل كلمة "hello" ف الكود السابق ليست هى الرسالة التى سوف تظهر عند تنفيذ الكود ولكن هى اسم الكود ( الاجراء ) الذى سوف يتم تنفيذه عند الوقت المحدد وبالتالى لابد من ادراج موديول جديد و عمل كود بنفس الاسم الموضوع فى السطر السابق وهو "hello" ليتم تنفيذه وبالتالى يكون التعديل كالتالى الكود السابق كما هو والكود الموجود داخل الموديول يكون كالاتى Sub hello() MsgBox "Hello officena" End Sub تقبل تحياتى

ولو حبيت تختصر المعادلة فى الخلية يمكنك تسيمة النطاق التالى =OFFSET(B7;MATCH(B1;A7:A35;0)-1;;MATCH(B2;A7:A35;0)-MATCH(B1;A7:A35;0)+1;37) ووضع الاسم وليكن ragab مثلا فى المعادلة فتكون المعادلة على الصورة التالية =SUM(ragab) تطبيق بدالة sumifs.rar

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

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

تفضل أخى الفاضل محمد =SUM(OFFSET(B7;MATCH(B1;A7:A35;0)-1;;MATCH(B2;A7:A35;0)-MATCH(B1;A7:A35;0)+1;37)) تطبيق بدالة sumifs.rar

تفضل أخى تطبيق بدالة sumifs.rar

ربنا يكرمك أخى الحبيب ياسر جزاك الله كل خير على كلماتك الطيبة

السلام عليكم مرحبا بأخى الحبيب ياسر خليل المنتدى كدا نور بجد حمد لله على السلامة أخى محمد جرب المعادلة التالية =SUMIFS(OFFSET($B$7;;MATCH($B$3;$B$6:$J$6;0)-1;29;1);$A$7:$A$35;">="&$B$1;$A$7:$A$35;"<="&$B$2) تطبيق بدالة sumifs.rar

أخى الفاضل جرب هذه المعادلة =LOOKUP(2;1/((عام!$I$5:$I$12000='تعديل عوده'!$G$5)*(عام!$R$5:$R$12000="تعديل"));عام!$H$5:$H$12000)

أخى الفاضل ارجو مزيد من التوضيح للمطلوب الثانى

للاسف لسه فيه مشكلة يمكن تكون المشكلة عندى يفضل رفع الملف على سيرفر المنتدى

أخى الفاضل المرفق تقريبا فيه مشكلة لم أستطع تحميله

أخى الفاضل استبدل هذا السطر For I = Range("V9") To Range("V10") بهذا For I = Range("V9") To Range("V10") Step 2

السلام عليكم بعد اذن الأستاذ / زيزو العجوز جرب أخى هذه المعادلة =IFERROR(INDEX($I$2:$I$1000;MATCH(TRUE;A2&B2=$G$2:$G$1000&$H$2:$H$1000;0));"") مع مرعاة الضغط على ctrl + shift + enter coulm.rar