Anónimo
Macro Aviso
Hola, estoy creando formularios de vinculación y necesito que excel no me permita pasar a la siguiente página si falta algún dato por diligenciar. Quisiera que apareciera un aviso de informativo "Por favor diligencie la casilla teléfono" por ejemplo
1 Respuesta
Respuesta de d2enri
1
Puedes poner en tu código algo así
If [E5] = "" Or [E8] = "" Or [E9] = "" Then
MsgBox "No deje ningun campo vacio", vbExclamation + vbOKOnly, "CAMPO VACIO"
Application.ScreenUpdating = True
Exit Sub
If [E5] = "" Or [E8] = "" Or [E9] = "" Then
MsgBox "No deje ningun campo vacio", vbExclamation + vbOKOnly, "CAMPO VACIO"
Application.ScreenUpdating = True
Exit Sub
Hola, muchas gracias me sirivio esta solución!
De ese formulario la macro pasa la información a una base de datos (una hoja dentro del mismo libro) organizando esta información por filas (cada fila es un cliente). Necesito que cada vez que ejecuto la macro esta copie la información del nuevo cliente a la fila inmediatamente posterior a la ultima, de tal manera que no sobreecriba la información.
Gracias! Espero haberme explicado bien !
De ese formulario la macro pasa la información a una base de datos (una hoja dentro del mismo libro) organizando esta información por filas (cada fila es un cliente). Necesito que cada vez que ejecuto la macro esta copie la información del nuevo cliente a la fila inmediatamente posterior a la ultima, de tal manera que no sobreecriba la información.
Gracias! Espero haberme explicado bien !
Depende de como tengas tu código pero algo así te puede valer
'rango que copias
Range("A49:M49").Select
Selection.Copy
'hoja ha la cual mandas los datos busca desde la fila
'A65536 y se situa en la ultima sin dato
Sheets("tu_hoja").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'xlAll
Sheets("hoja1").Select
Application.CutCopyMode = False
'rango que copias
Range("A49:M49").Select
Selection.Copy
'hoja ha la cual mandas los datos busca desde la fila
'A65536 y se situa en la ultima sin dato
Sheets("tu_hoja").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'xlAll
Sheets("hoja1").Select
Application.CutCopyMode = False