Saltar al contenido

Leopoldo Blancas

Miembros
  • Contador de contenido

    1091
  • Unido

  • Última visita

  • Days Won

    20

Sobre Leopoldo Blancas

  • Rango
    Miembro

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

El bloque de últimos visitantes está desactivado y no se puede mostrar a otros usuarios.

  1. Leopoldo Blancas

    Problema con código lento

    Si, También me gusta como programan... entre los que colaboran mas como Gerson Pineda, Haplox, Antoni, Johnmpl, Silvia, O usan mas los complementos de Excel Power BI, Power Pivot, Formulas.... etc. Si Abrahan Valencia estaba conectado pero por un tiempo estaba en la sombra sin participar.. pero sus comentarios son certeros...!!! Saludos y Gracias.
  2. Leopoldo Blancas

    Problema con código lento

    Excelente...!!! algún día alcanzare ese nivel...!!!
  3. Leopoldo Blancas

    PROCEDIMIENTO DEMASIADO LARGO....

    Si, eso hice con calma... y un tequila... YA FUNCIONA...!!! Y creo que lo voy a dividir más, ya que eran 1585 lineas de código, y ahora se compila más rápido!!! Aparte me saltaron errores de código en la nueva Function que separe, cosa que no me había dado cuenta. Saludos.
  4. Quería acabar mi proyecto hoy... y dando los toques finales me dice que EL PROCEDIMIENTO ES DEMASIADO LARGO.. CREO QUE POR HOY LE PARO Y ME VOY POR UN TEQUILA...PARA EL FRIO.... YA MAÑANA VEREMOS de a como nos toca... P.D.: ALGUNA IDEA a parte de PARTIR EL CÓDIGO EN VARIOS SUB? Saludos.
  5. Leopoldo Blancas

    Problema con código lento

    Parece que hay una manera que no afecte la rapidez de las macros por cálculos paralelos de formulas que afectan esas celdas,... Prueba... Public Sub MI_RUTINA() Dim calc_mode As Variant calc_mode = Application.Calculation Application.Calculation = xlCalculationManual Call subrutina_que_quiero_ejecutar Application.Calculate Application.Calculation = calc_mode End Sub Saludos.
  6. Leopoldo Blancas

    Problema con código lento

    asi es.
  7. Leopoldo Blancas

    Problema con código lento

    Recuerda que si tu maquina es chica como la mía de ahorita, si carga un Excel 10 veces mas pesado se demorará más tiempo, Tengo una maquina grande que lo que se tarda esta maquina lenta en la rápida se tarda UNA DÉCIMA de tiempo. Un archivo grande ocupa memoria para las variables de otros procedimientos. y ocupa mas memoria RAM... Lo que hago yo, es que si se tarda mucho, pruebo en otra maquina, si se tarda igual significa que esta bien o hay un problema en el código.
  8. Leopoldo Blancas

    Problema con código lento

    Algo a de andar mal en tu máquina, en la que estoy que es lenta de 2 núcleos, Win 10 Memoria Cache de 2MB, 3.2 GHz, 3GB de RAM, Marca PATITO. (ya que tengo una rápida, pero no la tengo ahorita a la mano) , se tarda 0.69145 segundos. Saludos.
  9. Hola @AlexanderS,

    Estoy haciendo una aplicación y utilice tu Procedimiento que pongo más abajo, lo que resulta es que en un libro nuevo si genera el Botón y el código en la hoja y en mi proyecto solo genera el Botón y el código en la hoja NO.  Sabras algo de incompatibilidad. Los libros están habilitados para macros.

    Private Sub Insert_Boton()
    Dim hoja As Object
    Dim m As Double
    Dim bt As Range
    Dim cTexto As String
    On Error Resume Next
    Set bt = Application.InputBox(Prompt:="Selecciona donde se creara el botón para llamar el formulario", Title:="By Riddle", Type:=8)
    
    Set hoja = ThisWorkbook.VBProject.VBComponents(bt.Parent.Name)
        With Sheets(bt.Parent.Name).OLEObjects.Add(classtype:="Forms.CommandButton.1", _
             Top:=bt.Top, Left:=bt.Left, _
             Height:=bt.Height * 2, Width:=bt.Width * 2)
             .Object.Caption = "Formulario"
             .Name = "boton" & "Leopoldo"
         End With
       
         With hoja.CodeModule
         cTexto = "Private Sub boton" & "Leopoldo" & "_Click()" & vbNewLine
         cTexto = cTexto & "    MsgBox """ & " Hola """ & vbNewLine
         cTexto = cTexto & "End Sub"
         .InsertLines .CountOfLines + 1, cTexto
         End With
     
    End Sub

    Saludos.

    NOTA: Lo que me queda hacer es pasar mis modulos  a un nuevo libro y veo si resulta, gracias.

    1. Leopoldo Blancas

      Leopoldo Blancas

      OK, Creo que el archivo estaba ya "Dañado", Copie módulos a un nuevo libro y ya quedo.

      Gracias y saludos.

    2. Leopoldo Blancas

      Leopoldo Blancas

      OK, Creo que el archivo estaba ya "Dañado", Copie módulos a un nuevo libro y ya quedo.

      Gracias y saludos.

  10. Leopoldo Blancas

    Duplicación Hojas

    Por eso me encanta colaborar, mas cuando NO se explican bien... Saludos.
  11. Leopoldo Blancas

    Duplicación Hojas

    BUENO COMO SOLO QUIEREN PAN Y NO QUESO...(compitiendo con las frases de Antoni ) SOLO BORRA LAS HOJAS QUE TENGAS HECHAS..H1, H2,.... Saludos.
  12. Leopoldo Blancas

    Duplicación Hojas

    Algo pasa con tu archivo... no abre. Saludos.
  13. Leopoldo Blancas

    Duplicación Hojas

    Cierto, por eso es mejor un verdadero SGBD. Saludos.
  14. Leopoldo Blancas

    Duplicación Hojas

    Entonces tendra 101 libros por lo menos... Jajaja, como dices tu Cacho R si llegando a 30 Libros yo ya me pongo nervioso... Jajaja Saludos.
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.