Elsa Matilde

En el video Nº 36 de mi canal traté un caso de filtro dinámico desde un Userform, quizás aporte algo de ayuda. Desde el Blog podrás descargar el libro con el ejemplo. Y en la sección Contactos de mi sitio encontrarás mis correos por si necesitas...

Te explico los pasos para que lo agregues a tu modelo. Este es mi modelo, donde llamo a un 2do Userform cuando no se encuentra el producto. Mi código se encuentra en el objeto 'image' con el lápiz, y en tu caso sería en el valor SI del MsgBox:...

Si se pueden sumar o calcular, solo que habrá que utilizar una función de conversión a valores, de este modo: Private Sub CommandButton1_Click() Label3.Caption = Val(Label1.Caption) + Val(Label2.Caption) End Sub Si los controles presentan valores con...

Te dejo una macro que en mi ejemplo se ejecuta desde un botón de comando, pero bien puede ser al cambio en ese control que tengas para fecha. Private Sub CommandButton1_Click() 'si el control queda vacío no se ejecuta If TextBox1 = "" Then Exit Sub...

La función de conversión es CDBL. Pero debes evaluar primero si el textbox no quedó vacío de este modo: If TextBox15.value <> "" Then Hoja2.Cells(UFila, 20) =Cdbl(TextBox15.value)

Te envié un modelo que incluye registro y modificación con campos fecha. Con un Buscador, para tu seguimiento. Espero sean de utilidad, sino comentámelo sobre el mismo libro.

Te dejo un ejemplo para que puedas adaptarlo a tu fórmula. Podrás leer más desde mi Blog (dejo el enlace al pie) o en el video Nº 15 de mi canal (enlace al pie;) Caso 3: utilizar la sintaxis FORMULAR1C1: 'calcula a cuántas filas por encima de la 26...

Te dejo una macro obtenida con la grabadora, a la que le hice unos arreglos para que sirva para contemplar otras situaciones y dimensiones (*) Sub OrdenandoColumnas() 'x Elsamatilde 'se aplica filtros si aún no los tiene If ActiveSheet.AutoFilterMode...

Insertá un módulo y allí copiá el siguiente código: Sub CopiaHoja() 'macro extraída del manual 500Macros, cap 18: Trabajando con Libros. 'x Elsamatilde 'copio la hoja activa (CONSOLIDADO) ActiveSheet.Copy 'creamos un nuevo objeto Libro Set wb =...

En la apertura del libro te quedaron estos códigos. Allí debes modificar la letra de la col que de la Tabla3 (en lugar de E quedaría entonces F según me comentas.) Private Sub Workbook_Open() 'se trabajará sobre 3 hojas Dim UltFila As Integer MESact...