Autonumeracion

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Autonumeracion

Notapor faby68 » 22 Nov 2004 17:05

hola amigos, mi consulta es como seria el codigo para dar autonumeracion a una celda en excel, como por ejemplo una emision de facturas con sus respectivos numeros correlativos.

gracias
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
faby68
Miembro Frecuente
Miembro Frecuente
 
Registrado: 09 Nov 2004 17:20
Ubicación: chile

Re: Autonumeracion

Notapor Miquel Medina » 23 Nov 2004 04:50

Hola faby, si no voy mal equivocado, primero tienes q crear una variable para el num d presupuesto, por ejemplo:dim numpres as long.
despues tienes q asignarle a la variable el valor de la casilla q contenga el número de presupuesto inicial, por ejemplo: numpres= range("a1").value .
y para q te sume, (al pulsar el boton de nuevo presupuesto, por ejemplo) seria lo siguiente: range("a1").value=numpres + 1.
te coge el valor de la celda con el num de presupuesto y le suma 1.
creo q seria así­. pero seguro q alguno de los genios q han creado el portal t lo podria explicar mejor o darte alguna q otra solucion.
saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Miquel Medina
Miembro Frecuente
Miembro Frecuente
 
Registrado: 14 Oct 2004 10:49

Re: Autonumeracion

Notapor Adrian » 23 Nov 2004 10:44

Estas macros pueden ayudarte:

Sub Contador()'Esta macro permite ver como aumenta el valor de la celda A1
Dim i, c As Long
For i = 1 To 10
For c = 1 To 10000000'Este For es solo para efectuar una demora
Next
[A1] = [A1] + 1'Aumenta el valor
Next
[A1] = Empty'Pongo vací­a la celda al terminar
End Sub

Sub Factura()'Sumponemos que la factura esta en el rango A1:E20, esta macro
'imprime 10 copias numeradas del 1 al 10.
[A1] = Empty
Dim i, c As Long
For i = 1 To 10
For c = 1 To 1000000
Next
[A1] = [A1] + 1
Range("A1:E20").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
[A1] = Empty
End Sub

Todo esto es opcional y puedes acomodar los códigos a tu gusto.

Atte.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: Autonumeracion

Notapor faby68 » 24 Nov 2004 08:33

Muchisimas gracias, uds. son geniales
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
faby68
Miembro Frecuente
Miembro Frecuente
 
Registrado: 09 Nov 2004 17:20
Ubicación: chile


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: leoncitodefelpa y 3 invitados