NUMERACION AUTOMATICA

Que tal Esterlla:
Enviame un mail ( solo para teer tu mail, ya que por aqui no se puede
adjuntar archivos ) y a vuelta de corre te envio el codigo ya puesto en
funcion,.. al que lo solicite claro esta, lo apoyamos con lo poquito que he
aprendido y lo mucho que me han enseñado..

saludos




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

"estrella73" escribió en el mensaje
news:
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.

Saludos a la Comunidad y Saludos a jesus
He estado haciendo pruebas con el archivo que me mandaste, pero no
logro hacer que me funcione cuando hago una pestaña nueva.
me podrias decir que puedo incluir en el codigo para que cada vez que
haga una pestaña nueva dentro de la misma hoja me sume el folio (en
cada pestaña nueva que abro)

Gracias

Jesús Peralta ha escrito:

Que tal Esterlla:
Enviame un mail ( solo para teer tu mail, ya que por aqui no se puede
adjuntar archivos ) y a vuelta de corre te envio el codigo ya puesto en
funcion,.. al que lo solicite claro esta, lo apoyamos con lo poquito que he
aprendido y lo mucho que me han enseñado..

saludos




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

"estrella73" escribió en el mensaje
news:
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.

Olá Estrella73
Intenta con este código que és mui sensillo e te deve servir.
______________________________--
Sub Macro1()
If IsNumeric(Range("L2")) Then
Range("L2") = Range("L2").Value + 1
End If
End Sub
__________________________________________
Claro está que la Celda "L2" terás que poner la celda onde quieras que te
aparesca el nº.
Puedes formatar essa celda con la mascara que quieras por ex: "001" o "01" o
0001" etc.
Para ensertares este códigohaces lo seguiente:
-Clic direcho en el separador de la hoja onde vás colocae la numeracion
-Ver código
-En la ventana que te sale pegas ai tu código
-Despues és solo alterara la celda para la que quieras poner ela numeracion
Espero que te sirva
Un saludo portugues.

"estrella73" escreveu na mensagem
news:
Saludos a la Comunidad y Saludos a jesus
He estado haciendo pruebas con el archivo que me mandaste, pero no
logro hacer que me funcione cuando hago una pestaña nueva.
me podrias decir que puedo incluir en el codigo para que cada vez que
haga una pestaña nueva dentro de la misma hoja me sume el folio (en
cada pestaña nueva que abro)

Gracias

Jesús Peralta ha escrito:

Que tal Esterlla:
Enviame un mail ( solo para teer tu mail, ya que por aqui no se puede
adjuntar archivos ) y a vuelta de corre te envio el codigo ya puesto en
funcion,.. al que lo solicite claro esta, lo apoyamos con lo poquito que
he
aprendido y lo mucho que me han enseñado..

saludos




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

"estrella73" escribió en el mensaje
news:
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.

Gracias Albino

Me ha funcionado de maravilla, pero tambien lo que ocupo es que el
numero se incremente automaticamente al hacer una nueva pestaña dentro
de la misma hoja
Cuando creo una nueva pestaña se pasa el mismo numero, lo que deseo es
que se incremente cuando hago una pestaña nueva

Muchas Gracias por tu ayuda albino y ojala tengas mas ayuda en mi
problema

Gracias

Albino ha escrito:

Olá Estrella73
Intenta con este código que és mui sensillo e te deve servir.
______________________________--
Sub Macro1()
If IsNumeric(Range("L2")) Then
Range("L2") = Range("L2").Value + 1
End If
End Sub
__________________________________________
Claro está que la Celda "L2" terás que poner la celda onde quieras que te
aparesca el nº.
Puedes formatar essa celda con la mascara que quieras por ex: "001" o "01" o
0001" etc.
Para ensertares este códigohaces lo seguiente:
-Clic direcho en el separador de la hoja onde vás colocae la numeracion
-Ver código
-En la ventana que te sale pegas ai tu código
-Despues és solo alterara la celda para la que quieras poner ela numeracion
Espero que te sirva
Un saludo portugues.

"estrella73" escreveu na mensagem
news:
Saludos a la Comunidad y Saludos a jesus
He estado haciendo pruebas con el archivo que me mandaste, pero no
logro hacer que me funcione cuando hago una pestaña nueva.
me podrias decir que puedo incluir en el codigo para que cada vez que
haga una pestaña nueva dentro de la misma hoja me sume el folio (en
cada pestaña nueva que abro)

Gracias

Jesús Peralta ha escrito:

> Que tal Esterlla:
> Enviame un mail ( solo para teer tu mail, ya que por aqui no se puede
> adjuntar archivos ) y a vuelta de corre te envio el codigo ya puesto en
> funcion,.. al que lo solicite claro esta, lo apoyamos con lo poquito que
> he
> aprendido y lo mucho que me han enseñado..
>
> saludos
>
>
>
>
> Jesús Peralta
> Hermosillo, Sonora, Mexico
> el_ultimo_profeta"alt+64"hotmail.com
>
> "estrella73" escribió en el mensaje
> news:
> 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.

Mercedes escribió el 17/10/2006 13:15 :

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 a todos,
He desarrollado un complemento de Excel que genera folios autonumericos para cualquier hoja de calculo que tengan. Ademas pueden guardar la informacion de sus formatos y procesarla para generar reportes facil y rapido.
Aqui pueden ver como funciona: http://youtu.be/g8Ah8uDZYYU
Y aqui puden descargar el programa y las instrucciones de instalacion: http://cronytech.jimdo.com/descargas/

No dejen de avisarme si les sirve..