Ahrens Ruano

Si la fórmula va bien en el video, entonces prueba con sustituir las comas (,) por punto y coma (;), comentas si te funciono Salu-dos

Cambia la parte del código de los textbox por éste. TextBox6 = Sheets("DataRRHH").Range("B" & rango.Row) TextBox2 = Sheets("DataRRHH").Range("C" & rango.Row) TextBox3 = Sheets("DataRRHH").Range("D" & rango.Row) TextBox7 = Sheets("DataRRHH").Range("W"...

Lo puedes hacer agregando en el evento de thisworkbook, WorkBook, Open algo así: Private Sub Workbook_Open() ThisWorkbook.Application.Visible = False UserForm1.Show End Sub Y en el botón del Userform de esta manera: Private Sub CommandButton1_Click()...

Si cuando pasas el puntero del mouse sobre la imagen, éste aumenta según el código que creaste en el evento MouseMove de la imagen, pues haz lo mismo, pero en el evento MouseMove del Userform o cualquier otro control que esté inmediato a dicha...

El problema es en las variables, ya que tienes activa la opción de "Option Explicit", donde tienes que declarar todas las variables que están dentro del código, entonces para solucionar esto puedes borrar esa opción o desactivarla en la barra del...

Pido disculpas por la intromisión. Rapo12 y si pruebas con poner el código en el evento keypress del textbox1, algo así: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case Len(TextBox1.Text) Case Is = 2 TextBox1.Text =...

Con el permiso del Experto Marcrodos, esta puede ser una solución para que no se vea el Splash Screen (inicio de excel), lo que tienes que hacer es sacar un acceso directo de tu archivo, clic derecho en el acceso directo y propiedades, donde dice...

Fernando MG puedes usar el evento exit del textbox1 como se muestra en el siguiente código: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.ListBox1.AddItem Me.TextBox1.Text TextBox1 = Empty Cancel = True End Sub Si es lo que...

Luis puedes usar este código en el textbox al iniciar el userform: Private Sub UserForm_Initialize() TextBox1 = Format(Now) 'Fecha y hora 'TextBox1 = Format(Now, "dd-mm-yyyy") 'Solo fecha End Sub O puedes ver estos ejemplos de los señores Dante Amor...

Una disculpa por la demora, si estas usando un userform para crear la nueva hoja y borrar el código de esta, puedes crear un textbox en el cual se pondrá el nombre (codename) de la hoja creada, para después agregar el código a la nueva hoja tomando...