Hello jaredmccullough,
I believe this will work (not tested) :
'Column Q
If rng.Offset(0, 16) = "" Then 'Column Q is 16 columns from A
Select Case rng.Offset(0, 4) 'Column E
Case "A", "B", "C": Me.combobox2.Value = "Host"
Case "D", "E", "F": Me.combobox2.Value = "Agent"
Case Else: Me.combobo2.Value = ""
End Select
End Sub
'Column R
If rng.Offset(0, 17) = "" Then 'Column R is 17 columns from A
Select Case rng.Offset(0, 4) 'Column E
Case "A", "B", "C": Me.combobox2.Value = "Buyer"
Case "D", "E", "F": Me.combobox2.Value = "Engineer"
Case Else: Me.combobo2.Value = ""
End Select
End Sub
'Column S
If rng.Offset(0, 18) = "" Then
Select Case rng.Offset(0, 4) 'Column E
Case "A", "B", "C": Me.combobox2.Value = "Person"
Case "D": Me.combobox2.Value = "Artist"
Case "E", "F": Me.combobo2.Value = ""
End Select
Else
Me.combobox2 = ""
End Sub
'Column T
If rng.Offset(0, 19) = "" Then
Select Case rng.Offset(0, 4) 'Column E
Case "A", "B", "C": Me.combobox2.Value = "Example"
Case "D": Me.combobox2.Value = "Worker"
Case "E", "F": Me.combobo2.Value = ""
End Select
Else
Me.combobox2 = ""
End Sub
Bookmarks