UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO tengo 2 consultas el 13/03/14, 11:13 pm

hansito78


hola amigos como estas, miren tengo unas dudas no soy muy capo en esto de visual miren necesito si me pueden ayudar quiero colocar un botón en un formulario que me elimine datos de mi base de datos que se muestran en los textbox y la otra consulta si se puede hacer que en una fecha  que se coloque en el formulario  y que pasen 7 días el textbox cambie de color a rojo y que me avise o me envié un correo ojala amigos si me pueden ayudar acá le dejo mi archivo  Laughing  Very Happy
Archivos
Inventario.xlsm
No tienes los permisos para descargar los archivos.
(51 KB)

2RESUELTO Re: tengo 2 consultas el 13/03/14, 11:54 pm

tyno


Hola hansito.
En tu botón de eliminar utiliza este código (no se que problema tenía el código que ya tenías):

Private Sub CommandButton6_Click() 'eliminar
On Error Resume Next
 If MsgBox("¿Seguro que quiere eliminar este cliente?", vbQuestion + vbYesNo) = vbYes Then
With Sheets("BASE DATOS")
 .Range("a1:a1000000").Find(TextBox1, lookat:=xlWhole).EntireRow.Delete
End With
Call resetear_datos
MsgBox "Cliente eliminado", vbInformation + vbOKOnly
End If
End Sub


Por otro lado esto no está muy claro: "la otra consulta si se puede hacer que en una fecha  que se coloque en el formulario  y que pasen 7 días el textbox cambie de color a rojo y que me avise o me envié un correo "
Como es la idea de esto ¿ingresar un fecha fija en un textbox y que después de 7 días quede color rojo dicho textbox?

Saludos

3RESUELTO Re: tengo 2 consultas el 14/03/14, 12:23 am

hansito78


Gracias tyno por contestar mira lo de la facha es coloco la fecha de 14/03/2014 que pasen 7 días y me avise que ya pasaron 7 dias y que el textbox del formulario cambie a rojo y que me avise cuando ya pasen los 7 dias enviando un correo si se puede

4RESUELTO Re: tengo 2 consultas el 14/03/14, 07:50 am

tyno


Hola hansito.
Creo que se puede hacer lo que pides, y se me ocurren dos opciones: una es que determines la fecha de referencia en algún código de macro en el mismo formulario y otra que en alguna celda de una Hoja Excel insertes esa fecha de referencia, lo cual me parece lo más práctico esto último. O sea en la celda AZ1 de la Hoja3 (por poner un ejemplo) ingresas la fecha, luego en el método Initialize del formulario se puede establecer una instrucción para que pasado 7 días de la fecha de referencia el TextBox1 (por poner un ejemplo) su propiedad BackColor sea Rojo:

Private Sub UserForm_Initialize()
If Date - CDate(Sheets("Hoja3").Range("az1")) >= 7 Then TextBox1.BackColor = &HFF& 'rojo
End Sub

Saludos

5RESUELTO Re: tengo 2 consultas el 15/03/14, 12:04 am

hansito78


gracias tyno por tus respuesta eres un máster sabes me sale un mensaje de error no coincide los datos tyno la ultima molestia se puede hacer un botón que busque en el formulario en el textbox rotulo y clave pero si el textbox clave esta vació se active el botón y  realize la busqueda y si están los dos con datos de desactive el botón, que busque en la hoja 3 y compare si el textbox rotulo en( hoja1)  con el rotulo (hoja3) y me busque y me muestre el resultado el el textbox clave en la hoja 3 abran 2 columna rotulo y clave espero haberme explicado bien

6RESUELTO muchas gracias el 18/03/14, 09:37 pm

hansito78


muchas gracias tyno por tu ayuda se agradece mucho

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.