Archivar fichas excel en carpetas

08/02/2008 - 07:31 por Jose | Informe spam
Buenos días:
Voy a proponer al foro que me ayude a lo siguiente:
Tengo un Libro "Listado de carpetas de clientes" -hoja 1-A1:A827 con 827
carpetas de clientes que tienen la siguiente estructura de nombre:
<Nº de cliente-Nombre del cliente_codigo postal+espacio+nombre
poblacion-referencia agente>
He aqui un ejemplo:

71001161-Ferreteria El Xerrac,S.L._46970 Alacuas-E43

De otro lado tengo un libro "Listado nº 9 de todos los clientes al 10-1-08",
una hoja"Base de datos 10-1-08" y otra hoja "Ficha"
Ahora expongo un código que me permite imprimir las 827 fichas:

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") 'se podría obviar el InputBox

x = InputBox("Introduce el código de la última ficha a imprimir", "Último
número", "827") 'se podría obviar el InputBox
contador = 1
Y = InputBox("¿Cancelar impresión?", "si quiere cancelar intruzca un 0, sino
1", "1") 'se podría obviar el InputBox
If Y = 0 Then Exit Sub 'se podría obviar el InputBox
Sheets("Plantilla").Select
For N = N To x

Range("J1") = N

If Y = 1 Then Range("I1").Value = "k" Else Range("I1").Value = ""
If Range("I1").Value = "k" Then
'MsgBox ("OK")


ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

contador = contador + 1
End If
If N = x + 1 Then Exit Sub

Next
MsgBox ("el nº de fichas es: ") & contador - 1
End Sub

Lo que necesito es:
Que de la misma manera (o similar, diferente, etc.) que imprime las fichas,
me guarde la ficha correspondiente de cada cliente en la carpeta que le
corresponda guiados por el Nº de cliente que en la hoja "Ficha" se encuentra
en la celda F13 , en la hoja "Base de datos 10-1-08" en la columna L3:L29 y
la carpeta de archivo comienza por el Nº de cliente como ha quedado dicho al
principio.

Las carpeta de archivo que contiene las 827 carpetas de clientes se llama
"Archivo general de clientes" y se encuentra en "C\Mis documentos\"

Para mi será de gran ayuda vuestra colaboración. Gracias.
Saludos
José Rafael
 

Leer las respuestas

#1 José Rafael
08/02/2008 - 14:38 | Informe spam
Por cierto, se me olvidó decir que la ficha ha de ser un archivo "plano", es
decir sin formulas, referencias ó vínculos (pegado especial valores).
Saludos y gracias de nuevo

José Rafael


"Jose" escribió en el mensaje
news:
Buenos días:
Voy a proponer al foro que me ayude a lo siguiente:
Tengo un Libro "Listado de carpetas de clientes" -hoja 1-A1:A827 con 827
carpetas de clientes que tienen la siguiente estructura de nombre:
<Nº de cliente-Nombre del cliente_codigo postal+espacio+nombre
poblacion-referencia agente>
He aqui un ejemplo:

71001161-Ferreteria El Xerrac,S.L._46970 Alacuas-E43

De otro lado tengo un libro "Listado nº 9 de todos los clientes al
10-1-08", una hoja"Base de datos 10-1-08" y otra hoja "Ficha"
Ahora expongo un código que me permite imprimir las 827 fichas:

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") 'se podría obviar el InputBox

x = InputBox("Introduce el código de la última ficha a imprimir", "Último
número", "827") 'se podría obviar el InputBox
contador = 1
Y = InputBox("¿Cancelar impresión?", "si quiere cancelar intruzca un 0,
sino 1", "1") 'se podría obviar el InputBox
If Y = 0 Then Exit Sub 'se podría obviar el InputBox
Sheets("Plantilla").Select
For N = N To x

Range("J1") = N

If Y = 1 Then Range("I1").Value = "k" Else Range("I1").Value = ""
If Range("I1").Value = "k" Then
'MsgBox ("OK")


ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

contador = contador + 1
End If
If N = x + 1 Then Exit Sub

Next
MsgBox ("el nº de fichas es: ") & contador - 1
End Sub

Lo que necesito es:
Que de la misma manera (o similar, diferente, etc.) que imprime las
fichas, me guarde la ficha correspondiente de cada cliente en la carpeta
que le corresponda guiados por el Nº de cliente que en la hoja "Ficha" se
encuentra en la celda F13 , en la hoja "Base de datos 10-1-08" en la
columna L3:L29 y la carpeta de archivo comienza por el Nº de cliente como
ha quedado dicho al principio.

Las carpeta de archivo que contiene las 827 carpetas de clientes se llama
"Archivo general de clientes" y se encuentra en "C\Mis documentos\"

Para mi será de gran ayuda vuestra colaboración. Gracias.
Saludos
José Rafael




Preguntas similares