VBA Code Change Event Code When 2 cells are selected

Looking for a Private Sub Worksheet_Change(ByVal Target As Range) code to concatenate cell J, K, E and F cells when both J6 and K6 are selected. The cells start in J6 and K6. When both J6 and K6 are selected, I would like a VBA code to concatenate J6, K6, E6 and F6 in cell L6 (here is the formula =IF(OR(J6="",K6=""),"",I6&" "&J6 &" "&K6&" - "&E6&" "&" "&F6 I have but looking for a VBA code to accomplish task).

When either J6 or K6 is selected, the code should not concatenate until both cells (J and K) are selected. I would also like a Clear Contents function to clear L6 (or L7, L100, L80 or L13) contents when either J or K cell is deleted. For example, if K value is deleted, the Clear Contents should clean J and L cells contents.

Thanks.

Just a lil bit extension of ajryan's ..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("j:k"), Target) Is Nothing Then
        If ((Range("j" & Target.Row) = "") + (Range("K" & Target.Row) = "")) Then Range("l" & Target.Row) = ""
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$J$" & Target.Row & ":$K$" & Target.Row And _
    ((Range("j" & Target.Row) <> "") * (Range("K" & Target.Row) <> "")) _
    Then Range("L" & Target.Row).Formula = _
    "=I" & Target.Row & "&"" ""&J" & Target.Row & " &"" ""&K" & Target.Row & "&"" - ""&E" & Target.Row & "&"" ""&"" ""&F" & Target.Row
End Sub

Can you please upload a sample file with provided code..

Originally Posted by bjnockle

when both J6 and K6 are selected. The cells start in J6 and K6. When both J6 and K6 are selected, ....

Do you mean both cell's are populated.. or selected..

in case of selection.. code is working fine..

Originally Posted by bjnockle

when both J6 and K6 are populated or values entered, J6 pulls values. Thanks

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("j:k"), Target) Is Nothing And Target.Row >= 6 Then
        If ((Range("j" & Target.Row) <> "") * (Range("K" & Target.Row) <> "")) Then
            Range("l" & Target.Row).Formula = _
        "=I" & Target.Row & "&"" ""&J" & Target.Row & " &"" ""&K" & Target.Row & "&"" - ""&E" & Target.Row & "&"" ""&"" ""&F" & Target.Row
        Else
            Range("l" & Target.Row) = ""
        End If
    End If
End Sub

With your query, the technical term "Worksheet_Change" is only to create confusion...
Use provided code

Try this one..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("j:k"), Target) Is Nothing And Target.Row >= 6 Then
        If ((Range("j" & Target.Row) <> "") * (Range("K" & Target.Row) <> "")) Then
            Range("l" & Target.Row) = _
        Evaluate("=I" & Target.Row & "&"" ""&J" & Target.Row & " &"" ""&K" & Target.Row & "&"" - ""&E" & Target.Row & "&"" ""&"" ""&F" & Target.Row)
        Else
            Range("l" & Target.Row) = ""
        End If
    End If
End Sub