Encontrar Ultima Fila con Condicion

[xinortiz]

Buenos dias

 

por favor espero me puedan ayudar, deseo encontrar la ultima fila de una columna pero segun su valor

por ejemplo:

aqui encuentro la ulitma fila de la columna A (Esta columna contiene fechas)

uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row

pero quiero el resultado de la Ultima Fila segun la fecha que se determine

 

* No puedo subir archivo en este mmento por que aun no renuevo mi suscripcion.

 

Espero me brinden su ayuda.

Muchas Gracias

[Antoni]

¿Tienes duplicados en la columna A?

[xinortiz]

Hola Antoni

 

si, si tengo duplicados, por que son varios rgristros que se ingresan en una misma fecha

[Antoni]

Prueba con esta macro:

Sub ÚltimaFecha()
fecha = InputBox("Introduzca fecha a buscar (dd/mm/aaaa)")
If IsDate(fecha) Then
   fecha = CDate(fecha)
   For x = Hoja1.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
      If Hoja1.Range("A" & x) = fecha Then
         Hoja1.Range("A" & x).Select
         MsgBox "Fecha " & fecha & " encontrada en la fila " & x, vbInformation
         Exit Sub
      End If
   Next
   MsgBox "La fecha " & fecha & " no existe", vbExclamation
End If
End Sub

 

[xinortiz]

Muchas Gracias Antoni

como siempre una buena ayuda.