Now i use this in my first combobex
Dim rng3 As Range
Sheets("Ark1").Select
Set rng3 = Range(Range("Ark1!" & s1), Range("ark1!" & s1))
For Each c In rng3
combo_timer.AddItem c.Value
its working

s1 = $b$1:$b$22 or $b1:$b21 -- can bee many value just you can see

so the vlaue in combo_timer are from the range in S1

Now i just have to know where the real address are when i choose
a value.

regards
alvin


"Toppers" wrote:

Hi
Somthing like this should work ....

Private Sub combo_Timer_Change()
' Assume first item in this combobox(.list) is from row 2 in column B
'the ....
row=combo_timer.listindex+2
set ws1.worksheets("Sheet1") ' <== change as required
myValue=ws1.cells(row,"c") ' Value from column C
End Sub


HTH

"alvin Kuiper" wrote:

Hi

I use this to get some value in 2 comboboxe:
FIRST:
Private Sub combo_sedatoer_DropButtonClick()
Dim i As Long
Dim iStart As Long
Dim iEnd As Long
Dim dtePrev As Date
Dim iArray As Long
Dim ary
dtePrev = 0: iArray = 1
ReDim ary(1 To 2, 1 To 1)
With Worksheets("Ark1")
Me.combo_sedatoer.Clear
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(i, "A").Value < dtePrev Then
If i < 1 Then
ReDim Preserve ary(1 To 2, 1 To iArray)
ary(1, iArray) = dtePrev
ary(2, iArray) = Range("A" & iStart & ":A" & iEnd).Address
iArray = iArray + 1
End If
iStart = i
iEnd = i
dtePrev = .Cells(i, "A").Value
Else
iEnd = i
End If
Next i
ReDim Preserve ary(1 To 2, 1 To iArray)
ary(1, iArray) = dtePrev
ary(2, iArray) = Range("A" & iStart & ":A" & iEnd).Address
Me.combo_sedatoer.List = Application.Transpose(ary)
End With
End Sub
Private Sub combo_sedatoer_Click()
Dim hvorb As String
Dim s1 As String

hvorb = Me.combo_sedatoer.List(Me.combo_sedatoer.ListIndex , 1)
s1 = Replace(hvorb, "A", "B")

Dim rng3 As Range
Sheets("Ark1").Select
Set rng3 = Range(Range("Ark1!" & s1), Range("ark1!" & s1))
Me.combo_timer.List = rng3.Value
End Sub

What i need i to see the cell value there are in a cell right to the address
from
value i choose in Me.combo_timer.

Like all value in Me.combo_timer.list comes from collumn B and when i selct
a calue in Me.combo_timer then i want to get the value from collumn C from
the same row as selcted in Me.combo_timer
I have try with lisindex but dosn't work

regards
alvin