Jehad.93

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

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

السلام عليكم أخي ارفقت لك ملف بعد التعديل عليه وكتبت فيه بورقة ما أحتاج إليه أرجو أن أكون قد أوصلت الفكرة وشكرا لك. داتا-1.xlsm

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

السلام عليكم اخواني الكرام لدي مشكلة في نسخة office 365 في برنامج الأكسل عند نسخ اي شيئ يعلق البرنامج وتشتغل مروحة الابتوب بسرعة وصوت عالي أرجو المساعدة وشكرا.

شكرا لك أخي الكريم

السلام عليكم أخواتي الكرام لدي هذا الملف في ورقة insertdata أريد تعديل كود زر الحذف ليظهر مسج بوكس لتأكيد الحذف. أريد أن اسئل هل يوجد طريقة لتنقل بين خلاية النموذج بالضغط على تاب أو انتر الانتقال من الخلية E3 إلى الخلية E7 فورا وهكذا. وأيضا في الخلية I7( طلب الشراء) هي خلية البحث اكتب فيها رقم طلب الشراء وإضغط بحث لتظهر النتائج هل هناك طريقة لتظهر النتائج عند كتابة الرقم تلقائيا. وشكرا لكم جدول صيانة.xlsm

السلام عليكم الحمد لله تم العثور على حل بمساعدة أخ عزيز كل الشكر والتقدير له ولكل من ساهم بالمساعدة سوف ارفق كود يوضع بالورقة الثانية الخاصة بإحضار البيانات ولكن يجيب إن يكون نطاق الخلاية عادي وليس ديناميكي. شكرا للجميع Private Sub Worksheet_Change(ByVal Target As Range) Dim a, i As Long, ii As Long, k As Long If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Address = "$I$2" Then Application.ScreenUpdating = False Range("A1").CurrentRegion.Offset(1).ClearContents a = Worksheets(1).Range("A1").CurrentRegion.Offset(1).Value ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) For i = LBound(a, 1) To UBound(a, 1) If a(i, 1) = Target.Value Then k = k + 1 For ii = LBound(a, 2) To UBound(a, 2) b(k, ii) = a(i, ii) Next ii End If Next i If k > 0 Then Range("A2").Resize(k, UBound(b, 2)).Value = b End If Application.ScreenUpdating = True End If End Sub

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