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

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

 

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.

@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

Editado el el 30 de diciembre5 años por Haplox

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.

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

 

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?

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?...

 

Felicidades!!!!!!

?? perdón  Halpox, no Antoni  sabe quien es. Es un gran felino que tiene. ??

Ja,ja,ja, se refiere a esto: