consulta consecutivo

William Garcia escribió:

Buen dia

tengo este formato pero quiero que me copie todo y en cuenta de cobro me
coloque el consecutivo

muchas gracias

Hola William :-)

El formato expuesto te valdria para una sola copia, lo unico que
necesitarias es cambiar el consecutivo, para ello lo necesitarias hacer
mediante código, Perooo Te pregunto puesto que necesito mas detalles
para acercarme mas a tu necesidad :-) ok?

¿Necesitas imprimirlo?¿necesitas guardar copia de este impreso por
numero consecutivo?

Nos comentas mas detalles ok? :-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

muchas gracias

Solo necesito imprimirlo y que me copiee todo el contenido me lo pase a la
siguiente pagina y me actualice el consecutivo.


"Tux" escribió en el mensaje
news:

William Garcia escribió:

Buen dia

tengo este formato pero quiero que me copie todo y en cuenta de cobro me
coloque el consecutivo

muchas gracias

Hola William :-)

El formato expuesto te valdria para una sola copia, lo unico que
necesitarias es cambiar el consecutivo, para ello lo necesitarias hacer
mediante código, Perooo Te pregunto puesto que necesito mas detalles para
acercarme mas a tu necesidad :-) ok?

¿Necesitas imprimirlo?¿necesitas guardar copia de este impreso por numero
consecutivo?

Nos comentas mas detalles ok? :-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

William Garcia escribió:

muchas gracias

Solo necesito imprimirlo y que me copiee todo el contenido me lo pase a la
siguiente pagina y me actualice el consecutivo.


"Tux" escribió en el mensaje
news:

William Garcia escribió:

Buen dia

tengo este formato pero quiero que me copie todo y en cuenta de cobro me
coloque el consecutivo

muchas gracias

Hola William :-)

El formato expuesto te valdria para una sola copia, lo unico que
necesitarias es cambiar el consecutivo, para ello lo necesitarias hacer
mediante código, Perooo Te pregunto puesto que necesito mas detalles para
acercarme mas a tu necesidad :-) ok?

¿Necesitas imprimirlo?¿necesitas guardar copia de este impreso por numero
consecutivo?

Nos comentas mas detalles ok? :-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Hola William :-)

Decirte que he estado con una macro que he recopilado de una web
haciendo comprobaciones y demas, pues esa macro que servia en este caso
para esta necesidad tenia varios errores, sobre todo a la hora de poner
el numero consecutivo y estoy corrigiendolos por lo tanto me llevara un
tiempo arreglarlo como mucho en dos dias te lo subire aqui mediante
archivo para que puedas visualizarlo todo mejor.

Y siento el atraso :-)



Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

ah perfecto muchas gracias por tu colaboracion


"Tux" escribió en el mensaje
news:evAk$%

William Garcia escribió:

muchas gracias

Solo necesito imprimirlo y que me copiee todo el contenido me lo pase a
la siguiente pagina y me actualice el consecutivo.


"Tux" escribió en el mensaje
news:

William Garcia escribió:

Buen dia

tengo este formato pero quiero que me copie todo y en cuenta de cobro
me coloque el consecutivo

muchas gracias

Hola William :-)

El formato expuesto te valdria para una sola copia, lo unico que
necesitarias es cambiar el consecutivo, para ello lo necesitarias hacer
mediante código, Perooo Te pregunto puesto que necesito mas detalles
para acercarme mas a tu necesidad :-) ok?

¿Necesitas imprimirlo?¿necesitas guardar copia de este impreso por
numero consecutivo?

Nos comentas mas detalles ok? :-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Hola William :-)

Decirte que he estado con una macro que he recopilado de una web haciendo
comprobaciones y demas, pues esa macro que servia en este caso para esta
necesidad tenia varios errores, sobre todo a la hora de poner el numero
consecutivo y estoy corrigiendolos por lo tanto me llevara un tiempo
arreglarlo como mucho en dos dias te lo subire aqui mediante archivo para
que puedas visualizarlo todo mejor.

Y siento el atraso :-)



Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

William Garcia escribió:

ah perfecto muchas gracias por tu colaboracion

Buenas William :-)

Pues ya lo tengo, te explico un poco, ok?

Este archivo tiene dos macros:

1ª macro: Inserta el numero correlativo o consecutivo guardando cada
numero y su documento en un archivo nuevo segun su serie. (Macro
realizada por Doug Robbins y modificada por mi puesto que el numero
consecutivo salia erroneo)


2ª macro: Te une todos los archivos en uno solo , para que tengas en un
mismo documento todo los archivos que se han ido grabando en la macro
Anterior. (Macro realizada Por Martha MP MVP Office, Publicada en
www.fermu.com)

3ª macro : Es un codigo de Saludo (no pasa nada aunque se pulse antes de
ejecutar macros :-)

Antes de ejecutar estas macros, has de crearte una carpeta (yo la he
llamado pruebas) y dentro de ella
situas este archivo que te he subido para que veas el resultado, luego
te tienes que ir al codigo de ellas antes de probar nada y modificar
la ruta,
has de cambiar esta ruta que tiene el codigo, Por donde tu tengas tu
carpeta:

"C:\Documents and Settings\usuario\Mis documentos\pruebas"


Bien a la hora de recrear y pasar estas macros a tu archivo original,
para que te funcione la primera
macro, tienes que insertar en el documento Dos Marcadores
(inserta/marcador) de la siguiente manera: (Se pueden visualizar en el
documento con menú Edicion/ir a/marcador)

El primer Marcador lo he llamado [Uno] y el segundo marcador llamado
[Order], para que nos hagamos una idea
imaginaria quedarian asi:

UnoPamplona

No.Order0010


Y entonces ya se puede ejecutar la macro una vez estan insertados estos
marcadores para su buen funcionamiento.

La primera macro te creara un archivo llamado Settings.txt en tu unidad
de disco en mi caso en la unidad C:\
en el cual se iran grabando tu numeros correlativos para que si por
ejemplo alguna vez quieres poner el marcador a
cero simplemente tendras que borrar por el numero en el que se halla
quedado y poner el numero 1 para empezar otra
vez.

Y creo que no me he dejado nada mas, Bueno haz las pruebas necesarias y
nos comentas cualquier duda ok? :-)


Saludos
Monica


PD: Dejo aqui los codigos por si acaso no saliera el archivo en google.

'-
Sub Auto_Numerar()

'Macro original de Dug Robbins modificada por Monica D.

Application.ScreenUpdating = False

Order = System.PrivateProfileString("C:\Settings.Txt", _
"MacroSettings", "Order")


Selection.GoTo What:=wdGoToBookmark, Name:="Order"
Selection.MoveRight Unit:=wdCharacter, Count:=4


If Order = "" Then
Order = 1
Else
Order = Order + 1
End If

System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "0#00")

Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace

Selection.GoTo What:=wdGoToBookmark, Name:="Uno"

ChangeFileOpenDirectory _
"C:\Documents and Settings\usuario\Mis documentos\pruebas\"

ActiveDocument.SaveAs FileName:="Numero_" & Format(Order, "0#00")

Application.ScreenUpdating = True


End Sub

'-



Sub InsertarFichero()

'Macro realizada Por Martha MP MVP Office


Dim strFichero As String
Dim strRuta As String
Dim MiRango As Range

strRuta = "C:\Documents and Settings\usuario\Mis documentos\pruebas"
'Debes poner la ruta de la carpeta donde tengas los archivos

strFichero = Dir$(strRuta & "\*.doc")
Documents.Add
' Para añadir los ficheros

Do Until strFichero = ""
With Selection
.InsertFile FileName:=(strRuta & "\" & strFichero)
.Collapse wdCollapseEnd
.InsertBreak wdSectionBreakNextPage
' Inserta un salto de sección de página siguiente. Puedes
'modificarlo a tu gusto

End With

strFichero = Dir()
Loop

Set MiRango = Nothing

End Sub



¡Un SAludo! :-)

www.fermu.com
www.zorval.es