1. AyudaExcel utiliza cookies. Si continuas utilizando AyudaExcel, estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

Solucionado [SOLUCIONADO] duda

Tema publicado en 'Temas resueltos' iniciado por jramon1980, 11 Ago 2009.

Estado del tema:
Cerrado para nuevas respuestas
  1. jramon1980

    jramon1980 Nuevo Usuario

    Registrado:
    21 Nov 2008
    Mensajes:
    11
    Me Gusta recibidos:
    0
    Yo creo que no me explique bien, ahi va de nuevo

    tengo un archivo en el cual tiene la siguiente informacion:

    en una Columna tiene un numero de parte y en otra columna trae cantidad

    lo que quiero hacer es que con el numero que le ponga en cantidad se inserten filas segun la cantidad que tenga en esa celda.

    de forma automatica o ya sea con un boton
    se podra?

    gracias de antemano

    JR

    Adjuntos:

    Última edición: 12 Ago 2009
  2. petercien1

    petercien1 Usuario

    Registrado:
    30 Jul 2008
    Mensajes:
    707
    Me Gusta recibidos:
    6
    Respuesta: duda

    Hola jramon1980, creo se te olvido el archivo,

    Salu2
  3. jramon1980

    jramon1980 Nuevo Usuario

    Registrado:
    21 Nov 2008
    Mensajes:
    11
    Me Gusta recibidos:
    0
    Respuesta: duda

    ya quedo, perdon

    ya subi el archivo,

    saludos
  4. carolinayh

    carolinayh Usuario

    Registrado:
    2 Abr 2009
    Mensajes:
    131
    Me Gusta recibidos:
    1
  5. jramon1980

    jramon1980 Nuevo Usuario

    Registrado:
    21 Nov 2008
    Mensajes:
    11
    Me Gusta recibidos:
    0
    Respuesta: duda

    a ver si ya se subio el archivo
  6. mjrofra

    mjrofra Moderador Staff AyudaExcel

    Registrado:
    28 May 2009
    Mensajes:
    2.686
    Me Gusta recibidos:
    93
    Género:
    Masculino
    Respuesta: duda

    hola jramón,

    qué tal algo así:

    CÓDIGO:
    Sub Insertar()
        
        Application.ScreenUpdating = False
        
        For Each celda In Range("B2", Range("B" & Cells.Rows.Count).End(xlUp))
            cantidad = celda.Value
            Do Until cantidad = 0
                celda.Offset(1).EntireRow.Insert Shift:=xlDown
                cantidad = cantidad - 1
            Loop
        Next celda
        
        Application.ScreenUpdating = True
    
    End Sub
    revisa el adjunto y has unas pruebas a ver si es lo que buscas.

    Adjuntos:

  7. mjrofra

    mjrofra Moderador Staff AyudaExcel

    Registrado:
    28 May 2009
    Mensajes:
    2.686
    Me Gusta recibidos:
    93
    Género:
    Masculino
    Respuesta: duda

    creo que esta opción también funcionaría y lo hará más rápido si son muchos datos y celdas a insertar:

    CÓDIGO:
    Sub Insertar()
        
        Application.ScreenUpdating = False
        
        For x = Range("B" & Cells.Rows.Count).End(xlUp).Row To 2 Step -1
            cantidad = Cells(x, 2).Value
            Do Until cantidad = 0
                Cells(x, 2).Offset(1).EntireRow.Insert Shift:=xlDown
                cantidad = cantidad - 1
            Loop
        Next x
        
        Application.ScreenUpdating = True
    
    End Sub
  8. jramon1980

    jramon1980 Nuevo Usuario

    Registrado:
    21 Nov 2008
    Mensajes:
    11
    Me Gusta recibidos:
    0
    Respuesta: duda

    Excelente, eso es lo que andaba buscando

    Muchisimas Grcias Mjrofra, me acabas de ahorrar varias horas de chamba

    saludos
  9. jramon1980

    jramon1980 Nuevo Usuario

    Registrado:
    21 Nov 2008
    Mensajes:
    11
    Me Gusta recibidos:
    0
    Respuesta: duda

    Buenas

    otra duda, si yo quiero que se copie lo del numero de parte en las filas insertadas

    se puede?

    gracias
  10. mjrofra

    mjrofra Moderador Staff AyudaExcel

    Registrado:
    28 May 2009
    Mensajes:
    2.686
    Me Gusta recibidos:
    93
    Género:
    Masculino
    Respuesta: duda

    algo así de pronto:

    CÓDIGO:
    Sub Insertar()
        
        Application.ScreenUpdating = False
        
        For x = Range("B" & Cells.Rows.Count).End(xlUp).Row To 2 Step -1
            cantidad = Cells(x, 2).Value
            Do Until cantidad = 0
                Cells(x + 1, 2).EntireRow.Insert Shift:=xlDown
                Cells(x + 1, 1) = Cells(x, 1)
                cantidad = cantidad - 1
            Loop
        Next x
        
        Application.ScreenUpdating = True
    
    End Sub
  11. jramon1980

    jramon1980 Nuevo Usuario

    Registrado:
    21 Nov 2008
    Mensajes:
    11
    Me Gusta recibidos:
    0
    Respuesta: duda

    ahora si ya quedo terminado el archivo

    muchisismas gracias

    tema cerrado

    saludos

    JR
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página