Jump to content

Leopoldo Blancas

Members
  • Content Count

    1,646
  • Joined

  • Last visited

  • Days Won

    39

Leopoldo Blancas last won the day on December 3 2019

Leopoldo Blancas had the most liked content!

7 Followers

About Leopoldo Blancas

  • Rank
    Advanced Member

Converted

  • Campos
    ,

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola Haplox, La verdad como te desenvuelves en VBA no tienes limites para aprender otro lenguaje de programación, la lógica es la misma, la forma de escribir el código es diferente, pero en VB.Net hay mucha similitud con VBA, pero una vez que se entiende la "Mecánica" del nuevo lenguaje es fácil avanzar. Muchos conceptos son los mismos para los diferentes lenguajes... te diría que llevas un 40% avanzado... También una pregunta seria... Quieres lo relacionado a Bases de Datos, Formularios y la WEB? si es si, yo escogería Visual Estudio que es lo más parecido a VBA. Saludos.
  2. Hola JSD JSD, 

    Me gusto tu aporte, solo una pequeñisima observación, ya que usas With entonces también pon adentro de ese With a uf.

    Saludos.

    1. JSDJSD

      JSDJSD

      Tienes toda la razón Leopoldo, gracias por la observación.  Un saludo

  3. Si, gracias, ya pude entrar sin problemas... me alegro ya que es uno de mis foros favoritos! Saludos.
  4. Malas noticias... Regreso la lentitud en el Foro... Saludos.
  5. Entonces necesitas muchos cafés...😂😂😂 ya que no llegara rápida la contestación...
  6. 15 segundos... hummm si me ha tocado ir a Cafes internet de la Ciudad de México y si se tardan un buen de tiempo (No todos claro)... Por fortuna donde vivo Estado de México, tengo un servicio excelente...!!! Abren en un parpadeo... Saludos.
  7. Gracias @johnmpl, si, ya tiene más días, pero se ha hecho mas molesto desde hace unos 10 días, pensé que era mi internet por que es la primer página que abro, pero después abro otras y rápido en menos de 1 segundo las abro... Por eso mi inquietud... Esperemos a ver que nos dicen. Saludos y Bendiciones igual para ti.
  8. Hola a todos, Desde hace más de una semana la Página del Foro esta muy lenta, al principio pensé que estaban arreglándola ya que aparecía un aviso, pero ya tiene una semana y se abre lento, muy lento (5 segundos) y ya lo probé en 5 máquinas diferentes y en diferentes días... Saludos.
  9. POR QUE EL ARCHIVO ESTA DAÑADO... POR ESO NO ELIMINA TODOS LOS OBJETOS Y SE MANTIENE EL PROBLEMA.... Saludos.
  10. No es problema las formulas... el problema es tu archivo TOCADO=DAÑADO. Ya te respondió Antoni. Saludos.
  11. @TREBUR, Tu archivo esta "TOCADO", tiene un daño irrecuperable, pase la información a otro archivo y se demora solo 5s en filtrar, quitando las formulas y las formas y solo poniendo valores se tarda 3s en la maquina lenta, en la rápida solo 1s. Saludos.
  12. Hay ocasiones que el archivo se "Daña" por virus, un error de office, etc. y lo más sano es copiar todo a un nuevo archivo... a mi me ha pasado varias veces últimamente... y una vez fue por que se fue la luz y no tenia NoBreake en esa máquina y al encenderla otra vez mi archivo Lento, lento... pero así lo resuelvo y las macros que se demoraban hasta 15 segundos ahorita no se tardan ni un segundo. O hay muchas hojas, columnas, filas... con formatos.... etc... Saludos.
  13. 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.

×
×
  • Create New...

Important Information

Privacy Policy