............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

necesito hacer una macro que me escriba una cantidad grande de numeros.

Ver el tema anterior Ver el tema siguiente Ir abajo

necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por elpoter el Sáb Dic 04, 2010 9:05 pm

hola a todos, buenas noches, les comento que me dijo un user de aca que se podia hacer una macro para que me escriba desde 2,00000001 al 3,00000001 sin necesidad de arrastrar, me dijo que poniendo el numero inicial y despues el final algo asi.
Yo la verdad nunca hice una macro y soy muy inexperto, si me pueden ayudar se los voy a agradecer.
Un abrazo grande y la verdad MIS FELICITACIONES A LA HERMOSA COMUNIDAD!!

elpoter

Masculino Cantidad de envíos : 22
Edad : 27
Ciudad - Pais : Argentina
Version de Excel : 2010
Fecha de inscripción : 25/09/2010

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Logroastur el Sáb Dic 04, 2010 10:32 pm

Buenas coloca el siguiente codigo en un modulo
Código:

Sub NumerosCorrelativos()
    Dim CelIni As Range, NInicio As Long, NFin As Long
    Dim fil As Long, col As Long, x As Long
    NInicio = Application.InputBox("Indique número de inicio", Type:=1)
    NFin = Application.InputBox("Indique número a finalizar", Type:=1)
    Set CelIni = Application.InputBox("Indique celda iniciar", Type:=8)
    For x = NInicio To NFinal
        If fil > 65535 Then fil = CelIni.Row: col = col + 1
        CelIni.Offset(fil, col) = x
        fil = fil + 1
    Next x
End Sub


un saludo
avatar
Logroastur
Moderador
Moderador

Masculino Cantidad de envíos : 32
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Tatayayan el Lun Dic 06, 2010 8:47 pm

Hola, siguiendo el lineamiento de Logroastur, pongo macro para evitar el for
Es para Excel 2007, para 2003 modificar:
If NFin > 1048576 Then NFin = 1048576
por
If NFin > 65536 Then NFin = 65536

Código:


Sub PonerCorrelativos()
  Dim CelIni As Range, NInicio As Long, NFin As Long
  NInicio = Application.InputBox("Indique número de inicio", Type:=1)
  NFin = Application.InputBox("Indique número a finalizar", Type:=1)
  If NFin > 1048576 Then NFin = 1048576
  Set CelIni = Application.InputBox("Indique celda iniciar", Type:=8)
  CelIni.Value = NInicio: CelIni.Offset(1, 0).Value = CelIni + 1
  Range(CelIni, CelIni.Offset(1, 0)).AutoFill Destination:=Range(CelIni, CelIni.Offset(NFin - 1, 0))
End Sub

avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Tatayayan el Lun Dic 06, 2010 9:10 pm

Rectifico mi código

Código:
Sub PonerCorrelativos()
 On Error GoTo x
  Dim CelIni As Range, NInicio As Long, NFin As Long
  NInicio = Application.InputBox("Indique número de inicio", Type:=1)
  NFin = Application.InputBox("Indique número a finalizar", Type:=1)
  If NFin > 1048576 Then NFin = 1048576
  Set CelIni = Application.InputBox("Indique celda iniciar", Type:=8)
  CelIni.Value = NInicio: CelIni.Offset(1, 0).Value = CelIni + 1
  Range(CelIni, CelIni.Offset(1, 0)).AutoFill Destination:=Range(CelIni, CelIni.Offset((NFin - NInicio), 0))
  Exit Sub
x:
  MsgBox "Error en la entrada de datos", 64, ""
End Sub
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por elpoter el Lun Dic 20, 2010 3:03 pm

muchas gracias, no tengo ni idea donde poner eso, pero ahora averiguare, gracias de verdad!! si lo logro hacer les comento que paso!!!

elpoter

Masculino Cantidad de envíos : 22
Edad : 27
Ciudad - Pais : Argentina
Version de Excel : 2010
Fecha de inscripción : 25/09/2010

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Logroastur el Lun Dic 20, 2010 3:10 pm

Buenas para colocar los codigos facilitados lo que debes de realizar es
Abrir el libro excel
Presionar Alt y F11 a la vez
se abrira una ventana donde a la izquierda te apareceran la lista de las hojas existentes en el libro y a la derecha pantalla gris.
sobre la lista de las hojas picas boton derecho raton y seleccionas insertar hay seleccionas Modulo
ahora en la parte derecha tendras una ventana blanca hay pegas el codigo
luego si lodeseas puedes asociar la macro a un boton o forma en la hoja que desees
para ello insertar una forma o boton y con picas boton derecho raton y le indicas asignar macro y seleccionas la macro

un saludo

_________________


ForoExcel


avatar
Logroastur
Moderador
Moderador

Masculino Cantidad de envíos : 32
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por elpoter el Lun Dic 20, 2010 4:30 pm

holaa, demasiadas gracias, pero cuando ingreso la macro pongo el numero inicial que seria

3,0000001 y final 4,0000001

me escribe del 3 al 4 :S

y yo quiero que vaya desde el

3,0000001 y despues pase al 3,0000002 y asi hasta el 4,0000001
se entiende?
saludos y de nuevo gracias, disculpe las molestias

elpoter

Masculino Cantidad de envíos : 22
Edad : 27
Ciudad - Pais : Argentina
Version de Excel : 2010
Fecha de inscripción : 25/09/2010

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Logroastur el Lun Dic 20, 2010 4:35 pm

Buenas si lo escribes como lo reflejas aca logicamente tomara el numero como 3 el inicio y 4 el final si es que no es decimal lo que debes de colocar es en el primer input que te sale 30000001 y en el segundo 40000001
un saludo

_________________


ForoExcel


avatar
Logroastur
Moderador
Moderador

Masculino Cantidad de envíos : 32
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por elpoter el Lun Dic 20, 2010 4:43 pm

pero yo necesito que sea con coma, se entiende?, o sea, 4,0000001 que vaya por todo eso 4,0001251 hasta llegar al 5,0000001

se puede o con coma no se puede??

graciaas!


ahora pongo

30000001 y que termine en 40000001
y me dice, error en la entrada de datos :S
y solo me escribe 30000001 y 30000002

eso que puede ser?

elpoter

Masculino Cantidad de envíos : 22
Edad : 27
Ciudad - Pais : Argentina
Version de Excel : 2010
Fecha de inscripción : 25/09/2010

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Logroastur el Lun Dic 20, 2010 7:13 pm

Buenas chequea archivo con la modificación para numeros decimales

un saludo

avatar
Logroastur
Moderador
Moderador

Masculino Cantidad de envíos : 32
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por elpoter el Lun Dic 20, 2010 7:41 pm

gracias capoo, lo hago, lo hace bien, pero pongo los numeros y me los tira asi

4,0000001
4,0100001
4,0200001
4,0300001
4,0400001
4,0500001
4,0600001
4,0700001
4,0800001
4,0900001
4,1000001
4,1100001

me vas a matar jajajaj, espero no molestarte:S
saludos y graciaaas!!

elpoter

Masculino Cantidad de envíos : 22
Edad : 27
Ciudad - Pais : Argentina
Version de Excel : 2010
Fecha de inscripción : 25/09/2010

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Logroastur el Lun Dic 20, 2010 8:11 pm

Buenas chequea archivo perdona pero en el anterior se me habia olvidado realizar una modificación

espero este te funcione ok

un saludo
avatar
Logroastur
Moderador
Moderador

Masculino Cantidad de envíos : 32
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por elpoter el Lun Dic 20, 2010 8:13 pm

me sigue pasando lo mismo:S, pongo los numeros y me sigue saltando asi

3,000001
3,010001
3,020001
3,030001
3,040001
3,050001
3,060001
3,070001
3,080001
3,090001
3,100001
3,110001
3,120001
3,130001
3,140001

saludoos y gracias.

elpoter

Masculino Cantidad de envíos : 22
Edad : 27
Ciudad - Pais : Argentina
Version de Excel : 2010
Fecha de inscripción : 25/09/2010

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Logroastur el Lun Dic 20, 2010 8:16 pm

Vaya estamos espesos se quedo sin colocar el archvio

un saludo

avatar
Logroastur
Moderador
Moderador

Masculino Cantidad de envíos : 32
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por elpoter el Lun Dic 20, 2010 8:20 pm

MUCHISIMAS GRACIAAAS:), no sabes porque tiene 65mil filas??, lo quise pasar a 2007 y no me lo deja abrir cambiandole la extencion jajaja.
MUCHAS GRACIAS DE VERDAD!

elpoter

Masculino Cantidad de envíos : 22
Edad : 27
Ciudad - Pais : Argentina
Version de Excel : 2010
Fecha de inscripción : 25/09/2010

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Logroastur el Lun Dic 20, 2010 8:42 pm

Buenas lo que debes de hacer es abrir el archivo y darle a guardar como hay seleccionas el excel habilitado para macros con lo que tendras 1048576 filas, por eso al inicio de la macro te solicita la versión que usas para saber el numero de filas a usar, por lo que luego deberas de colocar en la solicitud de version 2007

un saludo

_________________


ForoExcel


avatar
Logroastur
Moderador
Moderador

Masculino Cantidad de envíos : 32
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por wenner el Mar Dic 21, 2010 12:02 am

Otra opción creo (no la he revisado):

Código:
Sub NumerosCorrelativos_wenner()
    Dim ValorInicio As Double
    Dim ValorFinal As Long
    Dim NumElementos As Long
    Dim Inc As Double
   
    ValorInicio = InputBox("Indique el valor de inicio:")
    ValorFinal = InputBox("Indique el valor final:")
    Inc = ValorInicio - Int(ValorInicio)
    NumElementos = (ValorFinal - ValorInicio) / Inc + 1
   
    If NumElementos > Rows.Count Then
        MsgBox "El número de elementos es superior al que permite la hoja de cálculo." & vbCr & vbCr & _
        "El proceso de detendrá.", , "Aviso"
        Exit Sub
    End If
   
    Range("A1") = ValorInicio
    Range("A1").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=Inc, Stop:=ValorFinal, Trend:=False
End Sub

wenner
Moderador
Moderador

Masculino Cantidad de envíos : 13
Edad : 106
Ciudad - Pais : España
Version de Excel : 2003-2007
Fecha de inscripción : 07/10/2008

Volver arriba Ir abajo

Re: necesito hacer una macro que me escriba una cantidad grande de numeros.

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.