eliminar celdas permanentemente

Hola Javi,

Esto se puede hacer, pero no es nada recomendable ya que puede hacer que el tamano del archivo crezca de forma importante.

Prueba lo siguiente:
1) selecciona la fila que esta por debajo de la ultima fila del area de trabajo
2) pulsa Ctrl+Shift+flecha hacia abajo
3) haz clic derecho sobre el area seleccionada y elige Ocultar
4) selecciona la columna que esta a la derecha de la ultima columna del area de trabajo
5) pulsa Ctrl+Shift+flecha hacia la derecha
6) haz clic derecho sobre el area seleccionada y elige Ocultar

Saludos,
KL


"javi" wrote in message news:

Hola a todos. Necesito eliminar permanentemente las celdas que no utilizo en
la hoja de cálculo, es decir, que cuando abra una hoja sólo me aparezca el
área de trabajo. Gracias por la atención. Un saludo.

hola, javi !

... Necesito eliminar permanentemente las celdas que no utilizo en la hoja de calculo
... que cuando abra una hoja solo me aparezca el area de trabajo...

1) no es posible eliminar [y menos 'permanentemente'] las celdas [filas y columnas] que no 'utilizas' :-(

2) las puedes ocultar [sigue las instrucciones de KL], aunque seguiran 'estando disponibles' [por varios metodos] ;)

3) otra -posible- alternativa es que 'des acceso restringido' a SOLO un rango de celdas como 'area navegable' en esa hoja -?-
suponiendo que la opcion de macros es una opcion 'viable'... prueba a poner lo siguiente en el modulo de codigo del libro...
Private Sub Workbook_Open()
Worksheets("hoja1").ScrollArea = "a1:g45"
End Sub

o... si ya estara 'fijo/definitivo' el rango utilizable como el que tengas usado al momento de abrir el libro...
Private Sub Workbook_Open()
With Worksheets("hoja1")
.ScrollArea = .UsedRange.Address
End With
End Sub

aunque 'veas' el resto de celdas [filas y columnas] estas no serian 'seleccionables' [estando las macros 'en operacion'] ;)

o... si quieres 'ver' como una area 'gris' el resto de las celdas 'no usadas'...
Private Sub Workbook_Open()
With Worksheets("hoja1")
.ScrollArea = .UsedRange.Address
.Select
End With
With ActiveWindow
.View = xlPageBreakPreview
.Zoom = 100
End With
End Sub

aunque... 'tendras que vivir' con la 'marca de agua' del numero de pagina en la vista previa de salto de pagina :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hector, perdona por la intromision, pero que te parece este codigo, evita la
marca de agua:

Private Sub Workbook_Open()
Rows("28:28").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
Columns("G:G").Select
Range("G12").Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll Down:=-9
End Sub

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

hola, javi !

... Necesito eliminar permanentemente las celdas que no utilizo en la
hoja de calculo
... que cuando abra una hoja solo me aparezca el area de trabajo...

1) no es posible eliminar [y menos 'permanentemente'] las celdas [filas y
columnas] que no 'utilizas' :-(

2) las puedes ocultar [sigue las instrucciones de KL], aunque seguiran
'estando disponibles' [por varios metodos] ;)

3) otra -posible- alternativa es que 'des acceso restringido' a SOLO un
rango de celdas como 'area navegable' en esa hoja -?-
suponiendo que la opcion de macros es una opcion 'viable'... prueba a
poner lo siguiente en el modulo de codigo del libro...
Private Sub Workbook_Open()
Worksheets("hoja1").ScrollArea = "a1:g45"
End Sub

o... si ya estara 'fijo/definitivo' el rango utilizable como el que tengas
usado al momento de abrir el libro...
Private Sub Workbook_Open()
With Worksheets("hoja1")
.ScrollArea = .UsedRange.Address
End With
End Sub

aunque 'veas' el resto de celdas [filas y columnas] estas no serian
'seleccionables' [estando las macros 'en operacion'] ;)

o... si quieres 'ver' como una area 'gris' el resto de las celdas 'no
usadas'...
Private Sub Workbook_Open()
With Worksheets("hoja1")
.ScrollArea = .UsedRange.Address
.Select
End With
With ActiveWindow
.View = xlPageBreakPreview
.Zoom = 100
End With
End Sub

aunque... 'tendras que vivir' con la 'marca de agua' del numero de pagina
en la vista previa de salto de pagina :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Aeoris !

... este codigo, evita la marca de agua:
Private Sub Workbook_Open()
Rows("28:28").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
Columns("G:G").Select
Range("G12").Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll Down:=-9
End Sub

[seguramente] es una buena alternativa a la propuesta de -efectivamente- ocultar filas y columnas 'sobrantes' :))
[considerando que el 'efecto' por crecimiento de los archivos es cuando se guardan con dichas areas ocultas] ;)
en tal caso [creo que] seria conveniente des-ocultarlas ANTES de guardar el libro -?-
ya que una vez ocultas, la propiedad xlLastCell [p.e.] como que 'sufre de amnesia' y ya no recuerda cual era la 'real'
y cuando las vuelves a mostrar [probablemente] pulsar ctrl+fin te llevara... 'al infinito' :))

una alternativa seria +/- como la siguiente [en el modulo de codigo del libro y afectando a la hoja 'apropiada']
ademas de que la propiedad xlLastCell tiene otras 'implicaciones [como formatos] y se comporta diferente entre versiones
Private Sub Workbook_Open()
With Worksheets("hoja1").Cells.SpecialCells(xlLastCell)
Range(.Offset(1), .End(xlDown)).EntireRow.Hidden = True
Range(.Offset(, 1), .End(xlToRight)).EntireColumn.Hidden = True
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Worksheets("hoja1").Cells
.EntireRow.Hidden = False
.EntireColumn.Hidden = False
Tmp = .Parent.UsedRange.Rows.Count
Tmp = .Parent.UsedRange.Columns.Count
End With
End Sub

saludos,
hector.

Perfecto. Gracias

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

hola, Aeoris !

... este codigo, evita la marca de agua:
Private Sub Workbook_Open()
Rows("28:28").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
Columns("G:G").Select
Range("G12").Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll Down:=-9
End Sub

[seguramente] es una buena alternativa a la propuesta de -efectivamente-
ocultar filas y columnas 'sobrantes' :))
[considerando que el 'efecto' por crecimiento de los archivos es cuando se
guardan con dichas areas ocultas] ;)
en tal caso [creo que] seria conveniente des-ocultarlas ANTES de guardar
el libro -?-
ya que una vez ocultas, la propiedad xlLastCell [p.e.] como que 'sufre de
amnesia' y ya no recuerda cual era la 'real'
y cuando las vuelves a mostrar [probablemente] pulsar ctrl+fin te
llevara... 'al infinito' :))

una alternativa seria +/- como la siguiente [en el modulo de codigo del
libro y afectando a la hoja 'apropiada']
ademas de que la propiedad xlLastCell tiene otras 'implicaciones [como
formatos] y se comporta diferente entre versiones
Private Sub Workbook_Open()
With Worksheets("hoja1").Cells.SpecialCells(xlLastCell)
Range(.Offset(1), .End(xlDown)).EntireRow.Hidden = True
Range(.Offset(, 1), .End(xlToRight)).EntireColumn.Hidden = True
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Worksheets("hoja1").Cells
.EntireRow.Hidden = False
.EntireColumn.Hidden = False
Tmp = .Parent.UsedRange.Rows.Count
Tmp = .Parent.UsedRange.Columns.Count
End With
End Sub

saludos,
hector.