Leopoldo Blancas
Leopoldo Blancas's Achievements
-
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.
-
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.
-
Para subir un archivo incompleto te molestaste en escribirle al Dueño del sitio... ???
-
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.