BORRAR CELDAS

Hola Adhemir!

Como puedo borras un rango de filas por codigo?

..Prueba con lo siguiente en el codigo de la hoja: Ojo
aqui el Rango se encuentra en la Fila 5
Sub Borra_Fila()
' Borra_Fila Macro
Rows("5:5").Select
Selection.ClearContents
End Sub

Para borrar todas las filas:

Sub Borra_Todo()
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells.Select
Selection.ClearContents
End Sub
Considera ademas que pierdes la opcion Deshacer!
Saludos,
Lisandro

Como puedo borras un rango de filas por codigo? Gracias


.

gracias...si me funciona pero me mantiene el formato de celdas (colores,
sombreados, fuente)Como podria eliminar la fila completa?
Gracias

"Lisandro" escribió en el mensaje
news:182a01c4a248$41d77200$

Hola Adhemir!
>Como puedo borras un rango de filas por codigo?
..Prueba con lo siguiente en el codigo de la hoja: Ojo
aqui el Rango se encuentra en la Fila 5
Sub Borra_Fila()
' Borra_Fila Macro
Rows("5:5").Select
Selection.ClearContents
End Sub
>>Para borrar todas las filas:
Sub Borra_Todo()
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells.Select
Selection.ClearContents
End Sub
Considera ademas que pierdes la opcion Deshacer!
Saludos,
Lisandro
>Como puedo borras un rango de filas por codigo? Gracias
>
>
>.
>

Hola Adhemir!
gracias...si me funciona pero me mantiene el formato de
celdas (colores, sombreados, fuente)
Disculpa prueba con: y considera que solo eliminara las
filas 8,10,13
Sub Elim_Fila()
' Elim_Fila Macro
Range("8:8,10:10,13:13").Select
Range("A13").Activate
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
Para eliminar todas::))
Sub Elim_Tod()
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("B6").Select
End Sub

Saludos,
Lisandro

gracias...si me funciona pero me mantiene el formato de

celdas (colores,

sombreados, fuente)Como podria eliminar la fila

completa?

Gracias

"Lisandro" escribió

en el mensaje

news:182a01c4a248$41d77200$

Hola Adhemir!
>Como puedo borras un rango de filas por codigo?
..Prueba con lo siguiente en el codigo de la hoja: Ojo
aqui el Rango se encuentra en la Fila 5
Sub Borra_Fila()
' Borra_Fila Macro
Rows("5:5").Select
Selection.ClearContents
End Sub
>>Para borrar todas las filas:
Sub Borra_Todo()
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells.Select
Selection.ClearContents
End Sub
Considera ademas que pierdes la opcion Deshacer!
Saludos,
Lisandro
>Como puedo borras un rango de filas por codigo?

Gracias

>
>
>.
>

.

la primera macro funciona bien, para que borre todo hasta
los formatos solo tiene que cambiar
Selection.ClearContents
por
Selection.Clear

saludos

fredy

Hola Adhemir!
gracias...si me funciona pero me mantiene el formato de
celdas (colores, sombreados, fuente)
Disculpa prueba con: y considera que solo eliminara las
filas 8,10,13
Sub Elim_Fila()
' Elim_Fila Macro
Range("8:8,10:10,13:13").Select
Range("A13").Activate
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
Para eliminar todas::))
Sub Elim_Tod()
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("B6").Select
End Sub

Saludos,
Lisandro

gracias...si me funciona pero me mantiene el formato

de

celdas (colores,

sombreados, fuente)Como podria eliminar la fila

completa?

Gracias

"Lisandro"

escribió

en el mensaje

news:182a01c4a248$41d77200$

Hola Adhemir!
>Como puedo borras un rango de filas por codigo?
..Prueba con lo siguiente en el codigo de la hoja: Ojo
aqui el Rango se encuentra en la Fila 5
Sub Borra_Fila()
' Borra_Fila Macro
Rows("5:5").Select
Selection.ClearContents
End Sub
>>Para borrar todas las filas:
Sub Borra_Todo()
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells.Select
Selection.ClearContents
End Sub
Considera ademas que pierdes la opcion Deshacer!
Saludos,
Lisandro
>Como puedo borras un rango de filas por codigo?

Gracias

>
>
>.
>

.

.

pruebe
sub eliminar1a17()

Rows("1:17").Select
Selection.Clear
end sub
'asi se elimina todo de las filas 1 a la 20

saludos fredy

Hola Adhemir!
gracias...si me funciona pero me mantiene el formato de
celdas (colores, sombreados, fuente)
Disculpa prueba con: y considera que solo eliminara las
filas 8,10,13
Sub Elim_Fila()
' Elim_Fila Macro
Range("8:8,10:10,13:13").Select
Range("A13").Activate
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
Para eliminar todas::))
Sub Elim_Tod()
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("B6").Select
End Sub

Saludos,
Lisandro

gracias...si me funciona pero me mantiene el formato

de

celdas (colores,

sombreados, fuente)Como podria eliminar la fila

completa?

Gracias

"Lisandro"

escribió

en el mensaje

news:182a01c4a248$41d77200$

Hola Adhemir!
>Como puedo borras un rango de filas por codigo?
..Prueba con lo siguiente en el codigo de la hoja: Ojo
aqui el Rango se encuentra en la Fila 5
Sub Borra_Fila()
' Borra_Fila Macro
Rows("5:5").Select
Selection.ClearContents
End Sub
>>Para borrar todas las filas:
Sub Borra_Todo()
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells.Select
Selection.ClearContents
End Sub
Considera ademas que pierdes la opcion Deshacer!
Saludos,
Lisandro
>Como puedo borras un rango de filas por codigo?

Gracias

>
>
>.
>

.

.