Visual Basic para Aplicaciones - codigo......

Life is soft - evento anual de software empresarial
   
Vista:

codigo......

Publicado por Jorge Leon (57 intervenciones) el 23/03/2009 19:24:41
Hola amigos de LWP, tengo una aplicacion en excel que cuenta con tres Hojas en la primera tiene una lista de las personas que se les presta unas llaves y la fecha de prestamo mas la fecha que deben de entregar las llaves, en la hoja dos tiene los mismos datos solo cambia por fecha de entrega y en la tercer Hoja tengo la lista de todas las personas que no han entregado las llaves y que se paso la fecha de entrega.......... y lo que quiero es que al abrir esta hoja, por medio de instrucciones aparescan en rojo las fechas de las personas que no han entregado las llaves, que en la segunda hoja al momento de entregar las llaves si estan dentro de la fecha de entrega se borre el registro de la primera hoja, pero que si el registro de la primera hoja tiene las fechas en rojo (¡¡¡se paso de la fecha de entrega!!!) no permita borrar el registro de la primera hoja y mande un mensaje para tomar acciones y que por medio de una macro o instrucciones se envie la informacion a word de las personas que no han entregado las llaves y que esta por cumplirse la fecha limite y de las personas que ya se les vencio la fecha de entrega de llaves para una lista negra en word??????????????????????? de antemano muchas gracias su amigo Jorge
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:codigo......

Publicado por Eber (2 intervenciones) el 24/03/2009 20:58:30
Saludos,
El codigo es extenso pero espero q esto te sirva

Private Sub CommandButton1_Click()
Dim b, c As Integer
n = 6
Range("b" & n).Select
Do Until Range("b" & n) = ""
Range("b" & n).Select
If Range("b" & n) < Range("b1") + 3 Then
Range("a" & n).Select
Selection.Interior.ColorIndex = 3
Range("b" & n).Select
Selection.Interior.ColorIndex = 3
Range("c" & n).Select
Selection.Interior.ColorIndex = 3
n = n + 1
Else
Range("a" & n).Select
Selection.Interior.ColorIndex = 41
Range("b" & n).Select
Selection.Interior.ColorIndex = 41
Range("c" & n).Select
Selection.Interior.ColorIndex = 41
n = n + 1
End If
Loop
MsgBox "Listo!!!!!"

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:codigo......

Publicado por Jorge Leon (57 intervenciones) el 31/03/2009 03:38:46
MUCHAS GRACIAS AMIGO EBER LO VOY A PONER EN PRACTICA Y SI NO ES MUCHO PEDIR.... SI TENGO ALGUNA DUDA ¿TE PUEDO CONSULTAR.........???? TU AMIGO JORGE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar