Macros para Limpiar Celdas especificas en diferentes hojas de excel

Ante todo un gran saludo a todos ustedes expertos, por la gran ayuda que nos brindan.

Hiendo a mi pregunta, ¿Podría ser mas simple el código de mi macros para el limpiado de celdas en diferentes hojas; mi libro cuenta con 30 hojas... Le adjunto la Macros.

Sub Limpiar_Celdas()

Hoja2.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja3.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja4.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja5.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja6.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja7.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja8.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja9.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja10.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja11.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja12.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja13.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja14.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja15.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja16.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja17.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja18.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja19.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja20.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja21.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja22.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja23.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja24.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja24.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja25.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja26.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja27.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja28.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja29.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja30.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja31.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents
Hoja32.Select
Range("L6, J19:J24, J45:J50, N9, P9, R9").Select
Selection. ClearContents

End Sub

¡Gracias! Por la respuesta que me puedas dar.

1 respuesta

Respuesta
3

Es un poco viejita la consulta, pero por si aún no lo has resuelto y para otros que pudieran necesitar lo mismo aquí les dejo un bucle:

Sub limpiaTodas()
'x Elsamatilde
For Each hojita In Sheets
'puedo excluir alguna hoja
If hojita.Name <> "PORTADA" Then
    hojita.Select
    Range("L6,J19:J24,J45:J50,N9,P9,R9").Select
    Selection.ClearContents
End If
Next
End Sub

Aqui incluyo una condición por si debe obviar alguna hoja- Quitala si tu macro debe ejecutarse en el total de hojas.

Sdos y no olvides valorar y finalizar la consulta.

Elsa

Hola! Elsa 

Gracias por la respuesta, lo adapte en otro formulario y funciona correctamente.

Me gustaría acerté otra pregunta ya que tengo un formulario que me esta causando problemas disculpa que soy nuevo en el foro.

Con mucho gusto, pero debes valorar y finalizar ésta primero. Luego ya podrás dejarme la otra en el tablón. Solo debes indicar que es para Elsamatilde.

PD) Ya tenés varias consultas realiza aquí así que seguramente sabrás que las podés dejar en varios temas. Por favor que sea en MicrosoftExcel que es el tablón que leo con preferencia.

Sdos

Elsa

Gracias! Elsa Matilde

Me gustaría adjuntarle mi archivo para que sea más atendible mi pregunta que le quiero realizar, a que correo le puedo enviar.

Podes copiarlo del que aparece en mi sitio que dejo al pie o armalo como:

Cibersoft_arg ARROBA y es de yahoo.com.ar

PD) no olvides valorar y finalizar esta consulta antes de empezar con el otro tema.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Limpiar Celdas especificas en diferentes hojas de excel vba

Ante todo un gran saludo a todo ustedes expertos por la gran ayuda que nos brindan. Hiendo a mi pregunta, me gustaría que me ayuden con un código en la que este limpia las celdas especificas de diferentes hojas, quisiera que fuera mas compacto; les...
2 respuestas

Macro de copiar datos de una a nuevas hojas

Macro de copiar y pegar datos de 6 tipos rangos de celdas (A1:b3) asi si sucesivamente de una hoja llamada "datos" y pegar en nueva hojas "hoja 2","hoja 3","hoja 3", "hoja 4","hoja 5","hoja 6" asi hasta llega una valor de 400 hojas
1 respuesta

Como conseguir el ancho automáticos de columnas cuando insertas datos de otras fuentes como puedan ser: otras excel, bancos

Se trata de crear una macro de tal forma que al insertar en una excel columnas de distintas anchura, mediante una macro, los anchos se correspondan con la longitud de los datos insertados. Por ejemplo: casa / melocotón/ bicicleta /...
1 respuesta

Actualizar datos en base de datos

¿Cómo agrego la opción de que antes de realizar una búsqueda nueva, o bien agregando un botón nuevo, actualice cualquier dato que se modifique, directamente en la base? En lectura simple sería: Hoja Búsqueda: Si se modifica cualquier dato, en rango...
1 respuesta

Macro Copiar Valores Únicos de una hoja a otra hoja de excel

He estado batallando con una macro. La vdd apenas me voy iniciando en esto. Quería preguntar si existe alguna forma de que la macro permita copiar en una hoja solo los valores únicos de otra hoja dentro de un mismo libro. El objetivo de mi libro es...
1 respuesta

Ir a la ultima celda no vacía, bajar una fila más

Me podrían ayudar con una macro que realice lo siguiente. Ir hasta la ultima celda no vacía de la columna DE luego bajar una fila y seleccionar toda las filas situada más abajo y borrar el contenido, en mi caso hay datos en la columna A, B y C.
1 respuesta

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta