Elsa Matilde

Como el nombre de tus hojas se encuentran entre paréntesis (1-41901) debieran ser incluidos dentro al momento de llamarlas. Ajustá la instrucción de esta manera: For i = 1 To 60 hojita = "(" & i & "-41901)" With Sheets(hojita) Probalo y me comentás.

Esta macro te puede servir. Cambia el nombre del control por el tuyo. Private Sub Textbox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'no menos de 5 If Len(TextBox2) < 5 Then MsgBox "Se requiere de 5 caracteres o más" Cancel = True End If End Sub Y...

Le hice varios cambios al UF para mantener las opciones de búsqueda, pero considerando qué opción se elige será la col a controlar. Por ej, al crear un nuevo registro, se mira la col B. Con opción de cambiar el dato ingresado o cancelar. Si se graba,...

Te había preparado un ejemplo en la consulta anterior pero como ya le habías enviado el libro al experto de Access lo dejé en suspenso, Mirá, por cada control debieras tener estas 2 subrutinas: con una se controla que solo se ingresen valores y coma...

Recibido tu libro. Ya lo miraré y te comento o devuelvo con los arreglos.

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)