Solucionado cuando he optado por sumar los días de lectura a la fecha de comienzo Gracias Duda3.xlsm

Buenas tardes. He solucionado esto haciendo una tabla adicional (en la hoja Anual),  primero junto los datos que quiero y así ya puedo buscar en ella, pero me encuentro con otro problema. Si una de las búsquedas, en este caso un libro, me deja la fecha de comienzo en un apunte y la de final en otro... me quedo con el dato del primer apunte, que está vacío. (Ejemplo Libro 6) ¿Que puedo hacer para que me devuelva el dato del segundo apunte? Gracias por vuestro tiempo Duda2.xlsm

(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

Buenas tardes compañero tengo los siguiente, me esta resultado pero no me esta extrayendo el ultimo valor de la columna K del rango especificado, me podrían ayudar creo que es por que tiene celdas vacias dentro del rango especificado. Como solucionaría este impase agradezco sus comentarios. Sub extraer() Dim jh5 As Workbook Dim sh1, jh6 As Worksheet Dim ndatos, uvalor As Double Application.ScreenUpdating = False     Set sh1 = ThisWorkbook.Sheets("Hoja1")     If sh1.Cells(1, "L").Value = "Mezcla" Then              Set jh5 = Workbooks.Open("\\10.7.10.1\calidad\RegCalidad 2024\Molienda de Cemento y Empaque\Base datos Cementos producido 2024.xlsx", ReadOnly:=True)     Set jh6 = Sheets("MEZCLA ADICION")     ndatos = Application.WorksheetFunction.Count(jh6.Range("K371:K736"))     uvalor = Application.WorksheetFunction.Index(jh6.Range("K371:K736"), ndatos)     sh1.Cells(1, "N") = uvalor          jh6.Activate     ActiveWorkbook.Close          Else            'Call calizaco          End If        Application.ScreenUpdating = True End Sub  

La macro lo que pretende es hacer lo siguiente: En primera instancia no tenia el checkbox por lo tanto la macro estaba realizando su trabajo en cual consiste en los siguiente. Revisa la columna K de la hoja CALIZA ADICIÓN CTO y compara los dos últimos datos, si el ultimo dato es mayor que el anterior los suma y los divide entre 2, ahora si el ultimo dato es menor toma ese dato. Luego verifica la columna K de la hoja CALIZA ADICION, si el ultimo valor es menor que el obtenido en la fase anterior toma este nuevo valor sino deja el valor anterior. Resulta que no se tomo en cuenta la mezcla de materia prima. Entonces se me ocurrió usar un select que cuando utilicemos la mezcla haga otro procedimiento sino hago el procedimiento ya mencionado y es aquí donde me enrede. Espero haberme explicado. Ahora si de alguna manera se puede mejorar lo que tengo se los agradecería.