Proyecto ambicioso (o no)

23/01/2007 - 12:23 por Mafoso | Informe spam
Buenas Sres.
Siguiendo con mi hoja de pedidos.
Quisiera agumentar la "funcionalidad" de la hoja de la siguiente manera:
Deseo/Quiero controlar el numero de pedidos realizados por los vendedores
segun fecha. He pensado que se podria hacer de la siguiente manera:
Ubicar para cada vendedor el archivo PEdido Original, "personalizado" por
vendedor (es decir indicando que es el libro pedido de Manolo p.e.,) en una
carpeta concreta.
Dado el "peso" del libro (incluye tarifas i descuentos + codigo) hacer que
se guarde una copia de la hoja pedido "sin ná" con un nombre de libro
asignado segun nombre cliente/fecha/hora/vendedor ( y/o similar).
Que cada vez que se genere el libro pedido se traspasen datos a un libro de
Control Pedidos (en "poder" del jefe de ventas) para controlar la producción.
No se si pido mucho, si es así disculpad el Abuso
Idea inicial:
Insertar boton para guardar el pedido (solo la hoja pedido, sin codigo ni
formulas y el resto de hojas) solicitando un nombre, hacer que solo se pueda
guardar la hoja con otro nombre mediante este boton ( he visto ejemplo en el
grupo en el que se deshabilita las opciones de Guardar Archivo y sus
variantes, pero no he conseguido que funcione y quiero agregarle mas opciones
y no se como hacerlo(limitadito que es uno...) ), evitando de esta manera que
se pueda modificar el Libro pedido Original. Antes de guardar solicitar un
nombre de archivo al Vendedor (para que sea su referencia, por experiencia
ingresaran nombre cliente) y a dicho nombre agregarle nombre vendedor y fecha
como nombre de archivo a guardar. Guardar archivo y crear anotación en libro
Control Pedidos (Traspasando Valores de algunas celdas concretas y "anotando"
fecha y hora de generacion del archivo).

Nota: Si considerais que parto desde premisas erroneas hacedme saber vuestra
solucion/idea.

Muchas Gracias, desde ya.
Marc

Preguntas similare

Leer las respuestas

#1 Francisco Parrilla
25/01/2007 - 05:38 | Informe spam
Prueba este codigo en cualquier modulo como se explico anteriormente:

ChDir "e:\pruebas"
ThisWorkbook.Sheets(1).Copy
'Fecha del archivo
ffile = Format(Now, "DDMMMYY")

'Suponiendo que:
' A1 o B1 = Cliente / Vendedor
ActiveWorkbook.SaveAs Range("a1").Value & ffile & Range("b1").Value

MsgBox ThisWorkbook.Path & vbCr & ActiveWorkbook.FullName


Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida