أكاديمية الصقر للتدريب

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


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





عمل ارتباط تشعبي داخل صفجه الاكسل

السلام عليكم ورحمه الله في البدايه احب اشكركم بجد على تعاونكم معانا وربنا يبالك في علمكم وعملكم إلى يوم الدين مرفق شيت ..


موضوع مغلق


13-02-2022 05:30 مساء
omhamza
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 32
الجنس : أنثى
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 67
 offline 

السلام عليكم ورحمه الله



في البدايه احب اشكركم بجد على تعاونكم معانا وربنا يبالك في علمكم وعملكم إلى يوم الدين



مرفق شيت اكسل في صفحتين 



عايزه اعمل ارتباط تشعبي في صفحه الفهرس بحيث لما اضغط على الاسم يجبلي البيانات في صفحه التقرير



مع العلم ان ده نموذج بس انما الشيت الاصلي في اكتر من 1000 اسم



عايزه اضغط على الاسم في صفجه الفهرس يروح على طول للبيانات بتاعته في صفحه التقرير



ومتشكرة جدا وجزاكم الله خيرا

 
 
  Taqrer.xlsx   تحميل xlsx مرات التحميل :(6)
الحجم :(14.662) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أختي الكريمة أم حمزة
جربي الكود التالي في حدث ورقة العمل الأولى
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim x
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 2 Then
        x = Application.Match(Target.Value, Sheet2.Columns(4), 0)
        If Not IsError(x) Then
            Application.Goto Sheet2.Cells(x, 1), True
        End If
    End If
End Sub

 
عرض الإجابة




13-02-2022 05:36 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif عمل ارتباط تشعبي داخل صفجه الاكسل
وعليكم السلام أختي الكريمة أم حمزة
جربي الكود التالي في حدث ورقة العمل الأولى
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim x
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 2 Then
        x = Application.Match(Target.Value, Sheet2.Columns(4), 0)
        If Not IsError(x) Then
            Application.Goto Sheet2.Cells(x, 1), True
        End If
    End If
End Sub

 

13-02-2022 05:52 مساء
مشاهدة مشاركة منفردة [2]
omhamza
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 32
الجنس : أنثى
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 67
 offline 
look/images/icons/i1.gif عمل ارتباط تشعبي داخل صفجه الاكسل
متشكرة جدا لحضرت يا أستاذ / ياسر وبجد جزالك الله خيرا

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

مش فاهمه

13-02-2022 05:54 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif عمل ارتباط تشعبي داخل صفجه الاكسل
كليك يمين على اسم ورقة العمل واختاري View Code والصقي الكود في موديول ورقة العمل 
ولتجربة الكود حددي أي خلية في العمود الثاني في ورقة العمل الأولى

13-02-2022 06:08 مساء
مشاهدة مشاركة منفردة [4]
omhamza
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 32
الجنس : أنثى
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 67
 offline 
look/images/icons/i1.gif عمل ارتباط تشعبي داخل صفجه الاكسل
متشكرة جدا جدا لحضرتك وربنا يكرمك ويجازيك خير يارب

13-02-2022 06:10 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif عمل ارتباط تشعبي داخل صفجه الاكسل
وجزيت خيراً بمثل ما دعوت لي وزيادة
والحمد لله الذي بنعمته تتم الصالحات



الكلمات الدلالية
ارتباط ، تشعبي ، داخل ، صفجه ، الاكسل ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 11:37 صباحا