أبو وليد

هل يمكن تحويله 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

أم ماذا

بارك الله فيكم

السلام عليكم

مساء الخير

لدي ورقة عمل (شيت) يأخذ بيانات من الانترنت

ويقوم بنقل البيانات الى أوراق أخرى عند أي تغيير في البيانات

ما اريده

ما هو الحدث الذي يوضع فيه الكود

بارك الله فيكم