Jump to content
Enid86

ANSWERED Averiguar última Celda con valor "C" cuando en la columna, varias celdas contienen ése mismo valor.

Recommended Posts

Buenas tardes!

A ver si alguien sabe ayudarme... 🤓

Si tenemos una columna, cuyas celdas siempre contienen "C" o "D",  ¿cómo puedo localizar la última "C" de la columna? Si:

- La última "C" no tiene por qué coincidir con la última fila.

- No podemos saber cuántas filas, ni cuántas "C" o "D" habrá.

Es decir, que hay que evaluar todas las celdas de una columna, cuyo número de filas es desconocido y seleccionar la celda cuyo valor sea C y no haya más celdas después con C, aunque sí puede haber anteriores celdas con ese mismo valor.

Gracias! 

Share this post


Link to post
Share on other sites

En realidad no hay ningún patrón ni orden... Habrá C y D mezcladas, desordenadas y no hay que modificar su posición.. Pero gracias, igualmente. 

Share this post


Link to post
Share on other sites
Hace 24 minutos , Enid86 dijo:

En realidad no hay ningún patrón ni orden... Habrá C y D mezcladas, desordenadas y no hay que modificar su posición.. Pero gracias, igualmente. 

Pero el aporte de @Antoni, hace lo que necesitas y no mencionas nada al respecto

 

Saludos 

Share this post


Link to post
Share on other sites

Hola @Enid86

El código del Maestro Antoni efectúa lo que necesitas.
Suerte!

 

Sub encontrar_letra()
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

ccol = Hoja1.Cells(3, 2).Value
ufila01 = 0: ufila01 = Hoja1.Cells(Rows.Count, ccol).End(xlUp).Row
ctexto = Hoja1.Cells(4, 2)

With Columns(ccol)
   .Find(ctexto, .End(Down), , xlWhole, , xlPrevious).Select
End With
MsgBox "La última celda con valor: " & ctexto & " es la celda: " & ActiveCell.Address

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With
End Sub

ae20200503_post43338_encontrar letra.xlsm

Share this post


Link to post
Share on other sites

Hola  Enid86, como bien dice el Maestro  Gerson Pineda, el aporte del Maestro  Antoni   Antoni  resuelve perfectamente su solicitud, me la impresión de que no te has dado cuenta de su propuesta, te muestro un ejemplo de su código para que veas que verdaderamente cumple con lo solicitado.

GIF1.gif

Share this post


Link to post
Share on other sites

Buenas!

Porque el de Antoni todavía no me había dado tiempo a probarlo! He estado un poco desconectada, pero ya lo estoy retomando..
A ver qué cositas interesantes me habéis dejado por aquiiiií..... 🤓

Share this post


Link to post
Share on other sites

MUCHAS GRACIAS, ANTONI! 😄

Perdona que haya tardado tanto en revisar la respuesta, es que estuve muy entretenida con el torneo de Carlsen Invitational.. 😅

Parece que me funciona perfectamente, solo omití el .Select, porque lo quería para almacenar el rango en una variable.

Ya cuando termine con todo este proyecto lo subiré completo, para que cotilleéis si os apetece...

Gracias porque siempre estás al pie del cañón... 😊🌺

En 3/5/2020 at 17:34 , Antoni dijo:

Suponiendo que tus datos están en la columna A:


With Columns("A") 'Columna con los datos
   .Find("C", .End(xlDown), , xlWhole, , xlPrevious).Select
End With

 

Buen domingo!

 

 

 

 

Share this post


Link to post
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

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy