Combining 2 combobox value together but do not repeat twice if value is the same

Originally Posted by mehmetcik

With ws
'  .Unprotect Password:="password"

For count = 1 to 4
if Me.controls("ComboBox" & Count).Value = Me.controls("ComboBox" & Count +1).Value then
 .Cells(iRow, Count +1).Value =Me.controls("ComboBox" & Count).Value
Else
 .Cells(iRow, Count +1).Value = Me.controls("ComboBox" & Count).Value & " " & Me.controls("ComboBox" & Count +1).Value
End If
Next

'  .Protect Password:="password"
End With

Hello Mehmetcik,

Thank you for your help and time. It is working but I had to modify part of the code to show +4 instead of +1 (FYI, see correction in red below). Thank you so much for your quick response and help, greatly appreciated! I will mark as solved.

With ws
'  .Unprotect Password:="password"
For Count = 1 To 4
If Me.Controls("ComboBox" & Count).Value = Me.Controls("ComboBox" & Count + 4).Value Then
 .Cells(iRow, Count + 1).Value = Me.Controls("ComboBox" & Count).Value
Else
 .Cells(iRow, Count + 1).Value = Me.Controls("ComboBox" & Count).Value & " " & Me.Controls("ComboBox" & Count + 4).Value
End If
Next

'  .Protect Password:="password"