Buen dia foreros necesito que una lista hecha desde datos->validacion de datos, me carga valores de una base de datos, me refiero a lo siguiente, por ejemplo tengo la lista de estados y dependiendo de lo que seleccione me cargue sus respectivos municipios en otra celda, alguien puede ayudarme por favor, no se como hacerle y ya googlee y nada, :s gracias de antemano
Código:
Private Function Conectar() As Boolean
On Error GoTo Ver
Set Conn = New ADODB.Connection
Conn.ConnectionString = "driver={MySQL ODBC 5.2 ANSI Driver};" & _
"Server=192.168.1.72;" & _
"Port=3306;" & _
"Database=sidsao;" & _
"User=root;" & _
"Password=220785;" & _
"Option=3;"
Conn.Open
Conectar = True
Exit Function
Ver:
Err.Clear
Conectar = False
End Function
Código:
Public Function Estados()
On Error GoTo NoEncontrado
Dim clave, nombre As String
Dim query As String
If (Conectar) Then
query = "SELECT ID_ACTIVO,NOMBRE FROM activo"
Set Rs = New ADODB.Recordset
Rs.Open query, Conn, adOpenStatic, adLockOptimistic
Row = 1 'primera celda
Do While Not Rs.EOF
Hoja2.Cells(Row, 1).Value = Rs("ID_ACTIVO")
Hoja2.Cells(Row, 2).Value = Rs("NOMBRE")
Row = Row + 1
Rs.MoveNext
Loop
Rs.Close
Else
MsgBox "Error de conexion"
End If
NoEncontrado:
Contrato = "Valores No Encontrados"
End Function
No se si este tema va aquí pero tiene relación con excel