Saltar al contenido

Borrar datos de unas determinadas celdas al abrir el libro Excel


Recommended Posts

publicado

Buenas tardes a todos;

Una pequeña ayudita si es posible..

Quería borrar los datos de unas determinadas celdas al abrir el libro Excel.

En la macro que he creado y adjuntado hace eso mismo pero debo estar situado en esa hoja para que se cumpla.

Lo que me gustaría conseguir es que los borre esos datos sin que sea obligatorio estar en esa determinada hoja.

Gracias y feliz año a todos.

 

BORRAR.xlsm

publicado
Sub Borrar(): On Error Resume Next
Application.ScreenUpdating = False

   Hoja4.Range("A5:G" & Range("A" & Rows.Count).End(xlUp).Row).Delete
   Hoja4.Range("A2:B2").ClearContents

Application.ScreenUpdating = True
End Sub

 

publicado

Bo día Antoni;

He probado el código que me has pasado pero no me va, te comparto un enlace de un video a ver si te das cuenta donde estoy  metiendo la gamba.

Borra bien el rango "A2:B2" pero el rango de la "tabla1"  "A5: hasta el final de la tabla " no lo borra salvo que esté situado en la hoja "Ejemplo"

Video:

video Borrar

Bo día e bo ano Antoni.

publicado

@Benito Bartolomé, con elpermiso de @Antoni (espero ?), prueba lo siguiente:

Sub Borrar(): On Error Resume Next
Application.ScreenUpdating = False

   Hoja4.Range("A5:G" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row).Delete
   Hoja4.Range("A2:B2").ClearContents

Application.ScreenUpdating = True
End Sub
publicado

Buenos días y muchas gracias Halpox.

Veo que el error estaba en:

Cita

Hoja4.Range("A5:G" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row).Delete

Le faltaba añadir "Hoja4" al Range. Un buen apunte.

Muchísimas gracias y feliz año para ti tambien.

publicado

De ahí la utilidad de With/End With, evita errores como el mío.

Sub Borrar(): On Error Resume Next
Application.ScreenUpdating = False

With Hoja4
   .Range("A5:G" & .Range("A" & Rows.Count).End(xlUp).Row).Delete
   .Range("A2:B2").ClearContents
End With

Application.ScreenUpdating = True
End Sub

 

publicado

Error como el tuyo y mas el mío.

Gracias Antoni a ti también por la aclaración con este segundo código.  

Por último desearte a ti también un feliz  año, ahh y a tú fiel escudero?

publicado
Hace 42 minutos , Benito Bartolomé dijo:

Por último desearte a ti también un feliz  año, ahh y a tú fiel escudero?

¿Ese soy yo?... B)

 

Felicidades!!!!!!

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.