Antoni

Seguramente, te falta activar esta referencia.

¡Perfecto!

La solución ideal sería que unificaras las tres tablas en una sola, si prefieres continuar tal como lo tienes debes eliminar las filas tabla a tabla. Cuando tenga un rato, miraré de darte una solución.

No encuentra el valor buscado aquí: Set FILA = Sheets("AMPARO").Range("A:A").Find(ValorBuscado, Lookat:=xlWhole)

Abre el adjunto y pulsa sobre la flecha azul. A ver si te vale. Libro1 (6).xlsm

Sin el archivo va a ser imposible.

Lo puedes hacer igual, llegado el punto, si no te interesa el formulario, lo ocultas y punto, cuando pueda, subo un ejemplo de lo que te digo.

Es un problema de estructura, muestra el formulario de entrada y pon el código de tu macro en el evento Activate del Userform y en el evento Click del ComboBox, si no lo ves claro, sube tu archivo.

Te dejo esta UDF que hace lo que quieres. Function ExtraerCarpetas(Ruta As String) As String Carpetas = Split(Ruta, "\") ExtraerCarpetas = Carpetas(UBound(Carpetas) - 2) & "\" & Carpetas(UBound(Carpetas) - 1) & "\" End Function Revisa las fórmulas de la columna D. P extraer nombre de carpeta.xlsm

Estás utilizando la variable X para dos cosas distintas For X = 5 To Lines y también aquí: X = Cells(X, 24) & "|"

Prueba el adjunto Libro1 (2).xlsm

Sube tu archivo y explica que quieres hacer.

Private Sub CheckBox1_Click() Dim respuesta as String respuesta = InputBox("Introduce el password ", "Password") If LCase(respuesta) = "123" Then OcultarMostrarFilasColumnas End If End Sub

Podría ser esto: =SI(Y(SUMA(C:C)>0;SUMA(E:E)>0);SUMA(C:C;E:E);"") si tienes MSO365 también valdría: =LET(x;SUMA(C:C);y;SUMA(E:E);SI(Y(x>0;y>0);x+y;""))

Es el problema de utilizar .RowSource, dicha propiedad establece un link entre los datos de la hoja y el listbox. Cada vez que actualizas un datos se actualizan los datos del listbox y saltan todos los eventos relacionados. Para evitarlo, borra la propiedad .RowSource, (Listbox1.RowSource="") antes de actualizar la hoja y vuelve a llenar la propiedad .RowSource al final (Ejemplo ListBox1.Rowsource="MiHoja!A2:M30"). Si n o te aclaras, sube tu archivo.

Utiliza Selection.ListObject.ListRows.Add (1) en lugar de Selection.Insert Shift:=xlDown, COPYORIGIN:=xlFormatFromRightOrBelow

Listo. PRUEBA - copia.xlsm

Prueba a ver. PRUEBA 1 (1).xlsm

Insisto, sin el archivo imposible decirte nada.

Sin vuestro archivo, imposible decirte nada.

Application.Visible=False

Este es tu último archivo con la fórmula de la celda B25 modificada. excel.2 (2).xlsm

Estás confundiendo el rango a sumar con la celda del color a comparar. ¿Y si pruebas con la fórmula así en B25? =@sumarcolor(B21:AX21;A25)

Function CONTARCOLOR(celdaOrigen As Range, rango As Range) Application.Volatile 'Variables Dim celda As Range 'Recorremos todas las celdas del rango For Each celda In rango 'Compara la propiedad Interior.Color If celda.Interior.color = celdaOrigen.Interior.color And celda <> "" Then CONTARCOLOR = CONTARCOLOR + 1 End If Next celda End Function

La función sumarcolor funciona correctamente en el archivo que has subido, mira la fórmula de la celda E6 del adjunto. excel.2.xlsm