[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oPlg As Range, oCel As Range
If Not Intersect(Target, Range("I3:J23")) Is Nothing Then
Set oPlg = Intersect(Target, Range("I3:J23"))
For Each oCel In oPlg.Cells
If IsEmpty(Cells(oCel.Row, 9)) Or IsEmpty(Cells(oCel.Row, 10)) Then
Cells(oCel.Row, 5).ClearContents
Else
Cells(oCel.Row, 5).Value = Cells(oCel.Row, 10).Value & " " & Cells(oCel.Row, 9).Value
End If
Next
End If
End Sub[/B][/COLOR]
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("J3:J23")) Is Nothing) Then
Cells(ActiveCell.Row, 5).Formula = "=IF(RC[4]="""","""",CONCATENATE(RC[5],"" "",RC[4]))"
End If
End Sub
[COLOR="DarkSlateGray"][B] Cells(oCel.Row, 5).ClearContents
[/B][/COLOR]
[COLOR="DarkSlateGray"][B] Cells(oCel.Row, 5).Value = ""
[/B][/COLOR]