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

¿Tienes duplicados en la columna A?

Hola Antoni

 

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

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

 

Muchas Gracias Antoni

como siempre una buena ayuda.