Tengo el siguiente combobox como se señala con el numero 1, en la figura 1
El código de procedencia de ese combobox es el siguiente:
Private Sub Workbook_Open()
Dim FILA, FINAL, I As Long
Dim LISTA As String
FILA = Hoja1.Range("R" & Rows.Count).End(xlUp).Row + 1
FINAL = FILA - 1
For I = 2 To FINAL
LISTA = Hoja1.Cells(I, 18)
Hoja1.Cbo.AddItem (LISTA)
Next I
‘Teniendo en cuenta que Cbo es el combobox
End Sub
El anterior código me permite cargar con datos el combobox (Cbo) Como vemos en la Figura 2:
Lo que se necesita es que al seleccionar un país del combobox me muestre los datos en las siguientes celdas, como se ve señalado con el numero 1, en la figura 3:
Pero desafortunadamente no me lo cambia, me muestra el siguiente error cuando el nombre de un país es de una sola palabra, como cuando selecciono Surinam ver la Figura 4:
Y cuando selecciono nombre nombre de país compuesto, como por ejemplo “Trinidad y Tobago”, me aparece el siguiente error:
El código que tengo es el siguiente:
Private Sub Cbo_Change()
Call conexion 'Llamamos el módulo Conexión
If varcon.State = 1 Then
'Generamos un comando, definiendo la variable command
Dim command3 As New ADODB.command
command3.ActiveConnection = varcon
MsgBox Me.Cbo.Value
command3.CommandText = "select * from infopaises where Pais= " & Me.Cbo.Value
command3.CommandType = adCmdText
command3.Execute
Dim cr3 As ADODB.Recordset
Set cr3 = command3.Execute
If cr3.EOF = False Then
Do While Not cr3.EOF
Dim col As Integer
col = 10
Hoja1.Cells(5, col) = cr3("IdPais")
Hoja1.Cells(6, col) = cr3("Pais")
Hoja1.Cells(7, col) = cr3("Extensión")
Hoja1.Cells(8, col) = cr3("Habitantes")
cr3.MoveNext
Loop
Else
MsgBox "El conjunto de registros esta vacio"
varcon.Close 'OJOOO Si cerramos esta variable nos va amostrar error
Set varcon = Nothing 'OJOOO Si cerramos esta variable nos va amostrar error
End If
End If
End Sub
Muchas gracias por la ayuda que me puedan brindar