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.]

PoteoRoke


Saludos!!!

Tengo un libro; con dos hojas, en la hoja ElijeEquipo hay tres listas desplegables dependientes en las que puedo elegir un Equipo en concreto; Categoría (e4)/Competición (e6)/Equipo (e8). Y en la segunda hoja ListasDependiente, esta todo lo referente a las listas desplegables.

Por otra parte he escrito un código VBA; porque después de hacer una selección de Categoría (e4) – Competición (e6) – Equipo (e8); al volver a hacer una nueva selección de Categoría (e4) las listas/celdas muestran la Competición (e6) y el Equipo (e8) anterior seleccionado. Y con este código se “limpian” las listas/celdas Competición/Equipo (e6/e8).

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("e4") Then
Range("e6").Value = ""
Range("e8").Value = ""
End If
End Sub

Si yo limpio/borro la lista/celda Categoria(e4) (porque deseo dejar todas las listas limpias) entra en un bucle cerrado y no me queda más remedio de cerrar la aplicación excel.

Es posible, teniendo el código anterior, hacer que sea opción sea posible; es decir; dejar las tres listas/celdas limpias???

Mil GRACIAS anticipadas
Archivos
Equipo.zip
No tienes los permisos para descargar los archivos.
(17 KB)

servando


Buen día para tod@s.

Prueba con lo siguente:

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$E$4" Then
    Range("e6").Value = ""
    Range("e8").Value = ""
End If

If Target.Address = "$E$6" Then
    Range("e8").Value = ""
End If
 
End Sub

Creo que te funcinará o por lo menos en mi PC va.

Un saludo desde Vitoria, Servando

PoteoRoke


Saludos !!!

Acabo de llegar de ver al Athletic ... y creo que si FUNCIONA !!!

Mil GRACIAS por vuestro tiempo ...

Nota: Me tengo que levnatar pronto (4:30 a.m. y mañana os lo confirmo, pero lo doy como resuelto)

PoteoRoke


Saludos !!!

Confirmado me resuelve mi peticion ....

Gracias de nuevo a todos

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.