Saltar al contenido

Leopoldo Blancas

Miembro
  • Contador de contenido

    1648
  • Unido

  • Última visita

  • Días con premio

    39
  • País

    Estados Unidos

Leopoldo Blancas ganó el día el 3 de diciembre 2019

Leopoldo Blancas had the most liked content!

8 Seguidores

Sobre Leopoldo Blancas

  • Cumpleaños 08/10/1966

Formas de contacto

  • Facebook
    Leopoldo Blancas

Información de perfil

  • Sexo
    Hombre
  • Localización:
    México, Lindo y Querido...!!!

Configuraciones

  • Campo que utilizas como separador de argumentos
    ,
  • Mi versión de Excel:
    6

Visitantes recientes del perfil

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

Leopoldo Blancas's Achievements

Novato

Novato (1/14)

  • + 5 reacciones
  • 100 reacciones
  • Primera publicación
  • 10 comentarios
  • 500 comentarios

Insignias recientes

507

Reputación de la comunidad

1

Respuestas de la comunidad

  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

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

×
×
  • Crear nuevo...

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.