Buenos días amigo: Hace tiempo que ando tras la solucion de un problema que va relacionado con un EVENTOCALCULATE, 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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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
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.