Good Day,

Code below works OK. The problem is that the Range has to be optional
from DG5 DH5 DI5 DJ5 etc. Following seems not to work;
Set MyRange = Range("DG5")
With Sheets("tele").MyRange.CurrentRegion.Columns(1)

Thanks for any hints.

Brgds

CG Rosén
----------------------------------------------------------------------
Dim c
With Sheets("tele").Range("DG5").CurrentRegion.Columns( 1)

Set c = .Find(ComboBox1.Text, LookIn:=xlValues)
If c Is Nothing Then
.Cells(.Rows.Count + 1).Value = ComboBox1.Text
.Cells(.Rows.Count + 1).Offset(0, 1).Value = TextBox3.Text
Else
c.Offset(0, 1).Value = c.Offset(0, 1).Value + TextBox3.Text
End If

End With

It would only work if Tele is the activesheet when you do Set MyRange =
Range("DG5")

sStr = "DG5"

with worksheets("Tele").Range(sStr).CurrentRegion.Colum ns(1)

It is unclear how the appropriate cell will be specified.

--
Regards,
Tom Ogilvy

"CG Rosén" wrote in message
...

Good Day,

Code below works OK. The problem is that the Range has to be optional
from DG5 DH5 DI5 DJ5 etc. Following seems not to work;
Set MyRange = Range("DG5")
With Sheets("tele").MyRange.CurrentRegion.Columns(1)

Thanks for any hints.

Brgds

CG Rosén
----------------------------------------------------------------------
Dim c
With Sheets("tele").Range("DG5").CurrentRegion.Columns( 1)

Set c = .Find(ComboBox1.Text, LookIn:=xlValues)
If c Is Nothing Then
.Cells(.Rows.Count + 1).Value = ComboBox1.Text
.Cells(.Rows.Count + 1).Offset(0, 1).Value = TextBox3.Text
Else
c.Offset(0, 1).Value = c.Offset(0, 1).Value + TextBox3.Text
End If

End With