Macro para reacomodar datos en otra hoja...

Hola buen día...
Una breve pregunta...
Tengo una hoja como a continuación se describe:
Aprobado folio nombre paterno codigo1 codigo2 codigo3
     SI 001 Juan Perez 11111 22222 33333
                     002 Jose Sanchez 4444 55555 6666
     SI 003 Pedro Juarez 7777 8888
Al poner "SI" en la columna APROBADO me pase los valores a otra hoja de la manera siguiente:
          Folio nombre paterno códigos
          001 Juan Perez 11111
          001 Juan Perez 22222
          001 Juan Perez 33333
          003 Pedro Juarez 7777
          003 Pedro Juarez 8888
Dependiendo de que tantos códigos tenga son las veces que se van a repetir los valores de las columnas FOLIO, NOMBRE y PATERNO.
¿La mejor opción seria con macros?
Saludos y muchas gracias por la ayuda.

1 Respuesta

Respuesta
1
El libro que he hecho tiene las hojas MAESTRO con todos los datos y COPIA donde se copian como tu quieres.
En Herramientas Macro Editor de Visual basic despliega a la izquierda vbaproject y luego thisworkbook y pega este código.
Dim z
Sub verificarAprobados()
encontrarUltimoRegistro
i = 2
While Sheets("MAESTRO").Cells(i, 2).Value <> ""
    If Sheets("MAESTRO").Cells(i, 1).Value = "SI" Then
        j = 5
        While Sheets("MAESTRO").Cells(i, j).Value <> ""
            Sheets("COPIA").Cells(z, 1).Value = Sheets("MAESTRO").Cells(i, 2).Value
            Sheets("COPIA").Cells(z, 2).Value = Sheets("MAESTRO").Cells(i, 3).Value
            Sheets("COPIA").Cells(z, 3).Value = Sheets("MAESTRO").Cells(i, 4).Value
            Sheets("COPIA").Cells(z, 4).Value = Sheets("MAESTRO").Cells(i, j).Value
            j = j + 1
            z = z + 1
        Wend
    End If
    i = i + 1
Wend
End Sub
Sub encontrarUltimoRegistro()
z = 2
While Sheets("MAESTRO").Cells(z, 1).Value <> ""
    z = z + 1
Wend
If z <> 2 Then
    z = z - 1
End If
End Sub
Hola muchas gracias por tu tiempo..
Lo probé y funciono correctamente solo una vez pero ya no logre hacerlo trabajar.
Saludos
No te entiendo. Si vas a herramientas, macros, ¿macro no tienes una que es verificarAprobados y si la ejecutas no funciona?
Encontré un error en el código que buscaba en donde estaba el ultimo registro de la hoja copia. Pega este nuevo código y prueba.
Dim z
Sub verificarAprobados()
encontrarUltimoRegistro
i = 2
While Sheets("MAESTRO").Cells(i, 2).Value <> ""
    If Sheets("MAESTRO").Cells(i, 1).Value = "SI" Then
        j = 5
        While Sheets("MAESTRO").Cells(i, j).Value <> ""
            Sheets("COPIA").Cells(z, 1).Value = Sheets("MAESTRO").Cells(i, 2).Value
            Sheets("COPIA").Cells(z, 2).Value = Sheets("MAESTRO").Cells(i, 3).Value
            Sheets("COPIA").Cells(z, 3).Value = Sheets("MAESTRO").Cells(i, 4).Value
            Sheets("COPIA").Cells(z, 4).Value = Sheets("MAESTRO").Cells(i, j).Value
            j = j + 1
            z = z + 1
        Wend
    End If
    i = i + 1
Wend
End Sub
Sub encontrarUltimoRegistro()
z = 2
While Sheets("COPIA").Cells(z, 1).Value <> ""
    z = z + 1
Wend
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Crear Macro, con condiciones y editar celda

¿Cómo crear una macro que Busque en toda la hoja, (bucle con condiciones), introduciendo texto y se pueda editar celda?
1 respuesta

Extraer datos de celdas descontinuas de una hoja de excel.

Extraer datos de celdas descontinuas de una hoja de excel y enviarlos a otra hoja donde hay una tabla donde se van a ir agregando los datos por cada día en la parte de abajo. Ejemplo datos de: HOJA1 J11, H12, E18, O19,020, O21, O22, F23, J23...
1 respuesta

Al agregar columnas en una hoja de Excel, se desconfiguraron unas fórmulas.

Tengo un archivo de Excel con 4 hojas en una tengo RENTAS y en la segunda NOTAS en donde al ponerle el número de pedido me jala la información de la hoja RENTAS. Pero tengo la necesidad de agregar más columnas con más productos, y al agregar esas...
2 respuestas

Uso de filtros avanzados y listbox en userfotm

Tengo una tabla, con nombre, productos y mes, ¿Cómo filtrar por mes y aparezca en un listbox de un userform?
3 respuestas

Cómo asignar una letra para el año de una fecha

Tengo una celda (J22) que contiene una fecha (12/03/2024), y otra celda que lee esa fecha y segun el año le asigna una letra, con esta formula =SI(TEXTO(C5;"aaaa")="2024";"A/";""), en este caso A/. El valor de la celda J22, puede cambiar dependiendo...
2 respuestas

¿Macro en excel que sombree las celdas con condiciones?

Macro en excel que sombree las celdas de la columna "G" que suman el valor de cada celda de la columna "D" si como condición la celda "E" dice "campeon"
1 respuesta

¿Cómo coloreo los resultados: de amarillo a los valores menores al rango, y de color rosa a los valores mayores, en excel?

Tengo la siguiente lista: A B C 1 NUM1 NUM2 RESULTADO 2 10 20 5 3 30 40 35 4 50 60 70 Por ejemplo, me gustaría que el resultado fuera así: -> Que la celda "C2" se pinte de amarillo, porque "5" es menor al rango 10 a 20. -> Que la celda C3 no cambie...
2 respuestas

Importación desde Access 2007 de un fichero Excel 2007 con 900.000 filas

Que me parece 'de locos'. La base del problema es que quiero importar desde Access un fichero Excel con unas 900,000 filas. Y a partir de ahí, me encuentro con que en mi PC 'de siempre' lo puedo hacer sin ningún tipo de problemas, pero cuando lo...
2 respuestas

Cómo llenar una celda de excel con los datos de otras celdas ?

Necesito rellenar la celda de observaciones, con los datos de otras dos celdas. Por ejemplo, es una excel de llamadas telefónicas y funciona de esta manera: Cuando realizó la llamada telefónica, en la columna de "Estado" tengo una lista desplegable....
1 respuesta