Darren Smith
Well-known Member
- Joined
- Nov 23, 2020
- Messages
- 631
- Office Version
- 2019
- Platform
- Windows
Trying to link combo box chooses with ranges in excel. I have attempted to do a code see below. Please help
VBA Code:
Private Sub Towbar_Index()
Dim Ws As Worksheet
Dim rng As Range
Dim cbo As ComboBox
Set cbo = Me.Towbar_Type
Set Ws = Sheets("Part_Group_Items_ List")
If cbo.Value = "Transit Chassis Cab Towbar - Modified, Taillift " Then
Sheets Ws.rng("A2:O4").Value
End If
If cbo.Value = "TIZ4 - Isuzu Towbar - fits all 3.5T models" Then
Sheets Ws.rng("A12:O14").Value
End If
If cbo.Value = "Sprinter Chassis Cab Towbar" Then
Sheets Ws.rng("A20:O22").Value
End If
If cbo.Value = "Canter Chassis Cab Towbar" Then
Sheets Ws.rng("A25:O30").Value
End If
If cbo.Value = "Master Chassis Cab Towbar – Single rear wheel - FWD & RWD" Then
Sheets Ws.rng("A32:O24").Value
End If
If cbo.Value = "Master Chassis Cab Towbar – Twin rear wheel - RWD" Then
Sheets Ws.rng("A37:O39").Value
End If
If cbo.Value = "Daily Chassis cab Towbar" Then
Sheets Ws.rng("A42:O44").Value
End If
If cbo.Value = "Boxer/Ducato/Relay Chassis Cab Towbar" Then
Sheets Ws.rng("A47:O49").Value
End If
End Sub
Last edited by a moderator: