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


  7. Saludos funciona ok para el rango indicado, estaba trtando de hacer lo mismo desde D53:D63 hacia las otras tablas, pero no funciona.

    seleccione desde D2:G220 y tambien desde D53:D63  pro no funciona. Me podrias ayudar

    Gracias

    Sub CopiarFórmulas()
        Application.Calculation = xlCalculationManual

    Application.ScreenUpdating = False
    For Each celda In Selection
       If celda.HasFormula Then
          celda.Copy
          For x = 1 To WorksheetFunction.CountIf(Range("D:G"), "P") - 1
             celda.Offset(73 * x).PasteSpecial xlFormulas
          Next
       End If
    Next
    Application.CutCopyMode = False
        Application.Calculation = xlAutomatic

    End Sub

     


  8. Saludos inserte la macro para comprobacion borre las formulas de D126:D132; D199:D205 y ejecute la macro no funciona no copia, deberia copiar las formulas del rango D53:D59 en cada tabla.

    Debo indicar que las otras formulas de D:D para cada tabla son diferentes, es por ello que no se puede realizar copiar desde D2:D74 hacia el final o ultima fila.

    Gracias

    Copiar Rango de Formulas con Intervalos 2.xls


  9. Saludos estimados Foristas, me podrían ayudar en lo siguiente: tengo una Hoja con 1000 tablas de cálculos en sentido vertical cada una tiene 73 filas

    Lo que sucede que a veces deseo modificar o corregir algún calculo y tengo que copiar en cada hoja.

    Por ejm. si deseo copiar solo en rango D52:D59 con formulas en cada una tengo que ir a la celda D125 de la segunda tabla y luego a la celda D198, axial sucesivamente.

    Podría haber mediante Vb alguna solución para evitar copiar manualmente ya se con formula o con macro

    Gracias

    Copiar Rango de Formulas con Intervalos.xls


  10. Saludos estimados Foristas y Masters, me pueden ayudar en lo siguiente: tengo un libro con 50 hojas y al abrirlo me sale que hay vinvulos, he revisado las hojas buscando con buscar "[" "C:"y no me encuentra .
    Alguna solución  o idea.
    Gracias


  11. Saludos lo he guardado como Complementos de excel, y el icono se genera a los otros que existen en la carpeta.

    Por seo que puedo activarlo con compelementos.

    Lo que sucede es que no reconoce cuando abro un nuevo libro.

    Las macros las puese en un modulo del libro macmc y el ThisWodeBook

    Gracias


  12. Saludos realizado lo siguiente: en un libro insete en un modulo las macros y lo guarde con un nombre mamc en :
    C:\Program Files\Microsoft Office\OFFICE11\Macros
    Luego le active mamc en herramientas/complementos
    al abrir un libro nuevo no reconoce las fórmulas, revisando en VB no existe ninguna macro
    Gracias


  13. Saludos estimados Foristas, tengan la gentileza de apoyarme en una consulta, tengo algunas funciones las cuales tengo que insertarles en un módulo en cada libro nuevo.

    Para evitar esto puedo hacer un complemento para que el excel quede personalizado y reconozca todos los libros creados.

    Gracias

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png