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.




  • Posts

    • Hola, como ya te han comentado, no se puede evitar ver la presentación propia de Excel,  no hay forma de evitarla así se usen macros o cualquier evento del archivo, claro, dependiendo del tamaño del  archivo y/o las características y/o lo que tengas en tu evento Open, se verá menos o más tiempo. Para terminar, por más que actives tu Userform a través del  evento Open y quites la visibilidad del Excel, igual se verá la dichosa presentación, y no,  tampoco hay forma de mostrar directamente el Userform ¿Por qué? Excel es una hoja de cálculo, no es un Entorno de Desarrollo Integrado (IDE) con el que se crea software propio, el VBA es parte de Excel, no se puede compilar aparte, si quieres algo propio,  necesariamente tienes que recurrir a Visual.Net, C++, C, C#,  etc. Saludos. 
    • Buen día estimados expertos, acudo a ustedes solicitando su valiosa colaboración con la finalidad de poder resolver esta tématica: tengo un formulario en el cual existen 3 combobox dependientes unos del otro, lo que pretendo hacer es que dependiendo el pais que se coloque en el textbox1 sea como ponga la nacionalidad en el textbox 2, es decir; en el formulario tenemos el btn_aceptar que es el que manda concatenadamento el contenido de los 3 comboboxs hacia el textbox1, pero lo que quiero hacer es que con el btn_nacionalizar ponga en el textbox2 la nacionalidad deacuerdo a lo que se escriba en el textbox1, por ejemplo si pusieron en el textbox1 "MÉXICO" (aunque existan otros caracteres pero que identifique la palabra "MÉXICO") entonces que ponga en el textbox2 "MEXICANA", si pusieron "JAPÓN" entonces que ponga "JAPONESA", y asi contiguamente; ojo no es necesario hacerlo con todos los paises, lo que necesito en sí es la lógica y obvio las sentencias para poder continuar yo con los demas paises. Ya que lo que debe hacer el programa en resumen es checar la "palabra" del pais dentro del textbox1 y dependiendo de eso poder poner la "palabra" de nacionalidad en el textbox2. De antemano mil gracias a quien pueda ayudarme. Dejo archivo muestra en dropbox   https://www.dropbox.com/s/4bzrng5yq8l9ewi/Nacionalizar.rar?dl=0
    • Que tal, a la planilla le han puesto espacios a los números ya sea adelante y atrás, por lo tanto no suma. ¿Cómo saco de una vez todos los espacios en blanco? Adjunto archivo. Muchas gracias! No suma por los espacios en blanco.xlsx
    • Visor He tenido un tiempito hoy, así que envío mi versión, revísalo y nos comentas   Saludos a ambos! Importar datos de otro libro_GP.zip
    • Tema solucionado!   Se agradece la ayuda.   Saludos JB
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy