Estoy utilizando una macro que encontre aqui para presionar un boton e incrementar (m) el valor de un numero (ubicado en "I") y otro boton para bajarlo (ubicados en 0 , mi pregunta es como puedo hacer para que si el valor de la celda supera el "3" vuelva a 1, espero que me hayan podido entender. Nos se programar en visual pero estoy buscando algo similar a "If value >3; 1 " . Muchas gracias
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If IsEmpty(Range("I" & ActiveCell.Row).Value) Then GoTo Linea1
If Not Intersect(Target, Range("M" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Value = Range("I" & ActiveCell.Row).Value + 1
If Not Intersect(Target, Range("O" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Value = Range("I" & ActiveCell.Row).Value - 1
Linea1:
Application.SendKeys ("{ESC}")
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes;
Estoy utilizando una macro que encontre aqui para presionar un boton e incrementar (m) el valor de un numero (ubicado en "I") y otro boton para bajarlo (ubicados en 0 , mi pregunta es como puedo hacer para que si el valor de la celda supera el "3" vuelva a 1, espero que me hayan podido entender. Nos se programar en visual pero estoy buscando algo similar a "If value >3; 1 " . Muchas gracias
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If IsEmpty(Range("I" & ActiveCell.Row).Value) Then GoTo Linea1 If Not Intersect(Target, Range("M" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Value = Range("I" & ActiveCell.Row).Value + 1 If Not Intersect(Target, Range("O" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Value = Range("I" & ActiveCell.Row).Value - 1 Linea1: Application.SendKeys ("{ESC}") End Sub