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

cbm escribió:

Buenas, vuelvo a la carga con otra duda.

Estando en modo de pantalla completa, despues de ejecutar una macro se
me suele quedar una zona gris en la parte superior de la pantalla que
me tapa varias filas (dos o tres, según le de)
¿a qué puede ser debido?
¿conoceis alguna solucion?

Gracias de antemano,

Saludos

Hola Cbm :-)

Si que es raro, raro, raro :-) ¿podrias ponernos el codigo y a si vemos
si nos pasa a nosotros tambien :-) ?

Nos comentas ok? :-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

MARCHANDO UNA MACRO PARA MONICA!!!

Es una macro para enviar por emilio la hoja. He investigado en otros
grupos y otros idiomas y no ha habido suerte, al parecer le pasa a
bastante gente. De momento lo he apañao dandole bastante altura a la
primera fila y asi lo gris no me tapa nada interesante, aunque sigue
saliendo. Se queda la zona que corresponderia a menus y barras gris y
no deja seleccionar ni hacer nada, vamos, como el perro del hortelano.
Creo que no lo había dicho, trabajo con excel 2003

Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Unprotect
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Hoja extraída de " & ThisWorkbook.Name _
& " " & strdate & ".xls"
On Error Resume Next
.SendMail "", _
"titulo del mail"

Kill .FullName
.Close False
End With
On Error Resume Next
Application.ScreenUpdating = True


Sheets("Informe").Select
ActiveSheet.Range("E1044").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True

Muchas gracias, a ver que tal te va :)

End Sub


Tux ha escrito:

cbm escribió:
> Buenas, vuelvo a la carga con otra duda.
>
> Estando en modo de pantalla completa, despues de ejecutar una macro se
> me suele quedar una zona gris en la parte superior de la pantalla que
> me tapa varias filas (dos o tres, según le de)
> ¿a qué puede ser debido?
> ¿conoceis alguna solucion?
>
> Gracias de antemano,
>
> Saludos
>

Hola Cbm :-)

Si que es raro, raro, raro :-) ¿podrias ponernos el codigo y a si vemos
si nos pasa a nosotros tambien :-) ?

Nos comentas ok? :-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

cbm escribió:

MARCHANDO UNA MACRO PARA MONICA!!!

Es una macro para enviar por emilio la hoja. He investigado en otros
grupos y otros idiomas y no ha habido suerte, al parecer le pasa a
bastante gente. De momento lo he apañao dandole bastante altura a la
primera fila y asi lo gris no me tapa nada interesante, aunque sigue
saliendo. Se queda la zona que corresponderia a menus y barras gris y
no deja seleccionar ni hacer nada, vamos, como el perro del hortelano.
Creo que no lo había dicho, trabajo con excel 2003

Hola cbm :-)

Pues no se si te lo vas a creer pero a mi me funciona, no veo nada raro
:-( , lo he probado con dos gestores de correo el Thunderbird y el OE
por si tenia algo que ver con ellos, perooo si que tengo una ligera idea
de porque puede ser, vamos a probar a ver si es de este archivo
Excel11.xlb :-)

Ves a inicio > ejecutar > y ahi copia o pega lo siguiente:

%userprofile%\Datos de programa\Microsoft\excel

Veras que tienes ese archivo pues bien renombralo a Excel11.old y prueba
ahora a ejecutar la macro en modo pantalla pantalla completa a ver si es
de este archivo ok? :-)

Comentanos :-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

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.

Creo que lo mejor va a ser pegarte aqui la macro entera tal y como
esta, a ver si ves algo (yo soy bastante novato)

Private Sub CommandButton1_Click()



Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long

On Error Resume Next
If Len(ThisWorkbook.Worksheets.Item("Datos").Name) = 0 Then
On Error GoTo 0
Application.ScreenUpdating = False
Set DestSh = ThisWorkbook.Worksheets.Add
DestSh.Name = "Datos"
For Each sh In ThisWorkbook.Worksheets
If Left(sh.Name, 6) = "Acción" Then

Last = LastRow(DestSh)

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



End If
Next
DestSh.Cells(1).Select
Application.ScreenUpdating = True
Else
MsgBox "Borre la hoja de Datos existente antes de generar otra
y actualizar las estadísticas"
End If
Sheets("Informe").Select
ActiveSheet.Unprotect

Range("A40").Select
ActiveCell.FormulaR1C1 = "=Datos!R[-39]C"
Range("A40").Select
Selection.AutoFill Destination:=Range("A40:BH40"),
Type:=xlFillDefault
Range("A40:BH40").Select
Selection.AutoFill Destination:=Range("A40:BH1039"),
Type:=xlFillDefault
Range("A40:BH1039").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True



On Error Resume Next
If Len(ThisWorkbook.Worksheets.Item("Datos2").Name) = 0 Then
On Error GoTo 0
Application.ScreenUpdating = False
Set DestSh = ThisWorkbook.Worksheets.Add
DestSh.Name = "Datos2"
For Each sh In ThisWorkbook.Worksheets
If Left(sh.Name, 5) = "Tarea" Then

Last = LastRow(DestSh)

With sh.Range("bi60").CurrentRegion
DestSh.Cells(Last + 1, "bi").Resize(.Rows.Count, _
.Columns.Count).Value = .Value
End With



End If
Next
DestSh.Cells(1).Select
Application.ScreenUpdating = True
Else
MsgBox "Borre la hoja de Datos existente antes de generar otra
y actualizar las estadísticas"
End If
Sheets("Informe").Select
ActiveSheet.Unprotect

Range("bi40").Select
ActiveCell.FormulaR1C1 = "=Datos2!R[-39]C"
Range("bi40").Select
Selection.AutoFill Destination:=Range("bi40:EW40"),
Type:=xlFillDefault
Range("bi40:EW40").Select
Selection.AutoFill Destination:=Range("bi40:EW1039"),
Type:=xlFillDefault
Range("bi40:EW1039").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True

Const sFileName As String = "Datos"


Application.DisplayAlerts = False
On Error Resume Next
Worksheets(sFileName).Delete
On Error GoTo 0
Worksheets("datos2").Delete
Application.DisplayAlerts = True

' Dim wb As Workbook
' Dim strdate As String
' strdate = Format(Now, "dd-mm-yy h-mm-ss")
' Application.ScreenUpdating = False
' ActiveSheet.Unprotect
' ActiveSheet.Copy
' Set wb = ActiveWorkbook
' With wb
' .SaveAs "Parte de " & ThisWorkbook.Name _
' & " " & strdate & ".xls"
' On Error Resume Next
' .SendMail "", _
' "SE HA ACTUALIZADO UNA ACCIÓN"'
'
' Kill .FullName
' .Close False
' End With
' On Error Resume Next
' Application.ScreenUpdating = True


Sheets("Informe").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True
Range("F1043").Select


End Sub



Que Dios te lo pague, que yo a estas alturas de mes ando pelaoooooo ;)

Tux ha escrito:

cbm escribió:
> MARCHANDO UNA MACRO PARA MONICA!!!
>
> Es una macro para enviar por emilio la hoja. He investigado en otros
> grupos y otros idiomas y no ha habido suerte, al parecer le pasa a
> bastante gente. De momento lo he apañao dandole bastante altura a la
> primera fila y asi lo gris no me tapa nada interesante, aunque sigue
> saliendo. Se queda la zona que corresponderia a menus y barras gris y
> no deja seleccionar ni hacer nada, vamos, como el perro del hortelano.
> Creo que no lo había dicho, trabajo con excel 2003

Hola cbm :-)

Pues no se si te lo vas a creer pero a mi me funciona, no veo nada raro
:-( , lo he probado con dos gestores de correo el Thunderbird y el OE
por si tenia algo que ver con ellos, perooo si que tengo una ligera idea
de porque puede ser, vamos a probar a ver si es de este archivo
Excel11.xlb :-)

Ves a inicio > ejecutar > y ahi copia o pega lo siguiente:

%userprofile%\Datos de programa\Microsoft\excel

Veras que tienes ese archivo pues bien renombralo a Excel11.old y prueba
ahora a ejecutar la macro en modo pantalla pantalla completa a ver si es
de este archivo ok? :-)

Comentanos :-)

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.

Creo que lo mejor va a ser pegarte aqui la macro entera tal y como
esta, a ver si ves algo (yo soy bastante novato)

Hola Cbm :-)

¡Que raro, pero raro! la estoy probando, he declarado la funcion LastRow
, le he dado a ejecutar y me funciona bien, me crea una hoja llamada
datos, y en la hoja Informe a partir de la fila 40 hasta la 1039 y
columna EW me copia datos y ¡ummmmmm! estoy haciendo unas pruebas vale
ya te comento cuando tenga algo :-)

Si me surge alguna pregunta te ire preguntando ok? :-)

Saludos
Monica

PD:¡Que dios me lo pague pero con hijos tampoco eh? jejejej!:-) !

¡Un SAludo! :-)

www.fermu.com
www.zorval.es