La Red de Conocimientos Pedagógicos - Currículum vitae - ¿Imprimir filas de celdas con el mismo número en una tabla EXCEL en una página?

¿Imprimir filas de celdas con el mismo número en una tabla EXCEL en una página?

Utilice un bucle para imprimir secuencialmente un número determinado en una hoja nueva, que es una página con un número

Suponga que los datos están en la hoja y cópielos en otras hojas. usando vba

Sub print()

Rango("A2:E10000") = ""

Dim i, x, brr(1 a 10000, 1 A 5)

s = InputBox("Ingrese el número que se va a imprimir", "Mensaje del sistema: Consulta")

x = WorksheetFunction.CountIf(Sheets(1).Range ("E:E"), s )

Si x = 0 Entonces

MsgBox "No existe tal número, vuelva a ingresar"

Salir de Sub

Fin si

x = Sheets(1).Range("E65536").End(xlUp).Row

arr = Sheets(1).Range( "a2:e" & x)

Para i = 1 a UBound(arr)

Si arr(i, 5) = s Entonces

n = n 1

brr(n, 1) = arr(i, 1)

brr(n, 2) = arr(i, 2)

brr (n, 3) = arr(i, 3)

brr(n, 4) = arr(i, 4)

brr(n, 5) = arr(i, 5)

Finalizar si

Siguiente

[a2].Resize(n, 5) = brr

Fin Sub