Código para crear el botón de nuevo registro
QUERÍA saber si me pueden ayudar con el código de botón nuevo en un formulario de excel.
Private Sub cmd_nuevoreg_Click()
Sheets("LISTADO").Activate
ult = Cells(Rows.Count, 1).End(xlUp).Row
ult = ult + 1
If Text_codigo.Value = "" Or Text_nomcoop.Value = "" Or Text_abreviatura.Value = "" Or Text_correo.Value = "" Or Text_dirección.Value = "" Or Text_telefono.Value = "" Or cbx_departesa.Value = "" Or cbx_municipio.Value = "" Or cbx_tipodecoop.Value = "" Then
MsgBox "Ingrese datos": Exit Sub
End If
End Sub
2 Respuestas
No veo que el código esté mal, al contrario, si esos campos quedan vacíos le envías un mensaje de que los ingrese y se cancela el botón.
A continuación te faltan las instrucciones de qué hacer con los campos rellenados... a dónde los vas a guardar.
Te invito a descargar el ejemplo que dejé en mi blog (interactuando con UF) y también allí verás el link al video explicativo.
Sdos.
Elsa
http://elsamatilde.blogspot.com/2018/03/interactuando-con-userform.html
De entrada esta instrucción esta mal
MsgBox "Ingrese datos": Exit Sub,
Le estas diciendo a la macro que muestre un mensaje y que inmediatamente de por terminado el programa la instrucción correcta es así
MsgBox "Ingrese datos"
Y después escribes las instrucciones para pasar los datos a la hoja que supongo es lo que buscas.