Excel - Consulta sobre Condicion

   
Vista:

Consulta sobre Condicion

Publicado por Seiryu (1 intervención) el 30/11/2013 10:35:08
Tengo este algoritmo:

Lo que pretendo es que, en caso de que la fechade sea menor que la fechain, me seleccione la fechade, me la pinte, y que a través de inputbox pueda cambiar la fecha.

El problema es que no sé como hacer para que me seleccione la fechade en caso de cumplir la condicion, ya que ahora lo que me hace es cambiar la fecha en la celda que tenga seleccionada , y lo que quiero es que sea en mi fechade cuando sea mas pequeño que mi fecha in..

No se si me explico bien..

Do While Not IsEmpty(Cells(fila, 5))
fechade = Cells(fila, 5)
If fechain > fechade Then
ActiveCell = fechade
ActiveCell.Value = CDate(InputBox("Fecha incorrecta"))
End If
If fechain > fechade Then
Cells(fila, 5).Interior.Color = RGB(255, 255, 0)

End If
fila = fila + 1
Loop

Gracias
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
Imágen de perfil de JuanC

Consulta sobre Condicion

Publicado por JuanC juanc2942@gmail.com (1052 intervenciones) el 30/11/2013 11:02:32
fijate a ver si te sirve...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Do While Not IsEmpty(Cells(fila, 5))
   fechade = Cells(fila, 5)
   If fechain > fechade Then
begin:
      r = (InputBox("Fecha incorrecta: " & fechade))
      If VBA.Trim(r) <> "" Then
         On Error GoTo errhandler
         Cells(fila, 5) = CDate(r)
      Else
           '//Cancelado
           End
      End If
   End If
   fila = fila + 1
Loop
 
Exit Sub
 
errhandler:
MsgBox Err.Number & VBA.vbCrLf & Err.Description
Err.Clear
Resume begin

Saludos, desde Baires, JuanC
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