Jump to content

Leopoldo Blancas

Members
  • Posts

    1,648
  • 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!

About Leopoldo Blancas

  • Birthday 08/10/1966

Contact Methods

  • Facebook
    Leopoldo Blancas

Profile information

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

Converted

  • Campos
    ,
  • Mi versión de Excel:
    6

Recent Profile Visitors

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

Leopoldo Blancas's Achievements

  1. Prueba: Private Sub btnRestablecer_Click() With MiFormulario .Image1.BackColor = &H8000000F .Image2.BackColor = &H8000000F .Image3.BackColor = &H8000000F .Image4.BackColor = &H8000000F .Image5.BackColor = &H8000000F .Image6.BackColor = &H8000000F .Image7.BackColor = &H8000000F .Image8.BackColor = &H8000000F End With Me.TextBox1.Value = 0 End Sub Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then SiColor (1) End Sub Private Sub Image2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then SiColor (2) End Sub Private Sub Image3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then SiColor (3) End Sub Private Sub Image4_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then SiColor (4) End Sub Private Sub Image5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then SiColor (5) End Sub Private Sub Image6_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then SiColor (6) End Sub Private Sub Image7_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then SiColor (7) End Sub Private Sub Image8_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then SiColor (8) End Sub Private Sub UserForm_Initialize() Me.TextBox1.Value = 0 Me.TextBox2.Value = 5 End Sub Sub SiColor(nImagen) If Me.Controls("Image" & nImagen).BackColor = vbGreen Then Me.Controls("Image" & nImagen).BackColor = &H8000000F Me.TextBox1 = Me.TextBox1.Value - 1 Exit Sub End If If Me.TextBox1.Value < Me.TextBox2.Value Then Me.Controls("Image" & nImagen).BackColor = vbGreen Me.TextBox1 = Me.TextBox1.Value + 1 End If End Sub
  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. 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.

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

    155 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.
  6. 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.

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