Nadia Bernal

Dante Amor respondió: Tendrías que capturar el usuario y la contraseña en un mismo formulario. O en tu formulario ya capturaste el usuario y después aparece el formulario o inputbox que pusiste en la imagen para solicitar la contraseña?

Elsa Matilde respondió: Esta sería una opción para este formato de datos: TextBox3.Value = Mid(Sheets("REGISTROS").Range("A65536").End(xlUp).Value, 3, Len(Sheets("REGISTROS").Range("A65536").End(xlUp)) - 2) TextBox3 = "CN" & Format(TextBox3 + 9, "0000")

Dante Amor respondió: Pero cómo te entregan el # documento, en una base, en un excel, en el mismo archivo que tienes, ¿en esa entrega que te hacen viene tu número de consecutivo? Envíame tus archivos con el ejemplo del consecutivo 57 y te preparo la macro. Mi correo...

Elsa Matilde respondió: El botón tiene una instrucción de llamada al Userform, y allí podés agregar las líneas de control. Por ej: Sub llamada() 'x Elsamatilde usua = InputBox("Ingresa tu contraseña.") If usua <> "Nadia" Then MsgBox "acceso incorrecto" Exit Sub End If...

Dante Amor respondió: Te anexo la macro, para buscar el valor de un textbox en una hoja "Hoja2", en la columna "A:A", y obtener el nombre (columna "B") y el segmento (columna "C") Tendrás que adecuar esos datos en la macro: Private Sub CommandButton1_Click() 'Por.Dante...

Elsa Matilde respondió: Si la macro de los botones es la misma para cada hoja, genes que colocar sus instrucciones en un modulo, con un encabezado como este: Sub macroUnica() `tus instrucciones End Sub Y en el objeto Thisworkbook, en el evento Open, un bucle como este:...

Elsa Matilde respondió: Las instrucciones una vez identificada la fila donde se encuentra el registro son: ini = range("E" & filax).value fini =range("BN" & filax).value dif = Application.WorksheetFunction.NetworkDays(ini, fini) range("BS" & filax) = dif 'filax' es la fila...