Forum Discussion

guitar713's avatar
guitar713
Brass Contributor
Apr 09, 2024

Combo Box dynamic code not working

Hello, I have tried to use a code that works in one program but not another program to dynamicly populate comboboxes. Can someone help me resolve this. The code is as follows: With frmDataEntry...
excel
HansVogelaar's avatar
HansVogelaar
MVP
Apr 09, 2024

guitar713 

Could you attach a small sample workbook demonstrating the problem (without sensitive data), or if that is not possible, make it available through OneDrive, Google Drive, Dropbox or similar?

  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Apr 09, 2024

    guitar713 

    Try this:

    Private Sub cmbURGENCY_Change()
    Select Case cmbURGENCY
        Case "HAND CARRY - HIGH – 1 Bus Days"
            FrameURGENCYOVERALL.BackColor = RGB(245, 99, 75)
            Sheet4.Range("C2", Sheet4.Range("C" & Rows.Count).End(xlUp)).Name = "Dynamic"
        Case "FAST - MEDIUM – 2-3 Bus Days"
            FrameURGENCYOVERALL.BackColor = RGB(255, 251, 0)
            Sheet4.Range("D2", Sheet4.Range("D" & Rows.Count).End(xlUp)).Name = "Dynamic"
        Case "NORMAL - LOW – 5 Bus Days"
            FrameURGENCYOVERALL.BackColor = RGB(155, 247, 141)
            Sheet4.Range("E2", Sheet4.Range("E" & Rows.Count).End(xlUp)).Name = "Dynamic"
        Case Else
            FrameURGENCYOVERALL.BackColor = vbWhite
            Sheet4.Range("F2", Sheet4.Range("F" & Rows.Count).End(xlUp)).Name = "Dynamic"
    End Select
    Me.cmbCARRYREASON.RowSource = "Dynamic"
    cmbCARRYREASON.ListIndex = 0
End Sub

Resources