Jump to content

Encontrar Ultima Fila con Condicion


Recommended Posts

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

Link to comment
Share on other sites

Hola Antoni

 

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

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy