Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Borrar datos de unas determinadas celdas al abrir el libro Excel

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

Featured Replies

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
  • Autor

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

Editado el por Haplox

publicado
  • Autor

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
  • Autor

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!!!!!!

publicado
  • Autor

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

Archivado

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

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.