UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

asrainocturna


Saludos!!!

Tengo un libro; con dos hojas, en la hoja Plantilla hay tres listas desplegables dependientes en 3 columnas en las que puedo elegir un PAÍS (Z) en concreto; DEPARTAMENTO (AA) y un MUNICIPIO (AB), en la segunda hoja esta todo lo referente a las listas desplegables.

La hoja Plantilla tiene código VBA;  que valida que el MUNICIPIO (AB) pertenezca al DEPARTAMENTO (AA) y este al  PAÍS (Z) es decir si tengo una elección echa en las 3 celdas y vuelvo hacer una nueva selección de PAÍS (Z4) el código me “limpia”las celdas DEPARTAMENTO (AA4) /MUNICIPIO (AB4), hasta ahí funciona perfecto pero si solo necesito cambiar la selección del DEPARTAMENTO (AA4), no me limpia la celda MUNICIPIO (AB4), no logro identificar que hace falta.

Private Sub Worksheet_Change(ByVal Rango As Range)
If Rango.Rows.Count = Rows.Count Or _
   Rango.Columns.Count = Columns.Count Then
   Exit Sub
End If
Application.EnableEvents = False
For Each Target In Rango
  If Left(Target.Address, 3) = "$Z$" Then
     Range("AA" & Target.Row) = ""
     Range("AB" & Target.Row) = ""
  ElseIf _
     Left(Target.Address, 3) = "$AA$" Then
     Range("AB" & Target.Row) = ""
  End If
Next
Application.EnableEvents = True
End Sub

adjunto link del archivo: https://drive.google.com/file/d/0B8OyJ_llzCGHTUN2RVVNbnF6MW8/view?usp=sharing

Muchas gracias

jhon1904

avatar
hola asrainocturna

pues creo que lo que esta mal es lo siguiente:

Código:
  Left(Target.Address, 3) = "$AA$" 

si colocas 3, lo que haces es es seleccionar de izquierda a derecha 3 caracteres, entonces lo que esta comparando es $AA = $AA$, en este caso nuca sera igual, lo que debes hacer es que en vez del 3 coloque 4.

saludos, espero sea lo que buscabas


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Igtelo

avatar
Hola Jhon.

Gracias por tu tiempo y solución, resuelto y se cierra por abandono.

Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.