Combobox

[SPLUCENA]

Hi,

My combobox source list is in column A1 of sheet2, on column B1 are other datas directly related to to A1. Is it possible to write a code that if I choose item 1 on column A1, the corresponding data on B1 will copied and pasted to range D10 of sheet1?

Range("B5").Value = ComboBox1.Value

somethinl like if RANGE("B5")=COMBOBOX1.VALUE THEN
RANGE("D10")=........... I CAN'T FIGURE OUT HOW TO WRITE THE CODE.

thanks,

splucena

 

[onlyadrafter]

Hello,

is this it?

With Sheets("Sheet1")
        .Range("b5").Value = ComboBox1.Value
        .Range("B10").Value = Sheets("Sheet2").Range("A1").Offset(ComboBox1.ListIndex, 1)
    End With

 

[SPLUCENA]

Hi Onlyadrafter,

Still I cannot copy the adjacent cell value with your code.
Thanks anyhow.


splucena