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
-
No todos los controles tienen las mismas propiedades: Private Sub Guardar(sh As Worksheet, r As String, ctrl As Control) If ctrl.Visible Then Select Case TypeName(ctrl) Case "Label" sh.Range(r).Value = ctrl.Caption Case "TextBox" sh.Range(r).Value = ctrl.Value End Select End If End Sub
-
Sub OcultaFilas() Rows("8:20").EntireRow.Hidden = True 'ocultar rango Selection.EntireRow.Hidden = False 'mostrar selección End Sub
-
Prueba a ver si es esto lo que quieres. CALENDARIO PRUEBA (1).xlsm
-
El calendario se calcula automáticamente a partir de la cela Q1. En Q3 hay una llamada a la UDF FirstMonthMonday. Hay 2 formatos condicionales para marcar las fechas fuera del mes. Abre el adjunto y pulsa sobre el "botón" Trova Date. Mio_Progetto_Calendar.xlsx.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