Worksheet_Change Multiple ranges

[MaxMiller]

I am trying to modify the following code:

Public Sub Worksheet_Change(ByVal Target As Range)
Dim pctVal As Double

If Intersect(Target, Range("I14:I44")) Is Nothing _
Or Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) = True Then Exit Sub
With Target
If IsNumeric(.Value) Then
Select Case Cells(.Row, .Column - 4).Value
Case "LTL": pctVal = 1.08
Case "TL": pctVal = 1.1
Case "Tank Truck": pctVal = 1.09
Case "IM": pctVal = 1.12
Case Else: pctVal = 1
End Select
Application.EnableEvents = False
.Value = .Value * pctVal
Application.EnableEvents = True
End If
End With

If Intersect(Target, Range("J14:J44")) Is Nothing _
Or Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) = True Then Exit Sub
With Target
If IsNumeric(.Value) Then
Select Case Cells(.Row, .Column - 5).Value
Case "LTL": pctVal = 1.08
Case "TL": pctVal = 1.1
Case "Tank Truck": pctVal = 1.09
Case "IM": pctVal = 1.12
Case Else: pctVal = 1
End Select
Application.EnableEvents = False
.Value = .Value * pctVal
Application.EnableEvents = True
End If
End With


The problem is that before the second If Intersect is reached, the sub is exited. I want to make this code update columns I, J, K & L.

 

[Joe4]

Your two blocks look essentially the same, except for the range.

I haven't tried to figure out what you are trying to do, but note thay you can combine all the ranges together, so you might be able to do it in a single block like:

Public Sub Worksheet_Change(ByVal Target As Range)
 
    Dim pctVal As Double
 
    If Intersect(Target, Range("I14:I44,J14:J44,K14:K44,L14:L44")) Is Nothing _
        Or Target.Cells.Count > 1 Then Exit Sub
        If IsEmpty(Target) = True Then Exit Sub
            With Target
                If IsNumeric(.Value) Then
                    Select Case Cells(.Row, .Column - 4).Value
                        Case "LTL": pctVal = 1.08
                        Case "TL": pctVal = 1.1
                        Case "Tank Truck": pctVal = 1.09
                        Case "IM": pctVal = 1.12
                        Case Else: pctVal = 1
                    End Select
                    Application.EnableEvents = False
                    .Value = .Value * pctVal
                    Application.EnableEvents = True
                End If
            End With
        End If
    End If
 
End Sub

The only thing I noticed that looks like it changes is this line:
Select Case Cells(.Row, .Column - 4).Value

You should be able to edit the column reference to make it static, i.e.:
Select Case Cells(.Row, "E").Value
if need be (depending on what you are doing).