أبو وليد

هل يمكن تحويله 2010

سبحان الله وبحمده

سبحان الله وبحمده

في المرفق الصفحة الرئيسية يوجد زر أضغط هنا الرجاء الضغط عليه وملاحظة ما يحصل test salim 1.zip

واجهت مشكله وهي في الصفحات الفرعية عند حذف السجل الأول تعطيي المعادلات خطاْ

أستاذ سليم مساء الخير واجهت مشكله وهي في الصفحات الفرعية عن حذ السجل الأول تعطيي المعادلات خطاْ

ما شاء الله تبارك الله بيض الله وجهك وزادك من علمه وفضله حقيقه أبداع هذا ما أريده بالضبط

بارك الله فيك ونعم بك الله يرزقك ويبارك فيك يبدوا أني لم استطع إيصال فكرتي عدلت في المرفق الذي ارسلته ما أريده test salim 2.rar

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

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

شكرا لأهتمامك test.rar

السلام عليكم مساء الخير لا استطيع التعديل على معادلة صفيف عند التغيير على المعادلة والضغط على SHIFT+CTRL+ENTER يظهر رسالة array formulas are not valid in merged cells علما حتى لو أضغط اف 2 قبل الضغط

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

ممكن ماعليك أمر تشرح لي هذه المعادلة =MAX(--(INDIRECT($G$2&"!$a$1:$a$500")<>"")*ROW($A$1:$A$500)) وهل أستطيع أن أضيف فيها عند الخطأ

بيض الله وجهك عمل رائع بعد تجربته سريعا وفقك الله دنيا وأخره ممكن ماعليك أمر تشرح لي هذه المعادلة =MAX(--(INDIRECT($G$2&"!$a$1:$a$500")<>"")*ROW($A$1:$A$500))

لدي ملف به مجموعة من الأوراق ارغب في عرض اخر عشر سجلات في الصفحة الرئيسية عن الاختيار من القائمة المنسدلة المثال يوضح ذلك test.rar

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

السلام عليكم الله يجمعكم على المحبة والخير في الدنيا وفي جنة النعيم في الآخرة استاذي اسف تأخيري بسبب التجربة تكون اثناء عمل البرنامج كيف اضيف الحدث ThisWorkbook.RefreshAll

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

السلام عليكم قمت بعمل ما ذكرت لم يتغير الوقت نهائيا ارفقت لم مثال أتوقع ما يعمل لان البرنامج ليس في جهازك Book1.rar

هذ ياعزيزي ربط عن طريق برنامج خاص بالبورصه ويتحدث تلقائيا عند التغيير في البرنامج

السلام عليكم هذا الكود Private Sub zz(ByVal Target As Range) Dim Cel As Range Dim LR As Long With Application .ScreenUpdating = False: .EnableEvents = False End With For Each Cel In Sheets("Mian").Range("A2:A" & Sheets("Mian").Cells(Rows.Count, 1).End(xlUp).Row) On Error Resume Next If Evaluate("=ISREF('" & Cel.Value & "'!A1)") Then With Sheets("" & Cel.Value & "") LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1 If Application.WorksheetFunction.CountIfs(.Range("A2:A" & LR), Cel.Offset(0, 0), .Range("B2:B" & LR), Cel.Offset(0, 1)) Then GoTo Skipper .Range("A" & LR).Resize(, 8).Value = Cel.Offset(0, 0).Resize(, 8).Value End With End If Skipper: Next Cel End Sub

بارك الله فيك قمت بوضعه في حدث WOTKSHEET_CHANGE ولم يعمل الكود علما ان البيانات تتحدث تلقائيا بدون تدخل المستخدم

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

السلام عليكم مساء الخير لدي ورقة عمل (شيت) يأخذ بيانات من الانترنت ويقوم بنقل البيانات الى أوراق أخرى عند أي تغيير في البيانات ما اريده ما هو الحدث الذي يوضع فيه الكود بارك الله فيكم