Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 10/30/2020 in all areas

  1. 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
    1 point
  2. 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
    1 point
  3. @jeaa lamentablemente NO puedo bajar videos, mi internet no es muy buenos y no tengo casi datos
    1 point
  4. 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
    1 point
  5. Hola, si subes el archivo que tienes si te podremos ayudar, en caso contrario es dificil
    1 point
  6. hola silvi y hola cristian;silvia,lo tuyo excelente y cristian,el ejemplo que subi el otro dia esta modificado,lo que sucedio(lo tuyo fue espectacular)pero mi compañero que esta usando esta planilla tiene una comput.muy vieja y se hacia muuuuy lento en esa maquina el "recalculo"con el boton,por eso busque esta 2da opcion;mil gracias a ambos,son unos genios;espero poder ayudar yo tambien asi a la gente del foro
    1 point
  7. Ahora estoy en la calle, en un par de horas vuelvo y lo pruebo y si, además es excelente tu observación x la cantidad de filas(me hizo reír como lo comentaste) muchas Graciassssss Silvia
    1 point
  8. Que barbaridad jajaja
    1 point
  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy