نسخ إلى الورقة الرئيسية

[هاشم العلوي]

الأخوة السادة أعضاء المنتدى : 

السلام عليكم ورحمة الله وبركاته

بعد البحث وجدت كود لأحد الاخوه حسبت أنه سيلبي طلبي فحاولت تعديل الكود ليتناسب ولم أفلح 

لدي ورقتين ١/ الأولى all data فيها كل البيانات 

٢/ الثانية "ادخال" يتم جلب بيانات فصل محدد في الخلية B1 والتي فيها قائمة منسدلة وتعمل عن طريق كود استفدته من المنتدى الرائع.

الغرض لتخفيف حجم البيانات وسهولة التعامل مع بيانات الصف وإضافة او تعديل وإدخال البيانات التي تحدث بين فينة وأخرى 

المطلوب أنه بعد التعديل على الصف المحدد في ورقة "ادخال" الضغط على زر يقوم بحذف البيانات القديمة في ورقة All data ويحل محلها أو توضع في اسفل الورقة البيانات المحدثة في الورقة ادخال 

الكود الذي حاولت فيه هو موديل ١ شاكرا تعاونكم نسخ البيانات الى الرئيسية .rar

[أبوأحـمـد]

وعليكم السلام ورحمة الله وبركاته

بعيدا عن التعقيد وتكرار البيانات 

عملت لك فلتر في ورقة البيانات  وبعد تعديل البيانات تضغط زر حفظ التعديل فيلتغي الفلتر

وبالتالي النتيجة واحدة أرجو أن يؤدي المطلوب

هذي كل الأكواد

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
    Range("A2:APL2").AutoFilter Field:=21, Criteria1:=Range("B1")
    End If
End Sub
Sub e()
Range("A2:APL2").AutoFilter Field:=21
End Sub

 

نسخ البيانات - الى الرئيسية .xlsb

[هاشم العلوي]

الأخ الأستاذ القدير والرائع/أبو احمد 

انت مبدع ورائع فعلا فكما قلت لتكرار البيانات وتفي بالغرض الذي أنشده 

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