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

maria.lizca


Hola

Tengo una lista desplegable dependiente con el siguiente codigo para limpiar la lista cuando cambio su contenido:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("A2") Then
    Range("B2").Value = ""
End If

End Sub

Funciona perfecto, pero no he podido ajustarla para que funcione n vecez ya que esta lista se repite verticalmente n vecez.

Por favor me podrias ayudar chicos?

Gracias
Archivos
LDD.xlsm
No tienes los permisos para descargar los archivos.
(17 KB)

rosendo2


Hola maria.lizca, me parece que le falta información a tu pregunta, de acuerdo a lo que pude entender te dejo este código a ver si es lo que requieres.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = [A2] Then
    [B2,B3,B4,B5,B6].Value = ""
End If

End Sub


Saludos 
Rosendo2
Archivos
LDD.xlsm
No tienes los permisos para descargar los archivos.
(17 KB)

maria.lizca


Hola Rosendo

Gracias por tu gentiliza, pero no es lo que busco.

Tratare de hacerme entender, soy malita para explicar.

Adjunto nuevamente el archivo puesto que ya pude darle solucion, ahora el problema es que se me queda en un ciclo y me muestra error excel, cuando borro los datos que estan en la lista A.




Espero me puedan colaborar. saludos y besitos
Archivos
LDD Rev1.xlsm
No tienes los permisos para descargar los archivos.
(17 KB)



Última edición por maria.lizca el 09/01/16, 12:37 am, editado 2 veces

maria.lizca


Adjunto la imagen del error que me arroja, el cual no se como darle solucion.

Igtelo


Hola María / Rosendo.

Prueba con esto, espero se solucione.

Private Sub Worksheet_Change(ByVal Target As Range)

a = ActiveCell.Row
If Target = "" Then Exit Sub
If Target = Range("G" & a) Then
    Range("H" & a).Value = ""
End If

End Sub

Saludos
Ignacio Téllez

Igtelo


Se da por 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.