Red de conocimiento de abogados - Derecho de sociedades - ¿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

Suponiendo que los datos están en la hoja, cópielos a 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) = llegar(i, 1)

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

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

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

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

Finalizar si

Siguiente

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

Fin Sub