Macro y función si
Estimado:
He visto en una respuesta anterior como usar función si en una macro; ahora mi pregunta es si se pudiese comparar una celda con otra en una hoja distinta: tengo un numero por en hoja1 y en F12 y necesito que al imprimir cambie en +1 si la celda en hoja2 F12 es mayor, pero si es menor, entonces que agregue en hoja1 F12 +1; hasta el momento la tengo así:
Sub ImprimoHoja()
ActiveSheet.Unprotect "xxxx"
Dim Mensaje, Resp
Dim TOTAL As Double
TOTAL = WorksheetFunction.Sum(Range("E53:E54"))
Mensaje = "El total es " & Format(TOTAL, "####")
Mensaje = Mensaje & " ¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
If Resp = 7 Then
Cancel = True
ActiveSheet.Protect Password:="xxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
[E55].Formula = "=+SUM(E53:E54)"
[F12] = [F12] + 1
ActiveSheet.Protect "xxxx"
Application.ActivePrinter = "Bullzip PDF Printer en Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Entonces lo que necesito cambiar es lo que esta en negrita, para que compare si F12 en hoja 2 es mayor entonces +1, de lo contrario que quede F12+1 (EN HOJA1)
Espero darme a entender, y gracias de antemano, atentamente. Benja
He visto en una respuesta anterior como usar función si en una macro; ahora mi pregunta es si se pudiese comparar una celda con otra en una hoja distinta: tengo un numero por en hoja1 y en F12 y necesito que al imprimir cambie en +1 si la celda en hoja2 F12 es mayor, pero si es menor, entonces que agregue en hoja1 F12 +1; hasta el momento la tengo así:
Sub ImprimoHoja()
ActiveSheet.Unprotect "xxxx"
Dim Mensaje, Resp
Dim TOTAL As Double
TOTAL = WorksheetFunction.Sum(Range("E53:E54"))
Mensaje = "El total es " & Format(TOTAL, "####")
Mensaje = Mensaje & " ¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
If Resp = 7 Then
Cancel = True
ActiveSheet.Protect Password:="xxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
[E55].Formula = "=+SUM(E53:E54)"
[F12] = [F12] + 1
ActiveSheet.Protect "xxxx"
Application.ActivePrinter = "Bullzip PDF Printer en Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Entonces lo que necesito cambiar es lo que esta en negrita, para que compare si F12 en hoja 2 es mayor entonces +1, de lo contrario que quede F12+1 (EN HOJA1)
Espero darme a entender, y gracias de antemano, atentamente. Benja
1 Respuesta
Respuesta de smartito
1