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 ''''''

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

Saludos @victorjavega revisa el anexo en la tabla que está entre BS y BW eliges la información a agregar y listo, en aulas solo te van a aparecer las disponibles para el día y hora elegidas Aulas.xlsm

Saludos @alvaroballes, con el permiso del maestro @Antoni, te dejo un archivo que creo que hace lo que buscas, mientras al celda este en color naranja (el mismo color que la celda A1 de la hoja config) se agrega a los cuadros semanales donde NO se haya agregado antes, es decir, si ya se agrego a una semana NO se agrega nuevamente así siga en color naranja, solo se agrega a las semanas que no se ha agregado aún suerte Seguimiento campañas_BP.xlsm

Saludos @jhon fredy, como estaba sin hacer nada, me puse a inventar para ver si hacia un código mas rápido, te dejo el archivo con varias opciones (una mas lenta que las otras, pero bueno, te sirve de ejemplo) cada una se ejecuta con uno de los botones flechas, y te dice el tiempo en segundos que tarda sopa de letras.xlsm

Saludos @jhon fredy, sin indagar mucho en el código, creo que una opción es invirtiendo el código a buscar, mira el ejemplo en tu función Private Sub Buscar_Horizontal(Texto As Range) Dim sTextInv As String For i = Len(Texto) To 1 Step -1 sTextInv = sTextInv & Mid(Texto, i, 1) Next i For x = 1 To 42 cadena = "" For y = 3 To [HB1].Column cadena = cadena & Cells(x, y) Next For i = 1 To Len(cadena) - Len(Texto) + 1 If Mid(cadena, i, Len(Texto)) = Texto Or _ Mid(cadena, i, Len(Texto)) = sTextInv Th

Saludos @hectorcc_18, realmente NO es necesario saber ninguna dirección, simplemente con que el complemento este activado (instalado) es suficiente. por ejemplo, creo un complemento llamado "MiComplemento.xlam" y tiene una función que suma dos valores, llamada "sumaPrueba", y otra que simplemente muestra un mensaje con este código, llamo a dicha función del complemento Sub Ejecutar() Dim ElComplemento As AddIn Dim nResultado As Double 'verificamos si el complemento está instalado If AddIns("MiComplemento").Installed = True Then Set ElComplemento = Add

amigo @darkstars9976de verdad que es complicado ayudarte asi, y si dices que tu nivel no te ayuda, pues mas aún. si quieres recibir ayuda, sube una muestra de ambos archivos y explicando que es lo que deseas hacer, para ver si te ayudamos, suerte

Saludos @karrakilla, revisa el anexo, las macros están en el módulo mGeneral, cuando cargas los txt las macros se llaman automáticamente de txt a excel 2.xlsm

Saludos @Potter08, cuando haces esto Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole) y se consigue el valor buscado, ya Rng hace referencia a esa celda, incluyendo hoja y todo, es decir, tu pudieras hacer por ejemplo Rng.Resize(1, 10).Copy y con eso estas copiando desde la celda Rgn, hasta 10 columnas a la derecha Suerte

Saludos @MauriciodeAbreu de verdad que no entiendo nada, baje el archivo que dejaste pero no entiendo nada, no se donde haces la validación, recuerda que es tu archivo, tu lo conoces, nosotros no, ayuda para que podamos ayudarte

@MauriciodeAbreucon un coincidir es mas que suficiente, esa función te regresa error si NO coincide ningún dato con lo buscado. eso es lo mas que puedo ayudar, sin archivo y sin mas nada, es complicado

@giussepe.colan@gmail.com amigo, el problema es el libro compartido, erróneamente te indique que si se puede, pero no, esta forma de proteger es valida para libros NO compartidos, que si te permite actualizar datos sin necesidad de bloquear o desbloquear hojas. y eso es algo propio de Excel en los libros compartidos, allí NO hay nada que hacer al respecto, salvo que busques alternativas 1.- Lo recomendable es que todo lo que necesites tener como base de datos lo tengas una base de datos, pudiera ser Access sin embargo puedes usa también un archivo de excel sin problemas (y le colocas

Saludos @giussepe.colan@gmail.com, el problema es que los archivos compartidos NO pueden desbloquearse las hojas, directamente, a juro es necesarios des-compartir el archivo para poder desbloquear una hoja. sin embargo existe una solución muy fácil y no entiendo porque la mayoría de los usuarios no la aplican. bloquea tus hojas de esta forma wLaHoja.Protect Password:=sClaveHojas, UserInterfaceOnly:=True, DrawingObjects:=False, _ Contents:=True, Scenarios:=True wLaHoja, es tu hoja a bloquear sClaveHojas, es la clave que vas a colocar. de esta