NUMERACION AUTOMATICA

Que tal Mercedes:
Aqui te pongo el codigo para la numeracion Automatica, esperando te sea de
utilidad, si tienes alguna duda de donde ponerlo, comentas..

Private Sub Workbook_Open()

' Mensaje para saber si se va a hacer un folio nuevo
' y cambiar el numero y la fecha
If MsgBox("DESEA GENERAR UN NUEVO FOLIO", vbYesNo, "Confirmar") _
= vbYes Then

' Incrementamos el numero del folio
Sheets("Hoja1").Range("H4") = Sheets("Hoja1").Range("H4") + 1

' Guardamos el libro con el numero cambiado
ActiveWorkbook.Save

' Colocamos la fecha del sistema
Range("H3").Value = Date


Else
End If

End Sub


saludos

Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Mercedes" escribió en el mensaje
news:

Hola a todos,

Recientemente me han tenido que formatear el ordenador, antes de eso en la
pestaña herramientas en excel, tenía dos opciones que eran NUMERACION
AUTOMATICA Y REINICIAR NUMERACION.

Utilizaba esas opciones para numerar secuencialmente una plantilla de

pedido

que tengo.

Ahora no consigo encontrar esa opción por ningún sitio y tengo que numerar
los pedidos manualmente, con la consiguiente perdida de tiempo mirando en

el

archivo el último número utilizado.

Utilizo la versión 2003 edición Professional.

Muchas gracias.

Hola Mercedes:

No quiero desanimarte, pero lo que tenías antes de formatear tu DD no
viene con Excel; son pequeños programas (macros) que alguien había
creado y "colgado" de tu barra de menús.

Saludos,

Hola Jesús,

Muchas gracias, me está siendo muy útil, me resulta incluso más cómodo que
el sistema que tenía antes.

Lo único es que sigo todos los pasos y he cambiado el nombre de las celdas
donde tengo la casilla de autonumeración, pero no me guarda el cambio, por lo
que cuando vuelvo a abrir el libro me da siempre el mismo número, es decir me
lo incrementa pero siempre es dos.

Si desde visual lo ejecuto me da un error y me marca de amarillo la
sentencia de guardar el libro de trabajo activo.

Tienes idea de que puede estar pasando.

Muchas gracias de nuevo.
"Jesús Peralta" escribió:

Que tal Mercedes:
Aqui te pongo el codigo para la numeracion Automatica, esperando te sea de
utilidad, si tienes alguna duda de donde ponerlo, comentas..

Private Sub Workbook_Open()

' Mensaje para saber si se va a hacer un folio nuevo
' y cambiar el numero y la fecha
If MsgBox("DESEA GENERAR UN NUEVO FOLIO", vbYesNo, "Confirmar") _
= vbYes Then

' Incrementamos el numero del folio
Sheets("Hoja1").Range("H4") = Sheets("Hoja1").Range("H4") + 1

' Guardamos el libro con el numero cambiado
ActiveWorkbook.Save

' Colocamos la fecha del sistema
Range("H3").Value = Date


Else
End If

End Sub


saludos

Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Mercedes" escribió en el mensaje
news:
> Hola a todos,
>
> Recientemente me han tenido que formatear el ordenador, antes de eso en la
> pestaña herramientas en excel, tenía dos opciones que eran NUMERACION
> AUTOMATICA Y REINICIAR NUMERACION.
>
> Utilizaba esas opciones para numerar secuencialmente una plantilla de
pedido
> que tengo.
>
> Ahora no consigo encontrar esa opción por ningún sitio y tengo que numerar
> los pedidos manualmente, con la consiguiente perdida de tiempo mirando en
el
> archivo el último número utilizado.
>
> Utilizo la versión 2003 edición Professional.
>
> Muchas gracias.

Que tal Mercedes, checate que las condiciones que cambias (celdas) sean
cambiadas en:

' Incrementamos el numero del folio
Sheets("Hoja1").Range("H4") = Sheets("Hoja1").Range("H4") + 1
el nombre de la hoja1 y a celda H4 se cambian tal como estan,.. Las dos
indicaciones sean cambiadas a la celda que quieras cambiar.

Si tienes aglun detalle, escribeme al correo de abajo y te lo envio casi
igual a como lo tenias antes..
saludos

Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Mercedes" escribió en el mensaje
news:

Hola Jesús,

Muchas gracias, me está siendo muy útil, me resulta incluso más cómodo que
el sistema que tenía antes.

Lo único es que sigo todos los pasos y he cambiado el nombre de las celdas
donde tengo la casilla de autonumeración, pero no me guarda el cambio, por

lo

que cuando vuelvo a abrir el libro me da siempre el mismo número, es decir

me

lo incrementa pero siempre es dos.

Si desde visual lo ejecuto me da un error y me marca de amarillo la
sentencia de guardar el libro de trabajo activo.

Tienes idea de que puede estar pasando.

Muchas gracias de nuevo.
"Jesús Peralta" escribió:

> Que tal Mercedes:
> Aqui te pongo el codigo para la numeracion Automatica, esperando te sea

de

> utilidad, si tienes alguna duda de donde ponerlo, comentas..
>
> Private Sub Workbook_Open()
>
> ' Mensaje para saber si se va a hacer un folio nuevo
> ' y cambiar el numero y la fecha
> If MsgBox("DESEA GENERAR UN NUEVO FOLIO", vbYesNo, "Confirmar") _
> = vbYes Then
>
> ' Incrementamos el numero del folio
> Sheets("Hoja1").Range("H4") = Sheets("Hoja1").Range("H4") + 1
>
> ' Guardamos el libro con el numero cambiado
> ActiveWorkbook.Save
>
> ' Colocamos la fecha del sistema
> Range("H3").Value = Date
>
>
> Else
> End If
>
> End Sub
>
>
> saludos
>
> Jesús Peralta
> Hermosillo, Sonora, Mexico
> el_ultimo_profeta"alt+64"hotmail.com
>
> "Mercedes" escribió en el mensaje
> news:
> > Hola a todos,
> >
> > Recientemente me han tenido que formatear el ordenador, antes de eso

en la

> > pestaña herramientas en excel, tenía dos opciones que eran NUMERACION
> > AUTOMATICA Y REINICIAR NUMERACION.
> >
> > Utilizaba esas opciones para numerar secuencialmente una plantilla de
> pedido
> > que tengo.
> >
> > Ahora no consigo encontrar esa opción por ningún sitio y tengo que

numerar

> > los pedidos manualmente, con la consiguiente perdida de tiempo mirando

en

> el
> > archivo el último número utilizado.
> >
> > Utilizo la versión 2003 edición Professional.
> >
> > Muchas gracias.
>
>
>

Saludos jesus

Vi el problema que tenia mercedes y tengo uno igual ya que hago
requisiciones de material por medio de excel y tengo que numerar los
folios de cada hoja de manera manual, me podrias explicar como poner el
codigo a funcionar, (en donde lo inserto,como lo grabo y como lo activo
en las hojas)ya que nunca he usado codigos y este me seria de gran
utilidad.

Gracias por su paciencia y ayuda..

Jesús Peralta wrote:

Que tal Mercedes:
Aqui te pongo el codigo para la numeracion Automatica, esperando te sea de
utilidad, si tienes alguna duda de donde ponerlo, comentas..

Private Sub Workbook_Open()

' Mensaje para saber si se va a hacer un folio nuevo
' y cambiar el numero y la fecha
If MsgBox("DESEA GENERAR UN NUEVO FOLIO", vbYesNo, "Confirmar") _
= vbYes Then

' Incrementamos el numero del folio
Sheets("Hoja1").Range("H4") = Sheets("Hoja1").Range("H4") + 1

' Guardamos el libro con el numero cambiado
ActiveWorkbook.Save

' Colocamos la fecha del sistema
Range("H3").Value = Date


Else
End If

End Sub


saludos

Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Mercedes" escribió en el mensaje
news:
> Hola a todos,
>
> Recientemente me han tenido que formatear el ordenador, antes de eso en la
> pestaña herramientas en excel, tenía dos opciones que eran NUMERACION
> AUTOMATICA Y REINICIAR NUMERACION.
>
> Utilizaba esas opciones para numerar secuencialmente una plantilla de
pedido
> que tengo.
>
> Ahora no consigo encontrar esa opción por ningún sitio y tengo que numerar
> los pedidos manualmente, con la consiguiente perdida de tiempo mirando en
el
> archivo el último número utilizado.
>
> Utilizo la versión 2003 edición Professional.
>
> Muchas gracias.