Jump to content

Milton Cordova

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by Milton Cordova

  1. Saludos cordiales me olvide de indicar que esta macro debe trabajar en excel 2003 y al correr me sale se ha producido un error "438" en tiempo de ejecucion. El objeto no admite esta propiedad o método.

    error en

    miRango.RemoveDuplicates Columns:=1

    gracias y disculpas por la consulta

     

     

  2. saludos favor me pueden ayudar con esta macro que adjunto la cual me esta dando error en lo siguiente

    Tengo un rango den la columna H con datos repetidos y con celdas en blanco, la macro me extrae los datos unicos y me pone en la columna N, pero hay un dato que se repite que es del 2200

    Sub MAC()
    Dim L As Range
    With Range([H5], [H65536].End(xlUp))
    .Offset(, 1).Cells(1).Clear
    .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Offset(, 6), Unique:=True
    Set L = .Offset(, 6).Find(What:="", LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlNext)
    If Not L Is Nothing Then L.Delete xlShiftUp
    Set L = Nothing
    End With
    End Sub


    Gracias por su ayuda

    EXTRACCION Y PEGADO DE VALORES UNICOS.xls

  3. Saludos Leopoldo, adjunto envió ejem. con 5 platillas según lo que me pides.

    Se trata de un libro en el cual tengo una hoja con 500 platillas de 71 filas cada una.

    Lo que deseo es ahorrarme el tiempo de ir insertando 5 filas en cada una de las 500 plantillas de una hoja de un libro.

    las 500 plantillas van desde la fila 2 hasta la 35501 y cada una tiene 71 filas, o sea que

    la primera al empezar desde la 2 va hasta la 72,

    la segunda desde la fila 73-143,

    la tercera 144-214 asi sucesivamente hasta la 35501.

    la parte que  deseo insertar empieza en la primer plantilla en la fila 49, la segunda desde la 120 pero como se supone que se insertaron 5 filas en la segunda plantilla sería desde la fila 125, la tercera deberia insertarse desde la  pero debido a las filas insertadas en la primera y segunda debe insertarse desde la fila 201 y asi sucesivamente.

    las plantillas estan con datos, no me permite subir ejemplo debido al peso.

    En todo caso creo que se podría hacer mediante una macro para toda la hoja ya que la macro que envié solo funciona para la primer plantilla y tendría que ir creando para cada platilla una nueva macro.
    Por esto me disculpo al parecer es cuestión de tiempo pero si se puede ahorralo que mejor.

    Gracias disculpas por descripcion no clara sobre el tema enviado

    INSERTAR FILAS 4.xls

  4. En 17/11/2019 at 12:40 , Leopoldo Blancas dijo:

    Hola  Milton Cordova,

    Ya revise tu ejemplo y hay algo inconsistente en el, PODRIAS AYUDARME  con poner 5 formularios completos por favor, ya que trate de repetir los 2 que pusiste hacia abajo y no me da...y    por favor pon un recuadro en cada Formulario, para no tener la duda donde empieza y donde termina.

    NOTA IMPORTANTE: Es un error llevar a acabo así la información, es mejor tratar la información en 1 Base de datos y con ella se genera el Formulario..., pero si insistes solo haz el favor que te pido.

    Saludos.

     

     

     

     

    En 17/11/2019 at 12:40 , Leopoldo Blancas dijo:

    Hola  Milton Cordova,

    Ya revise tu ejemplo y hay algo inconsistente en el, PODRIAS AYUDARME  con poner 5 formularios completos por favor, ya que trate de repetir los 2 que pusiste hacia abajo y no me da...y    por favor pon un recuadro en cada Formulario, para no tener la duda donde empieza y donde termina.

    NOTA IMPORTANTE: Es un error llevar a acabo así la información, es mejor tratar la información en 1 Base de datos y con ella se genera el Formulario..., pero si insistes solo haz el favor que te pido.

    Saludos.

     

     

     

     

  5. Saludos estimado Hector adjunto un ejemplo de uno de los formularios con datos ya que al ser 500 formularios no se puede enviar debido al peso, el rango va hasta la fila 35501.

    Corri la macro funciona perfecto solo para el primer formulario, esto equivale a hacerlo manualmente, por lo que te solicito muy gentilemnte puedas ayudarme para que esto haga para las 500 plantillas.

    Gracias

    INSERTAR FILAS 3.xls

  6. Saludos estimados foristas, alguien me puede ayudar para revisar una macro que haga lo siguiente:

    en un libro quiero que las Hojas "CASA" , "PEZ" , "total" crear otro ibro lo que es igual a copiar y mover a otro libro, lo que deseo que una vez que esto se realice las hojas esten bloqueadas con una clave "XX" y deshabilitar las funciones de copiado, pegado con clic drecho solo en las Hojas "CASA" , "PEZ" la hoja "total" solo bloqueada con "XX".  adjunto ejemplo

    Sub ANEXO()
    '
        Sheets(Array("CASA", "PEZ")).Select
        Sheets("PEZ").Activate
        
        Sheets(Array("CASA", "PEZ", "total")).Copy
        Sheets("CASA").Select
        ActiveSheet.Protect "XX"
        Range("B4").Select
            Sheets("PEZ").Select
        ActiveSheet.Protect "XX"
        Range("B4").Select

            Sheets("total").Select
        ActiveSheet.Protect "XX"
        Range("B4").Select

    End Sub

     

    Gracias

    COPIA Y DESHABILITA funciones clci derecho.xls

×
×
  • Create New...

Important Information

Privacy Policy