Con el código que a continuación expongo, imprimo una serie de fichas
correlativas mediante la entrada con InputBox de los numeros de las fichas
(primero y último)
Quisiera modificar este codigo para que me imprimiera determinadas fichas
cuyos numeros no son correlativos pero que pertenecen a un rango nombrado
por ejemplo CP30010 entre otros rangos a elegir y cuya composición de
numeros puede variar en la cantidad y que se encuentran en filas sucesivas
de la misma columna.
Los titulos de los rangos se encuentra en la Hoja "Murcia", en la fila 2 y
los numeros empiezan en la fila 4 con una longitud de filas variable, cada
titulo en una columna diferente y por ello necesito las líneas de codigo
necesarias para elegir un titulo o nombre de rango e imprimir los numeros de
fichas que lo compongan.
He aqui un ejemplo:
1ª linea columna K 1ª linea columna L 1ª linea columna M
CP30007 CP30008 CP30009 ...(2ª línea)
MURCIA MURCIA MURCIA..(3ª línea)
765 790 26 ... 4ª
551 541 527 ... 5ª
599 644 ... 6ª
.. etc.
685
40
Sub Imprimirfichasdeclientes()
'
Dim N As Integer
Dim x As Integer, contador
On Error Resume Next
N = InputBox("Introduce el código de la primera ficha a imprimir", "Primer
número", "1")
x = InputBox("Introduce el código de la última ficha a imprimir", "Último
número", "830")
contador = 1
y = InputBox("¿Cancelar impresión?", "si quiere cancelar intruzca un 0, sino
1", "1")
If y = 0 Then End
Sheets("Plantilla").Select
For N = N To x
Application.Run "'Listado nº 9 de todos los clientes al
10-1-08.xls'!Imprimirestaficha"
contador = contador + 1
End If
If N = x + 1 Then Exit Sub
Next
MsgBox ("el nº de fichas es: ") & contador - 1
End Sub
Leer las respuestas