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

salgari


Hola tengo metido el código que adjunto . Mi problema es que se ejecuta todo seguido y quiero que se pare en call listadesplegable y reiniciar yo cuando modificó c14. Alguna idea

private Sub Worksheet_Change(ByVal Target As Range)



'Preguntamos si el cambio se produjo en B7
'Si es distinto de A1 que salga de la macro

If Target.Address <> "$B$7" Then Exit Sub

'Si el Cambio se produjo en B7
'Ejecutamos la Macro Listadesplegable

Call Listadesplegable


A PARTIR DE AQUI TIENE QUE SER INDEPENDIENTE


If Target.Address <> "$C$14" Then
Range("c15").Value = ""
Range("d15").Value = ""
End If



End Sub

(ByVal Target As Range)



'Preguntamos si el cambio se produjo en B7
'Si es distinto de A1 que salga de la macro

If Target.Address <> "$B$7" Then Exit Sub

'Si el Cambio se produjo en B7
'Ejecutamos la Macro Listadesplegable

Call Listadesplegable


A PARTIR DE AQUI TIENE QUE SER INDEPENDIENTE


If Target.Address <> "$C$14" Then
Range("c15").Value = ""
Range("d15").Value = ""
End If



End Sub

(ByVal Target As Range)



'Preguntamos si el cambio se produjo en B7
'Si es distinto de A1 que salga de la macro

If Target.Address <> "$B$7" Then Exit Sub

'Si el Cambio se produjo en B7
'Ejecutamos la Macro Listadesplegable

Call Listadesplegable


A PARTIR DE AQUI TIENE QUE SER INDEPENDIENTE


If Target.Address <> "$C$14" Then
Range("c15").Value = ""
Range("d15").Value = ""
End If



End Sub

salgari


Perdón lo he repetido sin querer

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.