تعديل كود الاستدعاء وفقا لعمود معين

[مصرى مصرى]

الكود الموجود في الملف المرفق يقوم باستدعاء الاعمدة من b الى f عن طريق قائمة مفلترة للمسلسل في العمود a

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

استدعاء.rar

[ابراهيم الحداد]

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

قارن بين هذا الكود و الكود السابق وستلاحظ الفرق بنفسك

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        Dim sh As Worksheet, Found
        Set sh = Sheets("بيانات")
        Application.ScreenUpdating = False
        Application.EnableEvents = False
            On Error GoTo Skipper
            Found = Application.Match(Target.Value, sh.Columns(2), 0)
            Target.Offset(0, 3).Value = sh.Cells(Found, 1).Resize(1, 6).Value
Skipper:
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

 

[مصرى مصرى]

 

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

قارن بين هذا الكود و الكود السابق وستلاحظ الفرق بنفسك

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        Dim sh As Worksheet, Found
        Set sh = Sheets("بيانات")
        Application.ScreenUpdating = False
        Application.EnableEvents = False
            On Error GoTo Skipper
            Found = Application.Match(Target.Value, sh.Columns(2), 0)
            Target.Offset(0, 3).Value = sh.Cells(Found, 1).Resize(1, 6).Value
Skipper:
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

 

انت باشا والله ربنا يخليك