اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم . في الملف المرفق كود إنشاء combobox في ورقة تسديد الاقساط في العمود ( C ) ارجوا المساعده في تكرار نفس الكود في نفس الورقة ولكن في العمود ( D ) مع ملاحظة اختلاف مدى الخلايا في ورقة 1 ليصبح  B1:B4

مع الشكر والتقدير

combobox.rar

قام بنشر

جرب نسخ الكود من المشاركة التالية

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Sh As Worksheet
    Dim iLastRow As Long

    If Target.Cells.Count <> 1 Then
        Exit Sub
    End If

    With ComboBox1
        .LinkedCell = "": .Clear: .Visible = False
    End With

    If Not Intersect(Target, Range("C3:C779")) Is Nothing Then
        Set Sh = Sheet2
        iLastRow = Sh.Cells(Rows.Count, "A").End(xlUp).Row

        With ComboBox1
            .Top = Target.Top: .Left = Target.Left
            .Width = Target.Width: .Height = Target.Height
            .LinkedCell = Target.Address
            .List = Sh.Range("A1:A" & iLastRow).Value
            .Visible = True: .Activate
        End With
        SendKeys "%{DOWN}"
    End If

    If Not Intersect(Target, Range("D3:D779")) Is Nothing Then
        Set Sh = Sheet2
        iLastRow = Sh.Cells(Rows.Count, "B").End(xlUp).Row

        With ComboBox1
            .Top = Target.Top: .Left = Target.Left
            .Width = Target.Width: .Height = Target.Height
            .LinkedCell = Target.Address
            .List = Sh.Range("B1:B" & iLastRow).Value
            .Visible = True: .Activate
        End With
        SendKeys "%{DOWN}"
    End If
End Sub

لو حدثت نفس المشكلة لديك قم برفع الملف بعد وضع الكود داخله

قام بنشر
7 ساعات مضت, نبيل عبد الهادي said:

استاذ ياسر انت شمعه تنير الدرب للمبتدئين . الكود يعمل 100% بعد تغير sheet2 الى ورقة6 كل الشكر والتقدير لحضرتك .الله يجعلها في ميزان حسناتك

أعتذر ربما هذا خطأي لأنني لم أنوه إلى تغيير اسم ورقة العمل (الاسم البرمجي) حيث أنني أفضل كتابة أسماء أوراق العمل باللغة الإنجليزية

عموماً حصل خير والحمد لله الذي بنعمته تتم الصالحات ، ومشكور أخي نبيل على كلماتك الرقيقة في حقي

تقبل تحياتي

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information