Código Excel

08/08/2004 - 20:03 por Nestor Valle | Informe spam
Necesito una respuesta para lo siguiente:
Cuándo una celda contenga un número negativo, que
automáticamente abra un archivo de word...Gracias...

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
10/08/2004 - 07:41 | Informe spam
hola, Nestor !

Cuando una celda contenga un numero negativo, que automaticamente abra un archivo de word...



copia [alg]una de las siguientes propuestas, en el modulo de codigo de 'la hoja'
=> 'click-derecho' sobre la pestaña de su nombre -> ver codigo... < [segun sea 'la forma' en que [la celda] 'cambia' su contenido]
=> si el documento [y ms-word] NO estan 'abiertos'... los 'llama' :))
[en caso contrario... solo va 'switcheando' segun se requiera] ;)
=> estoy suponiendo que 'la celda' es 'A1' [y... 'ajusta' la ruta y el nombre 'del documento']

saludos,
hector.
-
1.- si el cambio 'sucede' por accion 'directa' [entrada por el usuario]...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target < 0 Then
With GetObject("ruta\directorios yombre del documento.doc")
.Application.Visible = True: .Application.Activate
End With
End If
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
2.- si el cambio 'sucede' por accion 'indirecta' [formula o 'toma' datos de 'otra' parte]...
Private Sub Worksheet_Calculate()
If Me.[a1] >= 0 Then Exit Sub
With GetObject("ruta\directorios yombre del documento.doc")
.Application.Visible = True: .Application.Activate
End With
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida