Héctor Miguel

por si te sirve: la primera matriz (pivotarpor) al inicio los que no tienen profesor asignado (orden ascendente por omision) la segunda (2 matrices y solo unicos) en el orden de aparicion (no asignados al final) la tercera (2 matrices) omite los no asignados (tambien por orden de aparicion) unicos y suma (ayudaExcel).xlsx

(creo que) no estas contando 'toda la historia' (y te haces trampas tu solo), me explico: (de tu codigo inicial) del libro 'base ... producido.xlsx' 1) cuando consultas la hoja 'mezcla adicion' - que uso das a (o para que sirve) la variable 'Cal5' ??? - solo le asignas un valor pero jamas vuelve a aparecer en el codigo 2) cuando consultas la hoja 'caliza adicion' - por que recorres las filas 371 a 736 (son 366 ciclos -probablemente- innecesarios) ??? - de donde se 'construye' la variable 'fecha' para comparar la columna "A" ??? - hay alguna situacion especial para evaluar SOLO el 'molino 4' ??? 3) por que tanto 'switcheo' entre las variables 'Cal1 a Cal5' para determinar 'caliza' ??? si tienes mas 'detalles en el tintero' ? (es buen momento para comentarlos -todos ?-) sugerencia: decide en cual foro quieres continuar esta consulta o pon un link en cada foro a tu consulta en el otro

lo mismo que te sugeri 'alla'... te dejo tres observaciones 'esencialmente basicas' que estas omitiendo en el codigo que expones: 1ª vba NO es (como) vb 'stand-alone', vba requiere asignar el tipo a cada variable declarada (por lo tanto)... - de tu primera instruccion: Dim sh1, jh2, jh3, jh4, jh5, jh6 As Worksheet SOLO la ultima variable (jh6) es de tipo 'worksheet', las demas 'asumen' Variant (por omision) 2ª a la primera variable (sh1) tampoco le asignaste una referencia - ANTES de la instruccion: If sh1.CheckBox1.Value = True Then DEBES vincular el 'checkbox' con 'su hoja' (que asumo es...) la hoja activa del libro activo ? - agrega una instruccion ± asi: Set sh1 = ActiveSheet 3ª tienes otras variables NO asignadas (y alguna/s del tipo incorrecto) por el resto... la pelota se queda en tu cancha (es un codigo muy 'saltimbanqui') ?

tu codigo es muy 'danzarin' y lo (unico ?) que hace es agregar saltos de pagina segun condiciones, pero en ningun lado aparece la instruccion de imprimir (?) si tu intencion es que se imprima (solo) la ultima pagina ?, al final de tu procedimiento de insertar saltos (ANTES del 'End Sub' ) agrega esta linea: ActiveSheet.PrintOut ExecuteExcel4Macro("get.document(50)")

cuando instalas (o RE-instales) office 2010, llegas a un paso donde puedes optar por otras herramientas, independientemente de que instales solo excel, asegurate de desplegar las opciones para vba y su ayuda, analiza la imagen

prueba cambiando tu procedimiento actual por otro ± como este: Sub browseFilesByPattern(): Dim ruta As String, patron As String, tipo As String, archivo As String ' procedimiento para listar/obtener archivos de cierto patron en el nombre ' _ R&D: Héctor Miguel Orozco Díaz © ® ™ (junio de 2011) ' _ INCLUYE ESTO cuando lo reproduzcas (by GNU/GPL -Generic Public License-) ' _ => bajo cualquier ajuste, enmienda o personalizacion <= ' ruta = ThisWorkbook.Path patron = [c6] ' <= celda donde escribes 'parte' del nombre a filtrar ' tipo = "*.doc" ' <= este 'filtro' es importante !!! y depende del tipo de archivo a buscar (SOLO 3 caracteres) ' With Application.FileDialog(msoFileDialogFilePicker) .Title = "Selecciona UN archivo" .Filters.Add "Word Files", tipo & "?", 1 ' <= cambia "Word Files" por el tipo real que se busca ' .FilterIndex = 1: .AllowMultiSelect = False .InitialFileName = ruta & "\*" & patron & tipo If .Show Then archivo = .SelectedItems.Item(1) End With: End Sub analiza el codigo y... lo que hagas con la variable 'archivo'... ya depende de tus necesidades ?

analiza tu adjunto en devolucion con funciones de matriz dinamica (m365), adapte (tambien) los 'unicos' por funciones m365 si alguna funcion no la tienes disponible, comenta, para buscar otros medios de solucion suma varia hojas (ayudaExcel).xlsx

lo mismo que te puse "alla": 1) el evento '_SelectionChange' se dispara cada que se cambia la seleccion en la hoja (celda o rango) 2) el evento que se dispara cuando se cambia una entrada en celdas es '_Change' 3) el evento que se dispara cuando la celda 'actualiza' por efectos de formula es '_Calculate' 4) la propiedad '.FormulaR1C1' depende de la celda activa al momento de depositarla en celdas 5) ese desplazamiento de "R[3]C[1]" hace referencia a 3 filas abajo y 1 columna a la derecha de... 'la celda activa' 6) esa celda activa pudiera NO ser la que esperas (?) 7) en esa instruccion: 'Aux = ContarNPC(...' - que es 'ContarNPC(...' ?, una funcion personalizada ?, que toma y que devuelve ?

(probable o seguramente) deberas mediar con la funcion FILTRAR(... publica (exacta y completa) la formula y forma en que usas la funcion UNICOS(...

esto lo resuelves desde la interfaz de usuario, dialogo de 'buscar y reemplazar' selecciona las columnas "E:G" (o solo el rango de afectacion) primer reemplazo buscar: el punto => reemplazar: nada (vacio) segundo reemplazo a) si tu separador decimal es la coma ? buscar: la coma => reemplazar: la coma (otra vez) b si tu separador decimal es el punto ? buscar: la coma => reemplazar: el punto al final deberas aplicar el formato numerico de tu preferencia

define "algunas" - sabes cuales ? - quieres una lista y de ahi eliges ? define "otro lugar" - algunas ubicaciones dependen del usuario en turno quisieras conservar las celdas donde hay formulas ? - OJO si hay vinculos a otras hojas y si prefieres una hoja por libro o todas en el mismo libro

analiza tu muestra en devolucion con algunas funciones 365 a 'bote-pronto' (no se si dispones de todas, algunas o ninguna ?) que devuelven lo que pides la eventualidad que no se cubre son casos de salida y (RE)ingreso (tu muestra no los contempla ni se sabe cuantas veces pudieran presentarse) fecha estado (ayudaExcel).xlsx

excelente truco, si tan solo se pudiera automatizar la cuenta de palabras (o espacios) en los apellidos 🤔 (creo que) seguirá quedando "a ojo de buen cubero" 🫡

mira por aqui: Refresh Pivot Table while keeping the external source data open refresh both the External data source and pivot tables together within a time schedule How to open Excel without refreshing data

mucho mejor 👍🫡