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
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
0
