problema con Exit Sub

una ayudita porfa...

Tengo este pequeño código en un botón de la hoja L_PESOS

Private Sub IM_TK_Click()
Application.ScreenUpdating = False
Sheets("TK").Select
If Range("B10").Value = 0 Then Exit Sub

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("L_PESOS").Select
Application.ScreenUpdating = True
End Sub

Y al ejecutarlo me imprime la hoja aunque el valor de B10 sea cero

Y lo más curioso es que probando en la ventana de inmediato:
?Range("B10").Value respuesta: 0
If Range("B10").Value = 0 Then Debug,Print "el valor de B10 es cero"
Respuesta: el valor de B10 es cero

Por lo que deduzco que "Exit Sub" no funciona.

Y aquí la pregunta, ¿por qué podría ser?.

Saludos.

Tengo este pequeno codigo en un boton de la hoja L_PESOS
Private Sub IM_TK_Click()
Application.ScreenUpdating = False
Sheets("TK").Select
If Range("B10").Value = 0 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("L_PESOS").Select
Application.ScreenUpdating = True
End Sub
Y al ejecutarlo me imprime la hoja aunque el valor de B10 sea cero
Y lo más curioso es que probando en la ventana de inmediato:
?Range("B10").Value respuesta: 0
If Range("B10").Value = 0 Then Debug,Print "el valor de B10 es cero"
Respuesta: el valor de B10 es cero
Por lo que deduzco que "Exit Sub" no funciona.
Y aquí la pregunta, por que podria ser?.

una ayudita porfa...

Tengo este pequeño código en un botón de la hoja L_PESOS

Private Sub IM_TK_Click()
Application.ScreenUpdating = False
Sheets("TK").Select
If Range("B10").Value = 0 Then Exit Sub

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("L_PESOS").Select
Application.ScreenUpdating = True
End Sub

Y al ejecutarlo me imprime la hoja aunque el valor de B10 sea cero

Y lo más curioso es que probando en la ventana de inmediato:
?Range("B10").Value respuesta: 0
If Range("B10").Value = 0 Then Debug,Print "el valor de B10 es cero"
Respuesta: el valor de B10 es cero

Por lo que deduzco que "Exit Sub" no funciona.

Y aquí la pregunta, ¿por qué podría ser?.

Saludos.

hola, Juan !

(solo por si acaso) asumiendo que el boton es de la barra de herramientas
"cuadro de controles" -?-
comprueba (o modifica) en la ventana de propiedades desde el editor de vba
(en tiempo de diseno)
en el modulo de codito de esa hoja, que ese boton NO tenga en True su
propiedad "TakeFocusOnClick"
(lo que estaria "impidiendo" que tu macro se traslade a la hoja "TK", por
lo que estaria comprobando B10 de su propia hoja)

saludos,
hector.

__ OP __
Mostrar la cita

Tengo este pequeno codigo en un boton de la hoja L_PESOS
Private Sub IM_TK_Click()
Application.ScreenUpdating = False
Sheets("TK").Select
If Range("B10").Value = 0 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("L_PESOS").Select
Application.ScreenUpdating = True
End Sub
Y al ejecutarlo me imprime la hoja aunque el valor de B10 sea cero
Y lo más curioso es que probando en la ventana de inmediato:
?Range("B10").Value respuesta: 0
If Range("B10").Value = 0 Then Debug,Print "el valor de B10 es cero"
Respuesta: el valor de B10 es cero
Por lo que deduzco que "Exit Sub" no funciona.
Y aquí la pregunta, por que podria ser?.