Zona superior de la pantalla en gris, raro, raro, raro...

cbm escribió:

Pues va a ser que no :(

He probado lo que me comentas y sigue igual, quizas sea otra parte de
la macro, ya que he suprimido la parte del envio y me sigue haciendo lo
mismo.
Va todo contra un boton y actualiza la informacion de un monton de
hojas con dos nombres determinados correlativos..

Hola Cbm :-)

Estoy ahora mirando el codigo que nos has puesto y creo que te debe
pasar eso a la hora de realizar los autofiltros, te pregunto ok?:-)

Asi me queda claro a mi lo que quiere hacer este codigo:

En estas lineas de codigo no agrega la hoja << Datos <<

'--
Set DestSh = ThisWorkbook.Worksheets.Add
DestSh.Name = "Datos"

'-

En esta otra coge los datos de todas las hojas que llevan la palabra
accion, llamando a la funcion LastRow :

'-

If Left(sh.Name, 6) = "Accion" Then
Last = LastRow(DestSh)
'--

En esta otra linea de codigo nos coge el rango A124 de esas hojas
Accion: ¿Hasta donde llega el rango? :-\ (ya se que coge todo aquello
que tengas escrito a partir de la celda A124)

'-
With sh.Range("A124").CurrentRegion
DestSh.Cells(Last + 1, "A").Resize(.Rows.Count, _
.Columns.Count).Value = .Value


'-

Todo esto te lo copia en la hoja A1 de la hoja datos ¿Hasta aqui?
¿Correcto?

Continuo:

La hoja Informe quieres desprotegela para relaizar un autofiltro que
primero haces una vinculacion de celda de la hoja Datos A1 en la celda
A40 de la hoja Informes y luego realizas un autofiltro de A40 a H40 ¿?
¿no? :-\

Te pregunto ¿donde quieres hacer el autofiltro de que rangos a que rangos?

Bueno nos comentas porque creo que este trozo del codigo donde realizas
los autofiltros hace falta depurarlo y arreglarlo un pelin ¿creo eh? e
igual es ahi donde te da fallos raros

Nos comentas ok? :-)

Saludos
Monica



¡Un SAludo! :-)

www.fermu.com
www.zorval.es

cbm escribió:

Pues va a ser que no :(

He probado lo que me comentas y sigue igual, quizas sea otra parte de
la macro, ya que he suprimido la parte del envio y me sigue haciendo lo
mismo.
Va todo contra un boton y actualiza la informacion de un monton de
hojas con dos nombres determinados correlativos.

Perdon que siempre me como las palabras :-) , cuando digo que llevan la
palabra accion me refiero al nombre de las hojas en la pestaña y ya que
estoy voy a aprovechar el post :-)))

Luego veo que haces los mismo pero creando otra oja Datos2 y cogiendo
otros rangos para autofiltro, Eliminas hojas Datos proteges la hoja
Informe envias por mail, se vuelve a proteger hoja y te vuelves a situar
la celda activa en la celda F1043

Mas o menos no? Pues a ver si puedo depurar esto :-P

Nos comentas ok?

Saludos
Monica

¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Pero que te lo pague con pocos hijos y muchos intentos, que si no
menuda gracia ;)

La macro sigue los pasos tal y como los has descrito (me quito el
sombrero). Se que anda un pelin desordenada protegiendo cosas que luego
desprotejo y vuelvo a proteger al final, pero no he tenido tiempo de
depurar.

En esta otra linea de codigo nos coge el rango A124 de esas hojas
Accion: ¿Hasta donde llega el rango? :-\ (ya se que coge todo aquello
que tengas escrito a partir de la celda A124)


'-
With sh.Range("A124").CurrentRegion
DestSh.Cells(Last + 1, "A").Resize(.Rows.Count, _
.Columns.Count).Value = .Value


'-


Coge hasta ew, toda la info va en una fila

El rango donde quiero los autofiltros abarca de la d:1040 a la r:2039
de la hoja informe.

De todas maneras he metido un boton en el que quito la pantalla
completa y la vuelvo a activar, así desaparece la barra gris. No es
una solucion muy bonita, pero funciona que de momento es lo que quiero

De todas formas, me entra asi como un remordimiento de culpa viendo
como te tienes que estar dejando las neuronas con esto cuando se acerca
el finde y alguna tendremos que dejar para quemarla, así que con todo
el agradecimiento del mundo por el curro que te estas pegando, te pido
que no te des ninguna paliza con esto.

Lo dicho, que Dios te lo pague en la forma que prefieras :)

Tux ha escrito:

cbm escribió:
> Pues va a ser que no :(
>
> He probado lo que me comentas y sigue igual, quizas sea otra parte de
> la macro, ya que he suprimido la parte del envio y me sigue haciendo lo
> mismo.
> Va todo contra un boton y actualiza la informacion de un monton de
> hojas con dos nombres determinados correlativos.
>

Perdon que siempre me como las palabras :-) , cuando digo que llevan la
palabra accion me refiero al nombre de las hojas en la pestaña y ya que
estoy voy a aprovechar el post :-)))

Luego veo que haces los mismo pero creando otra oja Datos2 y cogiendo
otros rangos para autofiltro, Eliminas hojas Datos proteges la hoja
Informe envias por mail, se vuelve a proteger hoja y te vuelves a situar
la celda activa en la celda F1043

Mas o menos no? Pues a ver si puedo depurar esto :-P

Nos comentas ok?

Saludos
Monica

¡Un SAludo! :-)

www.fermu.com
www.zorval.es

cbm escribió:

Pero que te lo pague con pocos hijos y muchos intentos, que si no
menuda gracia ;)

La macro sigue los pasos tal y como los has descrito (me quito el
sombrero). Se que anda un pelin desordenada protegiendo cosas que luego
desprotejo y vuelvo a proteger al final, pero no he tenido tiempo de
depurar.

En esta otra linea de codigo nos coge el rango A124 de esas hojas
Accion: ¿Hasta donde llega el rango? :-\ (ya se que coge todo aquello
que tengas escrito a partir de la celda A124)


'-
With sh.Range("A124").CurrentRegion
DestSh.Cells(Last + 1, "A").Resize(.Rows.Count, _
.Columns.Count).Value = .Value


'-


Coge hasta ew, toda la info va en una fila

El rango donde quiero los autofiltros abarca de la d:1040 a la r:2039
de la hoja informe.

De todas maneras he metido un boton en el que quito la pantalla
completa y la vuelvo a activar, así desaparece la barra gris. No es
una solucion muy bonita, pero funciona que de momento es lo que quiero

De todas formas, me entra asi como un remordimiento de culpa viendo
como te tienes que estar dejando las neuronas con esto cuando se acerca
el finde y alguna tendremos que dejar para quemarla, así que con todo
el agradecimiento del mundo por el curro que te estas pegando, te pido
que no te des ninguna paliza con esto.

Lo dicho, que Dios te lo pague en la forma que prefieras :)

Hola Cbm :-)

Eso, eso, los intentos jejejejejje! :))

No,no,no, no lo dejo!, Gracias a ti no veas lo que estoy aprendiendo
;-) , por lo tanto el domingo que ire mas tranquila me pondre a ello :-)
a lo mejor hago un estropicio en el codigo :-P pero aun asi aprendere
mas y mejor :-) eso espero :-S .

Y en cuanto a las neuronas, tengo pocas ya algunas de ellas ya gastadas
por su uso, otras ni me escuchan, pero hay una en especial que no veas
lo que cunde si salgo un sabado noche jejejejejje! :-P en fin lo dicho ...


Gracias a ti :-)

Saludos
Monica

¡Un SAludo! :-)

www.fermu.com
www.zorval.es