bigpetroman

Saludos @jeaa, realmente no revise mucho, simplemente cambie la posición de una linea donde se "guarda" el archivo, ya que estaba dentro de un bucle y eso hacia que el archivo se guardara constantemente. Sistema de Entradas, Salidas y Almacén.xlsm

amigo @jeaa el problema es que realmente yo no se que es esa formula, no se que es ese valor de 60,4 que tienes alli ni el porque lo divides entre 5 (me imagino que es la cantidad de items), si solo quieres dejar el valor entero sin mas. puedes usar esta formula =SI($C$45>0;REDONDEAR(BD!F4-(60,4-$B$48)/5;0);"") y aplicas lo mismo en las otras columna (colocar el redondear) puedes hacerlo? suerte

amigo @jeaa de verdad no se como mas ayudarte, tu formula en la tabla es esta =SI($C$45>0;BD!F4-(60,4-$B$48)/5;"") alli claramente tienes un decimal (60,4) restandole la nota, luego eso entre 5, es muy probable que siempre tengas decimales allí, como no entiendo que eso, no se como ayudarte, creo que deberías revisar tu formula.

@jeaa pero ese es el valor, 66.6, está bien lo que dice el Excel y la calculadora, o hay algún otro problema?

saludos @jeaa, realmente el problema con tu suma es que los valores en las celdas son decimales si colocas dos decimales vas a ver lo que digo, por eso si sumas con la calculadora te da un valor diferente

@jeaa mientras sigas ignorando los comentarios será difícil, está macro simplemente sustituye en tu hoja el nombre del alumno y la la nota, si hay algún cálculo y NO cuadra, pues es simplemente tu archivo y las formulas que tengas, NO es ningún problema de la macro. mientras NO termines de explicar que hace tu archivo o que es lo que necesitas y coloques algún ejemplo de lo que NO cuadra, pues será complicado. suerte

amigo, lamentablemente NO nos estamos entendiendo, tu quieres que la macro haga algo pero no terminas de explicar, lo mas que voy a hacer por ti es dejarte esta macro que hace lo mismo que tu macro original pero mucho mas resumida Sub correspondencia() Dim NumCriterios As Variant Dim nCantDatos As Double Dim nDatos As Double Dim wHoja As Worksheet Dim nVariable As Integer Dim sVariable As String Dim sDatos As String ' ' correspondencia Macro ' ' Acceso directo: CTRL+a ' ''''''''''''''''''pedimos la cantidad de crieterios ''''''''''''''''''''''''''''''''''''''''''''''''''''''' NumCriterios = InputBox("Escribe el número de criterios") 'Caja de texto para escribir el numero de criterios If IsNumeric(NumCriterios) = False Then Exit Sub '''''''''''''''''' obtenemos la cantidad de datos a procesar ''''''''''''''''''''''''''''''''''''''''''''''''''''''' nCantDatos = Sheets("BD").Cells(Rows.Count, "A").End(xlUp).Row 'contar el numero de nDatos For nDatos = 2 To nCantDatos 'Ciclo para realizar las combinaciones Worksheets("Correspondencia").Copy Before:=Sheets(nDatos) Set wHoja = ActiveSheet For nVariable = 1 To NumCriterios sVariable = Worksheets("BD").Cells(1, nVariable).Value sDato = Worksheets("BD").Cells(nDatos, nVariable).Value wHoja.Cells.Replace What:="<" & sVariable & ">", Replacement:=sDato, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 'Busca y reemplaza los valores de la base de nDatos Next nVariable Next nDatos End Sub de resto no puedo ayudarte mas, pues tienes que ayudarme a entender para poder ayudarte, la macro supuestamente busca hasta 8 campos (tu macro original) en la tabla de la hoja DB, pero esa hoja solo tiene 2 campos nombre y nota, no veo el sentido de elegir 8 criterios cuando NO existen. y lo otro, dices que algunos no te cuadran, pero no dices cual para revisar. suerte

yo veo lo que hace la macro, simplemente hace una copia de la hoja Correspondencia y supuestamente sustituye los criterios o campos, pero en este caso simplemente cambia solo dos, <nombre> y <nota> y tu hablas hasta de 8 criterios, si puedes explicar lo que intentas hacer

@jeaa lamentablemente NO puedo bajar videos, mi internet no es muy buenos y no tengo casi datos

Saludos @jeaa , me parece que tu archivo está incompleto o no lo entiendo, según tu código se toman las variables de la hoja DB que van desde la columna A hasta la H según la cantidad de variables, pues es algo ilógico, pues tu tabla de DB solo tiene dos columnas (nombre y nota), es decir, el código en teoría sería para esas dos variables nada mas (aunque lo que vi está mal también), por favor si puedes aclarar eso y explicar un poco mejor puede ser que le dedique un tiempo y te ayude, suerte la idea es saber exactamente que es lo que quieres hacer para poder ayudarte

saludos @jeaa, baje el archivo para ver si entendía algo pero nada, de verdad si no explicas mejor que problemas tienes y das un ejemplo de cuando si lo hace bien y cuando no, va a ser difícil que recibas ayuda

Saludos @MCA , revisa el anexo, no conozco del tema pero vi un ejemplo y creo que no es nada complicado, realice varias pruebas y todas dan el valor correcto, puedes agregar tantas filas como columnas necesites (siempre insertando dentro de la misma tabla para que no se pierda la referencia) suerte Método de la esquina noroeste.xlsm

Saludos amigo @Haplox, he llegado tarde a la fiesta pero allí va mi comentario. yo he tenido estos problemas muchas veces (el UCASE, FORMAT, etc) que fallan sin explicación aparente, pero te puedo asegurar que prácticamente el 100% de las veces es por problemas de referencias, no necesariamente que te falte una referencia a una librería, sino que tienes marcada una referencia a un objeto que NO está disponible en dicha maquina, si en el momento que te da el problema revisas las referencias del proyecto de seguro veras alguna que dice FALTA o MISSING, y por consiguiente el objeto o código asociado es el que genera la falla pero NO sé el porque se refleja como si fuera el UCASE o el FORMAT el que estuviera fallando. para esos casos hay que revisar y re programar, como indicaron antes, tratar de usar controles nativos de Excel (forms 2.0) y no controles que no sean compatibles entre versiones, sobre todo si usas indistintamente versiones de 32 y 64 bits. estoy a la orden para tratar de ayudarte en lo que pueda, uso Excel 2016 en mi casa, en la empresa Excel 2003 (si, aunque usted no lo crea 😂😂😂 )