Abrir documento Word desde Excel según datos de combobox

Tu quieres seleccionar el documento desde el ComboBox. El ComboBox se carga con la lista que esta en la hoja en la columna I (y por cierto la manera en que estas cargando el combobox no es la ideal. Do While...Loop?)

Si lo que hay en la columna J es la ruta correcta, fija y exacta a cada uno de los archivos, entonces podrías cargar el combobox con su propiedad RowSource. Cargar ambas columnas pero solo mostrar la primera, y usar la segunda como el BoundColumn.

La idea luce así:

El cuadro rojo representa el RowSource = "I2:J4"

El cuadro verde seria la columna de texto, lo que ve el usuario en el combobox, y su valor se extrae con Me. ComboBox1.Text

El cuadro azul seria el BoundColum que no tiene por que verse, pero está presente y se extrae con Me. ComboBox1.Value

De esta manera, la ruta queda almacenada en el BoundColumn del combobox, que lo sacas con el .Value

He notado que mucha gente no usa esta propiedad, o no la conocen, es muy útil. Yo la uso muchísimo.

Si no entendiste nada, no importa, me dices y te lo hago y te lo vuelvo a explicar.

Andy M.

Hola Andy primero que nada muchas gracias por tu respuesta, tienes razón es una propiedad poco usada en lo personal nunca he alimentado un combobox con ella y el proceso para abrir libros siempre me ha sido muy complicado son de esas cosas que no entran ni abriendo el portón jejejeje.

Fueras tan amable de explicar con más detalle como emplear la propiedad y después como llamar la ruta para abrirlo o si deseas pasarme un ejemplo para poder entenderlo.

Nuevamente te agradezco tu atención

Disculpa me quede dormido después de responderte jaja

Cuando cargas un ComboBox lo puedes cargar con mas de una columna a la vez, de todas esas columnas, puedes asignar una como el texto que muestra visualmente al usuario, y otra con el valor real detrás de escena, y ahí es donde entra el BoundColumn.

En tu caso quedaría así (Tu lo habías hecho en el evento Activate del UserForm, yo prefiero usar el Initialize para este tipo de cosas). Iré linea por linea explicando:

Private Sub UserForm_Initialize()
End Sub

Primero vamos a definir la hoja, por si acaso luego en el futuro agregas mas hojas, poder usar esta función desde cualquiera de ellas sin tener que activarla. Lo haríamos así:

Dim bbdd As Worksheet: Set bbdd = Sheets("bbdd")

Luego, también vamos a definir cual es la ultima fila en ese rango que usaremos para cargar el ComboBox, de esa forma si en el futuro agregas mas archivos a la lista (o quitas) el rango se hace dinámico y crece o se reduce a la par de la lista, así (uF significaría "Ultima Fila"):

Dim uF As Integer
uF = bbdd.Range("I" & Rows.Count).End(xlUp).Row

ya luego solo quedaría cargar el combobox, así:

With Me.ComboBox1
    .ColumnCount = 1
    .RowSource = bbdd.Name & "!I2:J" & uF
    .BoundColumn = 2
End With

Te explico que es cada cosa. Se usa With...End With para agregar varias propiedades al mismo control al mismo tiempo, sin tener que escribir Me.ComboBox1.NombreDePropiedad cada vez

. ColumnCount =1 Aquí le estamos diciendo, no importa cuantas columnas te agreguemos, tu solo muestra 1 (la primera en el rango, en este caso "I")

.RowSource = bbdd. Name & "!I2:J" & uF RowSource, en español seria "Filas Origen" o algo así, es una propiedad del ComboBox para agregar un rango de una vez, a diferencia de .AddItem que agrega un Item uno por uno, con RowSource agregas todo el rango de una. Y funciona así: NombreDeHoja!Rango. Pero esto puede ser dinámico y traerlo con variables como hemos hecho. Bbdd. Name (Nombre de la hoja) ! Desde I2:J <- hasta uF (la ultima fila)

. BoundColumn = 2 te hemos agregado 2 columnas (I & J) de ellas, quiero que el valor real sea lo que esta en la 2da (J)

Así que, si yo en cualquier parte de mi programa digo ComboBox1.Text me va a devolver el texto real que veo con mis ojos (la columna 1, I)

Pero si en cualquier momento digo ComboBox1.Value me va a devolver el valor detrás de escena que es lo que hay en la columna 2 (J)

Por ende, en tu Botón de Abrir, puedes llamar a la ruta con ComboBox1.Value y abrir tu documento Word a partir de ahí.

Y si yo entendí mal y esto no era lo que tu preguntaste.

No cupo todo, te decía que al menos espero que hayas aprendido algo nuevo