Jump to content

MACRO PARA GERERAR INFORMES DE CORRESPONDENCIA


Recommended Posts

Expertos saludos a todo de esta comunidad informática, mi duda es que no logro ubicar si fuera un error o desbordamientos de código, lo que pasa es que me funciona muy bien la macro realizar los reportes por cada alumno, el detalle es que cuando en algunos reportes los criterio evaluación no coinciden cada criterio no lo esta tomando bien  para sacar el total, tengo mas de 30 alumnos por cada archivo, me tomado el afán de revisar cada reporte en algunos reportes del alumno lo cuadra muy bien la sumatoria pero en algunos reportes no los toma bien el total sale mas a en otros casos menos  no lo generando la sumatoria de acuerdo a los criterios eso es el único detalle que me sale en mi registro de correspondencia....Adjunto el archivo por favor.

muchas gracias a la comunidad.

 

  

Rubricas 1 A 1 Primaria V2.xlsm

Link to post
Share on other sites

Muchas gracias bigpetroman, si como lo digo funciona bien crea los reportes bien por cada alumno pero en algunas hojas del reporte los coloca mal los criterios de evolución y sumados todo ellos no concuerda con el total, como lo digo solo en algunos 

Link to post
Share on other sites

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

Link to post
Share on other sites

Si disculpe, pero como lo digo solo eso necesito esa macro necesito que me replique la correspondencia pero hasta ahí funciona bien pero en la sumatoria en algunas correspondencias no lo suma bien solo eso el total sale distinto a los criterios.

Link to post
Share on other sites

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

 

Link to post
Share on other sites

Bigpetroma, eres un genio al final me diste la solución lo es probado con el código que a me ha dejado y funciona bastante bien hasta ahora así como esta ejecutando es la solución perfecta, gracias por ahora seria tema cerrado.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • Buenas tardes Haplox, es justo lo que necesitaba, funciona perfecto. Muchas gracias. Solucionado.
    • Hola a todos, Espero poder explicarme bien. Adjunto archivo y a continuación la explicación. Tengo una gran base de datos de la cual necesito pasar los datos de 2 columnas no contiguas a filas mientras éstos tengan el mismo ID. En el ejemplo, a partir de la columna L (marcado en rojo) pongo intercalado los valores de la columna K y D en la misma fila mientras el ID_FORMULA (columna A) sea igual y siempre en la primera fila del grupo (por grupo me refiero a igual valor en columna A). Aclaro que la cantidad de filas por ID no es fija. Ejemplo.xlsxPuede ser desde 2 filas hasta 7.  En el ejemplo, hay de 3, 5 y 4 filas.  Como son 900.000 filas se me ocurre que lo mejor es hacer un macro pero no sé como o tal vez haya otra forma sin macros.  Agradezco la ayuda. 
    • Yo pienso que si, y desde luego me apoyo en lo que he entendido, pero tu debes estar mas claro, sobre lo que necesitas ¡Suerte!   Saludos
    • Te dejo una solución según lo que explicas. Saludos Copia de Ejemplo.xlsm
    • José Lamento te hayas confundido con el (mal) ejemplo que puse en codigo,,,Cubo es una hoja por cierto y estoy copiando a otra, cuyo nombre está en la variable cractual, colu es un numero de columna al igual que columnacr, pero ---olvida ello y dale una mirada al adjunto por favor ...alli está lo que quiero hacer
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy