Jump to content

Leopoldo Blancas

Members
  • Posts

    1,646
  • Joined

  • Last visited

  • Days Won

    39
  • Country

    United States

Leopoldo Blancas last won the day on December 3 2019

Leopoldo Blancas had the most liked content!

7 Followers

Converted

  • Campos
    ,

Recent Profile Visitors

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

Leopoldo Blancas's Achievements

  1. 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

  2. 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.

  3. Toda ayuda es bien recibida y útil en un momento dado...!!! Gracias por compartir.
  4. Version 1.0.0

    134 downloads

    Este es un ejemplo de un Formulario donde tiene la opción de Nuevo, Editar, Eliminar, Buscar, Guardar, Cancelar, Ir al Primero, Ir al Anterior, Ir al Siguiente, Ir al Ultimo y Salir en una Base de Datos de Excel. Con la facilidad de presentar una Imagen por registro. Saludos.
  5. Para subir un archivo incompleto te molestaste en escribirle al Dueño del sitio... ???

     

    1. Leopoldo Blancas

      Leopoldo Blancas

      Mi computadora me hizo una treta...Me disculpo, si estan los datos...

      Le echare un vistazo.

  6. Hola,

    Recuerda que un "dashboard", es solo un resumen de tu información en Tabla, Tabla Dinámica, Gráfica, Shapes, etc. Por lo tanto te recomiendo que investigues por separado y armes tu "dashboard". Puedes empezar por hacer una relación de Clientes, Productos y Facturas...(POR DECIR ALGO) No es sencillo, tienes que investigar mucho...Y obviamente para que sea más vistoso tiene que que tener muchos datos.... aunque eso es relativo. 

    Piensa una aplicación y enumera las cosas que quisieras saber de tu aplicación. 

    Investiga ejemplos en la WEB. 

    Saludos.

×
×
  • Create New...

Important Information

Privacy Policy