Trasladar los datos de un combobox a celdas de una hoja excel

[emiliocalle]

Hola amigos, tengo varios un combobox en un formulario dentro de excel, en un caso tengo cargado mediante el siguiente codigo:

Sub UserForm_Initialize()Plan_inver.List = Array("FERUM", "PLANREP", "PMD", "FRYPMA")

Arrastre.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011")

Prog_ant.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011")

Prioridad.List = Array("1 ALTA", "2 MEDIA", "3 BAJA", "REQUERIDO")

End Sub

en el otro caso estoy cargando los valores mediante la utilidad RowSource.

El inconveniente que tengo es que cuando envío los valores seleccionados en el combobox, no funciona y se carga siempre el primer valor.

Por favor si me podrían ayudar a solucionar, el codigo que estoy usando es:

Private Sub CommandButton8_Click()

Dim Datume, Zone, List_parr As String

Range("B3").Value = Nom_proy.Text

Range("C3").Value = Plan_inver.List

Range("D3").Value = Arrastre.List

Range("E3").Value = Prog_ant.List

Range("F3").Value = Prioridad.List

Range("G3").Value = Provincia.List

Range("H3").Value = Canton.RowSource

List_parr = Parroquias.RowSource

Range("I3").Value = List_parr

Range("J3").Value = Coord_x.Text

Range("K3").Value = Coord_y.Text

Datume = Datum1.RowSource

Range("L3").Value = Datume

Zone = Zona1.RowSource

Range("M3").Value = Zone

End Sub

[Antoni]

Sin archivo no habrá respuesta. Leete las normas del foro.