Hi Luka,
maybe so
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B7:I34")) Is Nothing Then Exit Sub
Cancel = True
With Me.ComboBox1
.Visible = True
.Left = Target.Left
.Top = Target.Top
End With
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex < 0 Then Exit Sub
With Me.ComboBox1.TopLeftCell
.Offset(1, 0).Value = Left(ComboBox1.Value, 5)
.Offset(1, 1).Value = Right(ComboBox1.Value, 5)
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ComboBox1.Visible = False
End Sub
Bookmarks