Excel - Macro,Validación de datos con lista dependiente

 
Vista:

Macro,Validación de datos con lista dependiente

Publicado por Maria Ochoa (2 intervenciones) el 17/08/2016 22:21:57
Hola

Tengo una archivo en excel con la siguiente información

En la hoja Plantilla tengo estas varias columnas entre las cuales tengo

Columna P "PAIS"

Columna Q "DEPARTAMENTOS"

Columna O "MUNICIPIOS"

En la hoja Bancos y Departamentos tengo todos los datos que se utilizan en la hoja plantilla

La cual tiene las siguientes columnas entre otras

G "Cód departamento" y H con "nombre del departamento" de todos los PAÍSES

El la plantilla se debe seleccionar el País de una lista de nombres al hacerlo se va reflejar el código ej:

Si elijó Alemania y me escribe DE (para esto tiene un macro que trae los códigos), hasta ahí todo bien pero al intentar ya seleccionar un departamento perteneciente a Alemania me trae los departamentos de todos los países y yo necesitaría que se filtre y solo me muestre los departamentos del país que se escoja y que además me ponga solo el código de departamento, la parte de los municipios solo esta habilitada para COLOMBIA.

Aquí pongo el Macro, aclaro que este macro se usa para varias columnas de la Hoja plantilla que me deben reflejar el código.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    '
    Application.EnableEvents = False
    If Intersect(Target, Range("Z1:Z5000")) Is Nothing Then
        Target = UCase(Target)
    Else
        Target = LCase(Target)
    End If
    '
    cols = Array("D", "P", "Q", "AD", "AE", "AJ", "AM", "AW")
    noms = Array("GRUPOCUENTA", "PAISES", "DEPARTAMENTOS", "TIPOSAP", _
                 "CLASEIMPUESTO", "BANCOS", "CLASECUENTA", "GRUPOTESORERIA")
    For i = LBound(cols) To UBound(cols)
        If Not Intersect(Target, Columns(cols(i))) Is Nothing Then
            Call PonerCodigo(Target, noms(i))
            Exit For
        End If



dejo el link con archivo, Muchas gracias

https://drive.google.com/a/udea.edu.co/file/d/0B741w4yf9ULoTnlvc0hWcVFFdWc/view?usp=sharing
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder