| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range in a row
Hi
here is what i use in a combobox Dim rng As Range Set rng = Range(Range("a1"), Range("a1").End(xlDown)) Me.navne.List = rng.Value This working How can i use this to take the range in row 1 not down. Alvin |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range in a row
There's a reply at your other post.
alvin Kuiper wrote: Hi here is what i use in a combobox Dim rng As Range Set rng = Range(Range("a1"), Range("a1").End(xlDown)) Me.navne.List = rng.Value This working How can i use this to take the range in row 1 not down. Alvin -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range in a row
thanks
but not the same I try to use Set rng = Range(Range("a1"), Range("a1").End(xlToRight)) but get only one value off course i can use Set rng = Range(Range("a1"), Range("a255").End(xlToRight)) But then i get also the empty cells Alvin "Dave Peterson" wrote: There's a reply at your other post. alvin Kuiper wrote: Hi here is what i use in a combobox Dim rng As Range Set rng = Range(Range("a1"), Range("a1").End(xlDown)) Me.navne.List = rng.Value This working How can i use this to take the range in row 1 not down. Alvin -- Dave Peterson |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range in a row
Set rng = Range(Cells(1, 1), Cells(1, Cells(1,
Columns.Count).End(xlToLeft).Column)) "alvin Kuiper" wrote: thanks but not the same I try to use Set rng = Range(Range("a1"), Range("a1").End(xlToRight)) but get only one value off course i can use Set rng = Range(Range("a1"), Range("a255").End(xlToRight)) But then i get also the empty cells Alvin "Dave Peterson" wrote: There's a reply at your other post. alvin Kuiper wrote: Hi here is what i use in a combobox Dim rng As Range Set rng = Range(Range("a1"), Range("a1").End(xlDown)) Me.navne.List = rng.Value This working How can i use this to take the range in row 1 not down. Alvin -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range in a row
Hi topper
MAybe i do it wrong? I have Dim rng As Range Set rng = Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)) Me.navne.List = rng.Value But i only get one value Alvin "Toppers" wrote: Set rng = Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)) "alvin Kuiper" wrote: thanks but not the same I try to use Set rng = Range(Range("a1"), Range("a1").End(xlToRight)) but get only one value off course i can use Set rng = Range(Range("a1"), Range("a255").End(xlToRight)) But then i get also the empty cells Alvin "Dave Peterson" wrote: There's a reply at your other post. alvin Kuiper wrote: Hi here is what i use in a combobox Dim rng As Range Set rng = Range(Range("a1"), Range("a1").End(xlDown)) Me.navne.List = rng.Value This working How can i use this to take the range in row 1 not down. Alvin -- Dave Peterson |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range in a row
Ok I use
Dim rng As Range Set rng = Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)) For Each a In rng navne.AddItem a.Text Next so every thing is allright thanks Alvin "Toppers" wrote: Set rng = Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)) "alvin Kuiper" wrote: thanks but not the same I try to use Set rng = Range(Range("a1"), Range("a1").End(xlToRight)) but get only one value off course i can use Set rng = Range(Range("a1"), Range("a255").End(xlToRight)) But then i get also the empty cells Alvin "Dave Peterson" wrote: There's a reply at your other post. alvin Kuiper wrote: Hi here is what i use in a combobox Dim rng As Range Set rng = Range(Range("a1"), Range("a1").End(xlDown)) Me.navne.List = rng.Value This working How can i use this to take the range in row 1 not down. Alvin -- Dave Peterson |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range in a row
There wouldn't be any difference with Dave's answer, so I guess your not
knowing how to loop through the results was/is the problem as well. Even Toppers approach could be reduced to Set rng = Range(Cells(1, 1), Cells(1, _ Columns.Count).End(xlToLeft)) -- Regards, Tom Ogilvy "alvin Kuiper" wrote in message ... Ok I use Dim rng As Range Set rng = Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)) For Each a In rng navne.AddItem a.Text Next so every thing is allright thanks Alvin "Toppers" wrote: Set rng = Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)) "alvin Kuiper" wrote: thanks but not the same I try to use Set rng = Range(Range("a1"), Range("a1").End(xlToRight)) but get only one value off course i can use Set rng = Range(Range("a1"), Range("a255").End(xlToRight)) But then i get also the empty cells Alvin "Dave Peterson" wrote: There's a reply at your other post. alvin Kuiper wrote: Hi here is what i use in a combobox Dim rng As Range Set rng = Range(Range("a1"), Range("a1").End(xlDown)) Me.navne.List = rng.Value This working How can i use this to take the range in row 1 not down. Alvin -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I enter formula sum(range+range)*0.15 sumif(range=3) | Excel Discussion (Misc queries) | |||
| Excel Addin:Setting the range to the Excel.Range object range prop | Excel Worksheet Functions | |||
| Range Question / error 1004: method Range of object Worksheet has failed | Excel Programming | |||
| Range.Find returns cell outside of range when range set to single cell | Excel Programming | |||
| how to? set my range= my UDF argument (range vs. value in range) [advanced?] | Excel Programming | |||
Linear Mode
