Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!