CommandButton: se cambia de ubicacion al ejecutar una macro de Impresion

Ademas, les comento que la hoja esta protegida ya que se utiliza solo para
listar articulos.

Este commandbutton se utiliza para mostrar un formulario, con el cual se
puede ejecutar el filtrado y la impresion.

El formulario al inicializarse desprotege la hoja para que se pueda ejecutar
la macro ya que si esta protegida el autofilter no funciona. Al cerrarse el
mismo se protege nuevamente la hoja.

Puedo ejecutar las macros de autofilter y cerrar y abrir nuevamente el
formulario sin ninguna clase de inconvenientes.

Pero cuando intento utilizar la impresion se cambia de posicion el
commandbutton que llama al formulario y al cerrar el formulario el boton
queda bloqueado con lo cual no puedo abrir el formulario nuevamente.

Espero sus comentarios,
Saludos

"SG Web Design - Sergio Gattelet" escribió en el mensaje
news:

Hola Grupo

Al imprimir mediante una macro que realiza un autofilter, un control
commandButton que esta ubicado en la celda H1 se mueve a la celda B1.
Alguien conoce la razon por la que sucede esto o alguna manera de
solucionarlo.

Espero algun cometario.
Gracias!
Sergio

Hola Sergio,

...desprotege la hoja ... ya que si esta protegida el autofilter no
funciona.

Esto tiene una facil solucion. Pon el siguiente codigo en el evento
Workbook_Open y podras usar Autofilter sin problemas tanto por macro como a
mano.

Saludos,
KL

'-Inicio Codigo-
Private Sub Workbook_Open()
With Sheets("Hoja1") 'Cambia el nombre de la hoja si es necesario
.EnableAutoFilter = True
.Protect userinterfaceonly:=True, _
password:="" 'Pon tu contrasena entre comillas
End With
End Sub
'-Fin Codigo-

hola, chicos !

... solucion... en el evento Workbook_Open y... Autofilter sin problemas [...]

sencillo y efectivo :) aunque... [de cualquier manera] me gustaria poder 'analizar' los casos de...
-> el commandbutton 'danzante'
-> el formulario 'renegado' :))
[si es que Sergio quiere publicar el codigo que esta usando]
... y los modulos donde esta
... y si hay codigo en el evento '_beforeprint'
... y el tipo [y nombres] de los objetos/botones en la/s hoja/s

saludos,
hector.

Hola chicos,

"Héctor Miguel" wrote in message

aunque... [de cualquier manera] me gustaria poder 'analizar' los casos
de...

A mi tambien :-)) No pretendia dar la solucion del problema principal
mediante el posting anterior. Como tenia un poco de prisa (tenia que acostar
a los crios) fui a lo mas facil y rapido, posponiendo el resto para hoy.

De todas maneras sospecho (aunque prefiero hablar por mi mismo) que haria
falta ver el propio fichero, asi que, Sergio, si lo puedes enviar a mi
correo electronico creo que sera mas facil detectar el problema.

Saludo,
KL

Hola compañeros,

Bueno les dire que no encontre una solucion al respecto de la utilizacion
del commandbutton, al principio intente probar si el cambio de posicion se
debia al autofilter y a que habia fijado las celdas para que se pudiera ver
el encabezado de los campos.

Recuerden que la posicion del boton estaba en H1 y entonces la cambie por
debajo de la fila 1 para ver si influia la fijacion de celdas pero les dire
que siguio moviendose a la celda B1. Aunque ahora recuerdo que no intente
quitar la fijacion de celdas y probar nuevamente.

Con respecto al autofilter habria que descartarlo ya que los realizaba
perfectamente y el boton no cambiaba su posicion. El cambio de posicion se
realizaba al imprimir los registros filtrados.
No se utiliza el evento '_beforeprint'

Al pie si por si quieren verlo les envio el codigo, pero de todos modos
solucione este inconveniente creando una barra de herramientas con un boton
que me permite llamar al formulario y quedo mucho mas profesional.

Agradezco mucho vuestra colaboracion, y les comento que he visto el ejemplo
de KL y es muy interesante.

Private Sub CommandButtonImprimir_Click()

With ActiveSheet
If Not .FilterMode Then
If MsgBox("No se ha aplicado ningun Filtro. Desea imprimir de
todos modos?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
.Range("A1").AutoFilter
End If

.PageSetup.BlackAndWhite = True
.AutoFilter.Range.PrintOut
.PageSetup.BlackAndWhite = False
End With
End Sub



"Héctor Miguel" escribió en el mensaje
news:

hola, chicos !

> ... solucion... en el evento Workbook_Open y... Autofilter sin problemas

[...]

sencillo y efectivo :) aunque... [de cualquier manera] me gustaria

poder 'analizar' los casos de...

-> el commandbutton 'danzante'
-> el formulario 'renegado' :))
[si es que Sergio quiere publicar el codigo que esta usando]
... y los modulos donde esta
... y si hay codigo en el evento '_beforeprint'
... y el tipo [y nombres] de los objetos/botones en la/s hoja/s

saludos,
hector.