D
DPZ_Online
Here is the Create Name code:
ActiveWorkbook.Names.Add Name:=Sheets("Settings").Range("B1").Value,
RefersTo:=Range(Sheets("Settings").Range("B2"),
Sheets("Inställningar").Range("B65536").End(xlUp))
Where the cell B1 contains the name "type".
This means that i got a named range called type containing the cells B2
to the end of the column that have text. this works perfectly... now
the question.
I want to replace this: (this is the question)
UF.combTYP.List = Range(Sheets("Inställningar").Range("B2"),
Sheets("Inställningar").Range("B65536").End(xlUp)).Value
with this
UF.combTYP.List = Range("type")
or this
UF.combTYP.List = Range("type").value
or this
ActiveWorkbook.Names("Typ").Value
or this
ActiveWorkbook.Names("Typ").RefersToRange
But nothing works...
Please help
UF = User form
combTYP = the combobox
ActiveWorkbook.Names.Add Name:=Sheets("Settings").Range("B1").Value,
RefersTo:=Range(Sheets("Settings").Range("B2"),
Sheets("Inställningar").Range("B65536").End(xlUp))
Where the cell B1 contains the name "type".
This means that i got a named range called type containing the cells B2
to the end of the column that have text. this works perfectly... now
the question.
I want to replace this: (this is the question)
UF.combTYP.List = Range(Sheets("Inställningar").Range("B2"),
Sheets("Inställningar").Range("B65536").End(xlUp)).Value
with this
UF.combTYP.List = Range("type")
or this
UF.combTYP.List = Range("type").value
or this
ActiveWorkbook.Names("Typ").Value
or this
ActiveWorkbook.Names("Typ").RefersToRange
But nothing works...
Please help
UF = User form
combTYP = the combobox