Si () macro1 macro2

Hola AnSalVal.
Te comento que la solucion anterior que me envio Juan funciono ok, ahora me
encontre con otros tipos de problemas pero voy a tratar de solucionarlos,
caso contrario recurrire al foro.

Con respecto a tu sugerencia la voy a probar para tenerla a mano para cuando
se me presente un caso similar.

Muchas Gracias.

Saludos desde Argentina, Entre Rios (Parana)


"AnSanVal" escribió:

Un poco tarde pero.ahi va:

(En el módulo de la hoja)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then
If Target = False Then falso Else verdadero
End If
End Sub

(en un módulo normal):
Sub falso()
[C5] = "Has escrito FALSO"
End Sub

Sub verdadero()
[C5] = "Has escrito VERDADERO"
End Sub

Saludos desde Tenerife (Islas Canarias).
************************************************