Macro "ClearContents" para varias hojas de cálculo

He creado una macro para borrar los datos de una celda cada vez que pulso el botón al que está asignado dicha macro, con la siguiente rutina:
Sub Borrar_datos()
Ans = MsgBox("Seguro que quiere borrar los datos del turno anterior? ", vbYesNo, "Aviso")
If Ans = vbYes Then
Range("G24:G30").ClearContents
End If
End Sub
Como el libro en el que estoy trabajando se basa en varias hojas iguales, cada una de las cuales tiene la misma celda, quiero una macro que se ejecute en todas a la vez. Por lo que me gustaría que cada vez que apretó a este botón y se ejecuta la macro, también me borrase los datos de la misma celda pero en otras 11 hojas más.

1 Respuesta

Respuesta
2
Podemos agregar un bucle que recorra las 11 hojas realizando la misma acción, el tema es si tenés + hojas, de alguna manera habrá que indicar en la rutina de qué hojas se tratará.
En mi ejemplo coloqué 1 hoja que debe ser excluida, como para que tengas 1 ejemplo:
Sub Borrar_datos()
Ans = MsgBox("Seguro que quiere borrar los datos del turno anterior? ", vbYesNo, "Aviso")
If Ans = vbYes Then
    For each sh in Sheets
    if sh.name <> "Menu" then Range("G24:G30").ClearContents
    next sh
End If
End Sub
Sdos. No dejes la consulta sin finalizar si el tema queda resuelto.
Hola Elsa, gracias por la respuesta tan rápida, lo único que no la entendí del todo lo que quieres decir por sh, de ahí que me decidí a hacerlo a lo bruto, de esta forma:
Sub Borrar_datos()
Ans = MsgBox("Seguro que quiere borrar los datos del turno anterior? ", vbYesNo, "Aviso")
If Ans = vbYes Then
Range("G24:G30").ClearContents
Worksheets("Hora 2").Range("G24:G30").ClearContents
Worksheets("Hora 3").Range("G24:G30").ClearContents
Worksheets("Hora 4").Range("G24:G30").ClearContents
Worksheets("Hora 5").Range("G24:G30").ClearContents
Worksheets("Hora 6").Range("G24:G30").ClearContents
Worksheets("Hora 7").Range("G24:G30").ClearContents
Worksheets("Hora 8").Range("G24:G30").ClearContents
Worksheets("Hora 9").Range("G24:G30").ClearContents
Worksheets("Hora 10").Range("G24:G30").ClearContents
Worksheets("Hora 11").Range("G24:G30").ClearContents
Worksheets("Hora 12").Range("G24:G30").ClearContents
End If
End Sub
No se si habría otra forma más rápida, pero de todas maneras muchas gracias por la respuesta
Considerando que todas las hojas se llaman Hora..., podemos utilizar esto en el bucle:
Sub Borrar_datos()
Ans = MsgBox("Seguro que quiere borrar los datos del turno anterior? ", vbYesNo, "Aviso")
If Ans = vbYes Then
'por cada hoja (sh) en el conjunto de hojas (Sheets)
    For each sh in Sheets
'si el nombre de la hoja comienza con "Hora" entonces limpia el rango de esa hoja
    if Left(sh.name,4) = "Hora" then sh.Range("G24:G30").ClearContents
'pasa a la hoja siguiente
    next sh
End If
End Sub
Si hay alguna hoja Hora que no debe ser contemplada, entonces la esquivas con la instrucción dejada en mi primer respuesta.
Espero te haya quedado claro. En mi sitio encontrarás más ejemplos de macros.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como puedo borrar información de celdas combinadas

Necesito borrar información de las celdas. Pero me sale un error por que algunas de estas celdas están combinadas. Tengo el siguiente código Sub Borrar() borrar = MsgBox("Seguro que quiere borrar los datos?", vbQuestion + vbYesNo, "Aviso") If borrar...
1 respuesta

¿Cómo hacer en excel para borrar los datos de toda una hoja con un botón que esta en otra hoja?

Necesito crear un botón en una hoja llamada "Totales" que controle si existe una hoja llamada "Resumen" y si esta existe, que borre todos los datos excepto el rango A1:N1 (encabezados), de la hoja "Resumen". También necesito crear otro botón en la...
1 respuesta

Buscar datos en varias hojas UserForm

Tengo un pequeño problema con la opción realizar la búsqueda en distintas hojas.. Que en mi caso son años:(Hoja1=2008, Hoja2=2009, Hoja3=2010, Hoja4=2011) Estoy utilizando este codigo pero solo me busca en una sola hoja. Private Sub...
1 respuesta

Macro Excel Buscar Hoja y copiar datos en otra Hoja de mi Libro Excel.

Necesito una Macro Excel de modo que me permite buscar una Hoja determinada dentro de un Libro y copiar los datos de una Rango de la misma a otra Hoja que yo le diga. En este caso sería necesario habilitar un espacio en la Hoja4 en el que indicando...
1 respuesta

Macro para copiar filas de varias hojas a una sola hoja,

El día de ayer encontré una macro para poder copiar la primera hoja de los 100 que manejo en un solo libro, hasta ahí todo bien. Lo que necesito ahora es una macro para poder copiar las filas de las 100 hojas en una sola hoja, tienen el mismo...
2 respuestas

Macro guardar Hoja de EXCEL en formato PDF, Imprimir y Borrar

Siguiendo en el rubro construcción vial, quería saber si se puede hacer un macro que al presionar el botón me guarde la hoja Impresión ARENA en formato .PDF y adquiriendo como nombre el valor de una celda especifica en el escritorio de mi pc, una vez...
1 respuesta

Macro limpiar Hojas

Necesito una macro que me permita borrar todo el contenido de varias hojas de excel en un mismo libro. En mi libro las 4 primeras hojas son fijas (no deseo borrarlas), pero de ahí en adelante son hojas de reportes que irán variando, por eso necesito...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta