كيفية عمل قائمة منسدلة تتغير بتغير أخرى

[mohsen mohamed]

السادة الأساتذة الكرام/ السلام عليكم ورحمة الله وبركاته

مرفق مستند اريد أن أعرف كيف أفصل الأعداد الفردية عن الزوجية وكذلك كيفية عمل قائمة منسدلة تتغير بتغير الأولى مثل القائمة الأولى تحمل رقم 1 تتغير الثانية إلى رقم 2 والأولى 3 تكون الثانية 4 وهكذا.

ولسيادتكم جزيل الشكر والعرفانdata.xlsx

[hegazee]

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

https://www.officena.net/ib/topic/64613-أبغي-قائمة-منسدلة-مرتبطة-بقائمة-منسدلة-أخري-فى-نفس-ورقة-العمل/

[عبدالله بشير عبدالله]

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

الى جانب الحلول التي ارفقها  استاذنا الفاضل hegazee اليك  حل اخر بالكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngF As Range, rngG As Range
    Dim rngB As Range, rngC As Range
    Dim pos As Variant
    
    Set rngF = Me.Range("F2") '
    Set rngG = Me.Range("G2")
    Set rngB = Me.Range("B2:B1000")
    Set rngC = Me.Range("C2:C1000")
    
    If Not Intersect(Target, rngF) Is Nothing Then
        Application.EnableEvents = False
        pos = Application.Match(rngF.Value, rngB, 0)
        If Not IsError(pos) Then
            rngG.Value = Application.Index(rngC, pos)
        Else
            rngG.Value = ""
        End If
        Application.EnableEvents = True
    End If
rngG.Select

End Sub

data.xlsb

[mohsen mohamed]

أنا في غاية الشكر لحضراتكم السيد الأستاذ عبد الله بشير والأستاذ hegazee

ربنا يبارك في أعماركم