Borrar datos de diferentes celdas en hojas especificas.

Estoy intentando borrar ciertas celdas en ciertas hojas, y necesito una macro para hacerlo picando un botón, las hojas especificas tienen el nombre de PU(1) a la 238. Las primeras hojas no las quiero borrar solo las que tienen el nombre de PU y su numero consecutivo.

¿Podrán ayudarme?

1 Respuesta

Respuesta
2

Te anexo la macro

Sub Borrar_Ciertas_Celdas()
'Por.Dante Amor
    For Each h In Sheets
        If UCase(Left(h.Name, 2)) = "PU" Then
            h.Range("A2, B5, D7:E10").ClearContents
        End If
    Next
    MsgBox "Celdas Borradas"
End Sub

En esta parte de la macro, puedes poner una celda como A2 o B5 o un rango de celdas como D7 a E10, pon las celdas que necesitas borrar.

Avísame cualquier duda.

'

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

'

Mil gracias Dante, es justo lo que buscaba, una pregunta si ese rango en las hojas no es constante es decir, estoy borrando datos de la celda A13:A20 y D13:D20 pero a veces el rango sube o cambia conforme lo voy necesitando en cada hoja puesto que agrego partidas en el fichero. Tengo que cambiar algo de la misma macro?

Anexo Imagen.

Habría que cambiar la forma de borrar.

Con mucho gusto te ayudo con todas tus peticiones.

Crea una nueva pregunta en Todoexpertos.com dentro del tema de microsoft excel. En el desarrollo de la pregunta escribe: "para Dante Amor". Ahí me describes con detalle lo que necesitas.

Sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas