Jump to content
Marcsan111

Macro no recorre todas las hojas del Workbook

Recommended Posts

Hola chic@s,

Después de unos largos intentos fallidos, no me queda otra opción que buscar ayuda alguna alma caritativa :)

Detallo lo que intento hacer con la macro, solo he conseguido que lo haga en la hoja activa pero no me recorre todas las hojas del Workbook.
- Cada hoja tiene una tabla con unos datos. Necesito eliminar todas las filas de cada hoja desde B4 hasta lastrow -1 (la b3 tiene que quedar intacta, cosas de otra macro que tengo linkeada) y mostrar ese lastrow en la B4.
- Las hojas llamadas "Balance..." deben excluirse en la macro ya que no hay datos en ella que eliminar.
- Necesito dejar la última fila con datos de cada tabla en la B4 e insertar tantas filas como borradas. (para que la tabla siga teniendo las mismas filas que antes).

Hasta ahora los chicos que usan este fichero tienen que hacer esto manualmente, y aunque me gustaría ayudarles me esta costando algo que funcione. He intentado entender los For Each.. Next. Pero a mi no me quiere funcionar... cosas de ser un novato en esto :(

Agradecería enormemente si alguien puede sacarme de este laberinto en el que me encuentro jaja

Muchas gracias a todos de antemano :)

Como no puedo adjuntar el fichero lo he subido a drive. Si alguien no pudiera descargarlo se lo puedo enviar por email :)

https://drive.google.com/file/d/1Cifj0MnfdxBXr9CZWRAg0gjgO16GNxcz/view?usp=sharing

Link to post
Share on other sites

Hola

Esa forma de tener los datos te va a traer (más) dilema aún. Lee esto:

Enlace

Sobre tu caso particular, en tu archivo no solo hay hojas con números y la palabra "Balance" sino también hay algunas llamadas "Sheetxx". Igual mira, con algo así solo se interactua con las hojas que no tienen la palabra "Balance" en el nombre:

Dim nHoja As Worksheet
Dim Palabra$

Palabra = "*" & UCase("balance") & "*"

For Each nHoja In Worksheets
    
    If Not UCase(nHoja.Name) Like Palabra Then
        Debug.Print nHoja.Name
    End If

Next nHoja

Ahí solo hago que el nombre aparezca en la "Ventana inmediato", pero ya tú con eso deberías poder adaptarlo.

Link to post
Share on other sites

Hola!

Una variante mas

Sub ExcluirHojas()

Application.ScreenUpdating = False

veh = "Balance"
For Each h In ThisWorkbook.Worksheets
    If Not VBA.InStr(1, h.Name, veh, vbTextCompare) > 0 Then
        VBA.MsgBox h.Name
        'TU MACRO AQUI
    End If
Next

Application.ScreenUpdating = True

End Sub

 

Saludos a ambos!

Link to post
Share on other sites

He supuesto que las hojas a tratar no empiecen con la palabra Balance en el nombre y tienen la palabra TOTAL en la columna I.

También he supuesto que las columnas con fórmulas, J y L, no deben borrarse.

Sub BorrarHojas()
Dim Hoja As Worksheet, Total As Range
Application.ScreenUpdating = False
For Each Hoja In Sheets
   If Not UCase(Hoja.Name) Like "BALANCE*" Then
      Set Total = Hoja.Columns("I").Find("TOTAL")
      If Not Total Is Nothing Then
         If Total.Row > 4 Then
            Hoja.Range("B4").Resize(Total.Row - 4, 8).ClearContents
            Hoja.Range("K4").Resize(Total.Row - 4, 1).ClearContents
            Hoja.Range("M4").Resize(Total.Row - 4, 2).ClearContents
         End If
      End If
   End If
Next
End Sub

 

Edited by Antoni
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Hola Alexander, He encontrado una solución que creo que me va. ¿Seras tan amable de revisar y decirme si esta correcto lo que he aplicado? Tambien quiero que me digas si voy de buen camino y si puedo utilizar la misma función para otras celdas - Range("D5").Offset(, 0).Value = LCase(Target) Saludos,
    • hola wess   (y Christian) De tu explicación entiendo una cosa, entiendo que Christian se basó en eso para resolver tu tema.  Pero de tu ejemplo, no entiendo nada.. por ejemplo, en Resultado Esperado, de donde sale el productob en Marzo 61 y de Enero a Diciembre 437 si en tu tabla de Datos el productob tiene un único movimiento en Marzo y es 437, entonces, de donde sale 61?? y del resto ya mejor ni digo nada.. 😵   saludos Silvia
    • Un gusto @Sergio, sinceramente no sabría recomendarte alguna pagina o vídeo en concreto, la cinta que vez arriba la hice con una recopilación de paginas y un poco de prueba y error. Pero te aseguro que no es tan complicado como parece, seguro que con leer un poco  de la documentación del programa le agarras el tiro https://bettersolutions.com/vba/ribbon/custom-ui-editor.htm Saludos.
    • Buenas tardes Alexander, Perfecto. De hecho si que necesito decir para algunas celdas individualmente que tipo de fuente aparezca (Ucas;  Lcase; PROPER). Hasta tu respuesta ire probando. Gracias. Saludos,  
    • MI ESTIMADO  @AlexanderS,  ES JUSTO LO QUE QUERÍA, DE VERDAD NO LO HUBIESE PODIDO HACER DE ESA MANERA TAN SIMPLE COMO TU LO HAS HECHO, Y SE ME OCURRIÓ POR AHÍ AGREGAR UNA LINEA PARA BORRAR EL CONTENIDO ANTES DE OBTENER LAS NUEVAS RECETAS...... Sub Copia_recetas()     Dim Rng$, x#     Dim rept        As Range     Dim celda     With Sheets("BD_Recetas")        Rng = .Range("D1")        Range("C9:C43").ClearContents   -   AGREGUE ESTA LINEA        x = 9        For Each celda In Sheets("Proy.-Comer").Range(Rng)        If celda <> "" Then                 Set rept = .Range("C9:C43").Find(celda, , , xlWhole)                 If rept Is Nothing Then _                    .Cells(x, "C") = celda: x = x + 1                 End If         Next     End With End Sub MUCHAS GRACIAS POR TU APOYO ERES UN GENIO, Y POR LA EXCELENTE LECCIÓN QUE ME HAS DADO, ESTOY HACIENDO UN LIBRO DE PRODUCCIÓN INDUSTRIAL, Y SE QUE NECESITARE DE MAS AYUDA PARA PODER CULMINARLO. SI TENGO OTRA CONSULTA ESPERO PODER MOLESTARTE Y QUITARTE ALGO DE TIEMPO. MILES DE GRACIAS,. Y BENDICIONES.        
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy