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 se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

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


Hola
Estoy tratando de crear un macro que me borre los de unas celdas la cuales esta vinculadas entre si, pero solo he logrado que me funcione en la primera primera linea y no en toda la columna, es decir tengo una tabla en excel con los datos de varias personas y se debe elegir el País (P),  ya al hacer esta selección me sale un listados de todos los Departamento (Q) pertenecen a ese País y finamente me arroja un listado con los Municipio(O) que pertenecen a ese departamento.
El Municipio depende de la elección del Departamento y este de la elección del País. 
Con la macro que tengo solo logro  que borre los datos de la celda Q2 y O2 al seleccionar el país en la celda P2 o que borre los datos de la O2 si solo cambio el dato de la celda Q2 y necesito que me funcione en toda la columna Q y O para cada persona en el listado.
Pongo el macro que tengo, gracias

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = Range("P2") Then
    Range("Q2").Value = ""
    Range("O2").Value = ""
End If
 
End Sub

tyno


Hola asrainocturna, bien venida al foro.
La macro que hiciste borra lo que le has indicado. De mi parte no entiendo bien si lo que quieres es que te borre toda una columna completa o solo los datos que tienen relacion con el pais, o municipio que has seleccionado. Sube un archivo de ejemplo para ver que es lo que necesitas y lo explicas en el  mismo.
Saludos

asrainocturna


Hola

Gracias por tu interés, pues bueno la idea es que el borre los datos de la celdas que dependa de ellas es decir si sobrescribo los datos y cambio el País que ya esta elegido me borre los datos de la celda departamento y de la celda municipio, ya encontré la solución y la dejo aquí por si en algún momento alguien mas la necesita. 

Muchas gracias.

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) = "$P$" Then
Range("Q" & Target.Row) = ""
Range("O" & Target.Row) = ""
ElseIf _
Left(Target.Address, 3) = "$Q$" Then
Range("O" & Target.Row) = ""
End If
Next
Application.EnableEvents = True
End Sub

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.