Antoni
Exceler C
-
Unido
-
Última visita
-
..... If Not Dir(RutaImagen) = "" Then .Fill.UserPicture RutaImagen .Visible = msoTrue End If ..... -
Abre el adjunto y pulsa sobre el botón. Vale para cualquier cantidad de filas y columnas de Sheet1. copiar color.xlsm
-
Function InsertQRCode(celda As Range) As String Dim QRCodeURL As String On Error Resume Next ActiveSheet.Shapes("QR").Delete QRCodeURL = "https://quickchart.io/qr?text=" & celda.Value With ActiveSheet.Pictures.Insert(QRCodeURL) .Name = "QR" .Left = 500 .Top = 25 .Width = 300 .Height = 300 End With InsertQRCode = "" End Function Adáptalo a tus necesidades.
-
Utiliza la función CDbl() en lugar de Val().
-
Me lo ha chivado la grabadora de macros al darle formato "Contabilidad". 😜
-
Prueba el adjunto. MiNumerosListView.xlsm
-
A ver si lo he entendido. Prueba visualizar.xlsm
-
En el adjunto encontrareis un formulario con 2 ejemplos de como llenar un listbox/combobox, uno, a partir de un nombre y otro, a partir de una fórmula, ambos combinados con la propiedad RowSource. Se basan en la utilización de DESREF y CONTARA. Lamentablemente la propiedad RowSource no admite la fórmula en ingles y con la fórmula en castellano, no funciona, de ahí que he colocado la fórmula en inglés en la propiedad Tag del listbox/combobox. -
Es un calendario al uso, sin misterios. Ya sabeis de mi debilidad por los calendarios, en este caso la gracia está en el código VBA. Os recomiendo que lo reviseis y os dareis cuenta que se puede hacer click en un label sin evento individual y sin módulo de clase. Calendario mínimo.xlsm -
Hola a todos: Os dejo un formulario para crear y visualizar álbumes de fotografías. Cada álbum va en una hoja. Puede haber cualquier número de álbumes. Cada álbum puede contener cualquier número de imágenes. En el formulario: Se pueden añadir múltiples imágenes a la vez. Al pulsar sobre la miniatura cambia la resolución de la imagen. El resto os lo dejo para que lo descubrais vosotros. Paz y amor. -
Es otro calendario mas a base de autoformas. Hay código en los módulos Calendario y Thisworkbook. Doble click en cualquier fecha o en una celda en blanco. No tiene misterio.- 5 comentarios
- 3 revisiones
-
12
-
No tiene mas misterio de lo que explica el título. Abrir el archivo, pulsar sobre la flecha azul y ver lo que ocurre en la barra de estado. La idea no se me ha ocurrido a mi, pero me hubiera gustado.
-
Antoni ha cambiado su foto de perfil
-
Hola amados todos: ¿ Os acordais que siempre hemos dicho que no se puede usar el método AddItem en un Listbox/Combobox con más de 10 columnas ? Bueno, pues es falso. Analizando esta consulta Sumar 3 columnas de un listbox, me he dado cuenta que si es posible. Ver el código del adjunto. Paz y amor Mas de 10 columnas en un control ListBox con el método AddItem.xls
-
Útil para tratar muchos controles del mismo tipo con un único evento.
-
Hola Rafael: Te propongo una variación. En primer lugar he cambiado el formulario a No modal para poder ir cambiando la celda activa sin necesidad de descargar el formulario, y en segundo lugar voy actualizando la celda activa a medida que se va escribiendo en los textbox, con lo que los botones ya no son necesarios. A ver que te parece. Saludos AñadirAntesDespues II.zip