Haplox

@xavima espero parte de tu suelfo este mes No te vale con una tabla dinamica? Puedes añadir los campos q necesites Libro1-1.xlsm

@xavima culpa mia, suni el fichero aquivocado Libro1.xlsm

@xavima te dejo una solucion para un casi, el resto serian mas o menos lo mismo. La macro esta en los eventos de la hoja RES. El codigo edta comentado para q veas como va Libro1.xlsx

@Milton Cordova como q en cualquier celda? . No he entendido nada...

No tiene sentido . No hay nada en las macros que limite el número de filas. Revisa si hay algún hueco entre filas, porque entonces sí se pararía la macro

El problema Susana está, por una parte, aquí: For j = 1 To 12 MultiPage1.Pages(1).Controls("Textbox" & j) = .Cells(i, j + 1) Next Solo estás rellenando textbox, pero... en el multipage tienes varios Combobox . Lo que tienes que hacer es cambiarlos por textbox y renombrarlos todos para que te coincidan. Así el primer combobox sería el Textbox5, y de ahí para abajo renombrar los demas

Nos interesa a todos... podemos empezar a contar votos

@jose lopez contreras, creo que tienes un pequeño jaleo... Tienes estas 2 líneas en el evento Change del primer textbox Me.ListBox1.ColumnWidths = "240 pt;100 pt" Image1.Picture = LoadPicture("") En en las propiedades del listbox le tienes puesto 10 columnas, lo llenas con 12 y le das esos valores a las 2 primeras columnas. ¿Ves por dónde van los tiros?

No he entendido nada... donde tienes el activex? En la hoja? Quieres eliminer la imagen del activex o el propio fichero d la foto

No puedes poner el encabezado como criterio del filtro, sin saber qué quieres hacer: Range("DN1:DQ219").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("DW2:DZ2"), CopyToRange:=Range("DW3:DZ280"), Unique:=True

Un error mío al teclear . Es: Application.DisplayAlerts = False Application.DisplayAlerts = True

Pon al principio de la macro: Application.DiaplayAlerts=Flase Y al final: Application.DiaplayAlerts=True Lógico, perro estas cosas se explican al principio . Lo único que puedes hacer, estando en red, es compartir el libro. No es problema de la macro, es que windows funciona así

Por cierto... Ya solo hacer un condicional para que si no está pagado algún mes también sea 50 mes = Month(Date) For Each con In UserForm1.Controls If con.Name = "TextBox" & mes Then con.Value = 50 ElseIf con.Name <> "TextBox" & mes Then con.Value = 0 End If Next con End Sub

Con lo fácil que era subir esa imagen de principio y explicar lo de la suma. En fin...

Pues entonces empieza tu pregunta de la forma correcta, no a medias para que luego digas que encima no funciona . Tienes los códigos. Solo cambiando lo que se haría con él tienes la solución. Te toca a ti