Evento Calculate con 2 acciones

[DamianDiem]

Buenos días amigo: Hace tiempo que ando tras la solucion de un problema que va relacionado con un EVENTO CALCULATE, lo que quiero hacer es dentro de un mismo evento trabajen por separado dos acciones. el codigo es el siguiente

Private Sub Worksheet_Calculate()


Static MiValor As Double
If MiValor = 1 Then MiValor = [L8]
If MiValor = [L8] Then Exit Sub
MsgBox "Esta OP. ya fue leida anteriormente, intentelo nuevamente!"
MiValor = [L8]
[E9].Select
Selection.End(xlDown).Select
Selection.ClearContents


'Static MiValor2 As Double
'If MiValor2 = 1 Then MiValor2 = [L9]
'If MiValor2 = [L9] Then Exit Sub
'MsgBox "Esta OP. no pertenece a la zona q usted hace referencia, intentelo nuevamente!"
'MiValor2 = [L9]
'[E9].Select
'Selection.End(xlDown).Select
'Selection.ClearContents

End Sub
[/HTML]

Lo que necesito es que cuando la celda L8 tome el valor 1 se ejecute la primera accion, y cuando L9 tome el valor 1 se ejecute la segunda accion.

Como dato importante, cabe destacar que estos dos valores nunca pueden ser iguales, es decir nunca L8 y L9 pueden ser 1 al mismo tiempo.

Desde ya muchas gracias por su ayuda.

[Pinta]

Buenas. No entiendo muy bien como toma el valor las celdas. Pero prueba con un if y un else if

if [L8]= 1 then
 ' tu código
elseif [L9]= 1 then
 ' tu código
end if

Saludos.