crengifo

Buenas noches excelente muchas gracias.

Buenas tardes estimado, no se que quieres decir. Lo que solicito es lo siguiente antes colocaba varias identificaciones y obtenía nombres y el estados de su Rut, pero ahora según la imagen debo hacer que la macro seleccione que es un ser humano al dar el clic en el cuadro para poder extraer los datos. Saludos

Buenas tardes estimado, Tengo una macro de consulta masiva que hasta el año pasado me funcionaba de maravilla. Pero para este año han colocado un captcha y no me esta funcionado. Me gustaría que me ayudaran con este tema de validad el captcha. Adjunto archivo. Saludos Cnsulta.rar

Buenas tardes estimado JSDJSD. La macro funciona correctamente. Ahora con respecto a la ultima consulta donde agrego otra condición de la fecha donde esta debe ser igual a la consulta o un día menos (consulta hace referencia ala celda C2), no doy co esta solución. La idea es que si el valor con las 3 condiciones (Ultimo valor de la columna K, valor 4 de la columna B y la fecha que mencione anteriormente) es igual a vacio me traiga el dato valorComparacionPrehomo, si al dato hacer la comparcion del menor. Hice esto pero no me da: With hojaBaseDatos For fila = .Cells(.Rows.Count, "K").End(xlUp).Row To 1 Step -1 If .Cells(fila, "B").Value = 4 And .Cells(fila, "K").Value <> 0 And .Cells(fecha - 1, "A") Then ultimoValorBaseDatos = .Cells(fila, "K").Value Exit For End If Next fila End With If ultimoValorBaseDatos = 0 Then valorFinal = valorComparacionPrehomo Else ' Comparación entre el valor de Prehomo y el último valor de Base de datos valorFinal = Application.Min(valorComparacionPrehomo, ultimoValorBaseDatos) End If ' Escribir el resultado en la celda N1 de la hoja Cemento hojaCemento.Range("N1").Value = valorFinal Saludos, cualquier ayuda estare atento. Te deseo un feliz y prospero año nuevo

Buenos días Héctor y muchas gracias por responder mis temas. Si recuerdas el tema del post era un checkbox (V para Mezcla, F para Caliza), al compañero JSDJSD se me olvido decirle (Como cosa rara jejejeeje) que la macro se ejecutara dependiendo del checkbox. Después al final cambie el checkbox por la validación desplegable de Caliza o Mezcla, que fue con lo seguimos trabajando hasta ahora. En el otro foro (Forotodoexcel) te envie una consulta, en lo que puedas me podrías colaborar. Saludos y un bendecido y prospero año nuevo.

Buenos días estimado JSDJSD, como podríamos hacer esta sección del código ' Obtener el último valor de la columna K en Base de datos Cementos producido 2024 ' que cumpla con las condiciones en las columnas B y K With hojaBaseDatos For fila = .Cells(.Rows.Count, "K").End(xlUp).Row To 1 Step -1 If .Cells(fila, "B").Value = 4 And .Cells(fila, "K").Value <> 0 Then ultimoValorBaseDatos = .Cells(fila, "K").Value Exit For End If Next fila End With ' Comparación entre el valor de Prehomo y el último valor de Base de datos valorFinal = Application.Min(valorComparacionPrehomo, ultimoValorBaseDatos) ' Escribir el resultado en la celda N1 de la hoja Cemento hojaCemento.Range("N1").Value = valorFinal Exactamente aquir: If .Cells(fila, "B").Value = 4 And .Cells(fila, "K").Value <> 0 Then Agregar otra condicion que se n dia anterior al de la consulta. De tal manera que al buscar con estas tres condiciones y no encuentre valor tome el valor valorComparacionPrehomo, si hay valor aplica el codigo: ' Comparación entre el valor de Prehomo y el último valor de Base de datos valorFinal = Application.Min(valorComparacionPrehomo, ultimoValorBaseDatos) ' Escribir el resultado en la celda N1 de la hoja Cemento hojaCemento.Range("N1").Value = valorFinal Saludos y en espera de tus valiosos comentarios.

Buenos dias estimados, Quisiera que me ayudaran con lo siguiente, tengo una hoja donde debo extraer datos de las columnas N, O, P y R (Molinos 3 y 4) y K, l , M y O (Molino 5) si los hay segun mes solicitado en la celda C2 de la hoja Resistencias de tres procesos para 3 molinos. La idea es que me traiga los días del mes solicitado, el tipo de cemento y las resistencias. Las resistencias están en en las columnas N, O, P y R para los molinos 3 y 4. Y para el molino 5 están en lasa columnas K, l , M y O. Yo tengo una macro pero solo me trae los datos del día que solicito. Adjunto los archivos (Como hago para enviar un archivo que supera los 100kB) Saludos y espera de sus valiosos comentarios. Resistencias.xlsm

Buenas tardes estimado JSDJSD, muchas gracias por responder. En efecto esta parte quedo perfecta. Pero me falto indicar que la macro se ejecute dependiendo de la celda L1 ( Caliza o Mezcla). Entonces si dice Caliza aplica la macro que me enviaste, pero si dice Mezcla que haga lo siguiente: Busque el ultimo dato de la columna K de la hoja Mezcla Adición del libro Base de datos Cementos producido 2024, con la condición de que la columna B debe ser igual a 4 y el dato lo coloque en la celda N1 de la hoja Cemento del libro Cemento. Te comento que el libro Prehomo y Base de datos Cementos producidos 2024 están en carpetas diferentes ya que estos los maneja otra área, como se enmendaría este caso por el comentarios que me enviaste de la ruta. Saludos y un fuerte abrazo Cemento-2.xlsm

Cemento.xlsx PREHOMO.xlsx

Base datos Cementos producido 2024.xlsx

Buenos días, listo. El objetivo es que en la celda N1 de la hoja Cemento del libro Cemento se coloque el dato de las comparaciones. La primera comparación se realiza de los dos últimos datos de la columna K de la hoja Caliza Adición Cto del Libro Prehomo, de tal manera que si el ultimo valor es mayor realice un promedio de los dos datos y es menor tome ese valor. Ahora la siguiente comparación hace referencia a la columna K de la hoja Caliza Adición del libro Base de datos Cementos producido 2024 con la condición que la columna B debe ser igual a 4, con esta condición toma el ultimo valor de la columna K y lo compara con el dato obtenido en el proceso anterior y de estos se toma el menor. Saludos y muchas gracias por el apoyo.

Buenos días gracias por responder, dinámica porqué todos los días laboratorio ingresa datos entonces el resultado me varia a diario para poder tomar decisiones. Como la consulta la hago desde otra ubicaciones donde debo abrir varios libros. Donde compara dos libros. Necesito el valor menor de las comparaciones. Ya envie los archivos. Saludos

Buenos dias compañeros seria posible que me ayuden con el siguiente tema, quiero hacer una macro que me compare los dos últimos datos de una columna dinámica de tal manera que si el ultimo es mayor tome el promedio de los dos dos datos y si es menor tome ese valor. Además después se compare con el ultimo dato de una columna de otro libro de tal manera que se tome el menor de estos dos. Agradezco en lo que me puedan orientar, estaré atento a sus comentarios.

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.