Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Private Sub Invoice_Template_Change() Dim RngTemplate As Range, RngType As Range Dim RngList1 As Range, RngList2 As Range Dim TemplateSelected As String, TypeSelected As String Dim Ws1 As Worksheet Dim LR1 As Long InvoiceComboBox.Clear 'Check that Template has been selected If Invoice_Template.ListIndex <> -1 Then TemplateSelected = Invoice_Template.value TypeSelected = Invoice_Type.value Set Ws1 = Worksheets("WBEntryDetails") LR1 = Ws1.Range("S" & Rows.Count).End(xlUp).row Set RngList1 = Ws1.Range("S3:S" & LR1) Set RngList2 = Ws1.Range("T3:T" & LR1) For Each RngTemplate In RngList1 For Each RngType In RngList2 If RngTemplate.value = TemplateSelected And RngType.value = TypeSelected Then InvoiceComboBox.AddItem RngTemplate.Offset(, 5) 'Column x End If Next RngType Next RngTemplate End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.