Jump to content

Archived

This topic is now archived and is closed to further replies.

lphant

Buscar valor en fila para obtener la columna

Recommended Posts

Buenas tardes;

 

Hoy estoy muy espeso y ………. no doy con la forma de buscar un valor en una fila para obtener la columna en la que se encuentra.

 

Hace tiempo, para obtener la fila en la que se encontraba un valor sabiendo la columna, ponía la siguiente línea.

 

Worksheets("Hoja1").Columns("A").Find("Gato", searchorder:=xlByRows, SearchDirection:=xlPrevious).Row

 

Ahora estoy intentando modificarla para obtener la columna en la que se encuentra un valor sabiendo la fila y por más pruebas que hago no doy con ello.

 

Me podéis ayudar??.

 

Pd: el número de columna o la letra de la columna ( sería mejor ) lo llevo a una variable para poder usarlo.

 

Muchísimas gracias.

Libro4.xlsm

Share this post


Link to post
Share on other sites

Jajaja @lphant, creo que el desayuno me hizo mal... jajaja

Olvida lo que dije y empecemos de nuevo!!! - ME DISCULPO.

La reacción de @avalencia me hizo reaccionar...😜

Hice desde la mañana 3 diferentes formas... te comparto la más corta....

Sub Buscar_Column_LBV()
Dim cCelda, cCol$, aDirec
    cCelda = Worksheets("Hoja1").Cells.Find("Gato", searchorder:=xlByRows, SearchDirection:=xlPrevious).Address(RowAbsolute:=True, ColumnAbsolute:=False, ReferenceStyle:=xlA1)
    aDirec = Split(cCelda, "$")
    cCol = aDirec(0)
    MsgBox "Columna:   " & cCol
End Sub

Saludos y Comentas.

 

Share this post


Link to post
Share on other sites
Hace 3 horas, lphant dijo:

Pd: el número de columna o la letra de la columna ( sería mejor ) lo llevo a una variable para poder usarlo.

Es indistinto que sea el numero o la letra, ambas puedes usarlas 

Mira asi:

Set cel = Hoja1.Cells.Find("Gato", , , xlWhole)
If Not cel Is Nothing Then vmc = VBA.Split(cel.Address, "$")(1)
Set cell = Nothing

 

Saludos 

Share this post


Link to post
Share on other sites
En 9/5/2019 at 20:09 , Leopoldo Blancas dijo:

Jajaja @lphant, creo que el desayuno me hizo mal... jajaja

Olvida lo que dije y empecemos de nuevo!!! - ME DISCULPO.

La reacción de @avalencia me hizo reaccionar...😜

Hice desde la mañana 3 diferentes formas... te comparto la más corta....


Sub Buscar_Column_LBV()
Dim cCelda, cCol$, aDirec
    cCelda = Worksheets("Hoja1").Cells.Find("Gato", searchorder:=xlByRows, SearchDirection:=xlPrevious).Address(RowAbsolute:=True, ColumnAbsolute:=False, ReferenceStyle:=xlA1)
    aDirec = Split(cCelda, "$")
    cCol = aDirec(0)
    MsgBox "Columna:   " & cCol
End Sub

Saludos y Comentas.

 

Probado, funciona perfectamente.

Muchas gracias.

Share this post


Link to post
Share on other sites
En 9/5/2019 at 21:19 , Gerson Pineda dijo:

Es indistinto que sea el numero o la letra, ambas puedes usarlas 

Mira asi:


Set cel = Hoja1.Cells.Find("Gato", , , xlWhole)
If Not cel Is Nothing Then vmc = VBA.Split(cel.Address, "$")(1)
Set cell = Nothing

 

Saludos 

Muchas gracias @Gerson Pineda, funciona perfectamente.

Un saludo,

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

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 Silvia Es exactamente eso lo que deseo realizar, desde ya agradezco tu tiempo, ya lo podemos dar por solucionado. Abrazos 
    • Hola ramonvar (y Luis) Ramón si de todas maneras vas a digitar los 15 números,  y solo deseas evitar ingresar los guiones, lo puedes hacer con formato personalizado, en tipo colocas 000-000-0000000 Pero como te podrás dar cuenta viendo en fx(cuadro de fórmula), el numero en sí no tendrá los guiones, solo será en apariencia. (formato)   o también puedes utilizar una formula en otra celda       Espero te sirva... saludos, Silvia  
    • Buen Día Haplox Excelente respuesta y muchas gracias por la respuesta, tan sencillo y eficaz, el procedimiento, pero la ignorancia no te mata pero te tiene mal, es un dicho popular, acá... demos por solucionado Abrazo
    • No te hace falta macro ni fórmulas, solo dale a la columna un formato personalizado tal que "000-000-0000000"  
    • Buenos Día a todos Si alguien me pudiera dar una mano en esto, les agradecería, tengo columna en una planilla en la cual quiero ingresar números, solo que con este formato xxx-xxx-xxxxxxx este sería ese formato.  Ej. 001-001-0012536, entonces, lo que quiero es que cuando ingreso el primer 001, automáticamente me posicione el cursor en el próximo 001 y así después, ya posicionarme después del carácter "-". Sintetizando, automatizar con una macro, la aparición de los guiones, darme la opción de introducir los tres primeros números y que aparezca el primer guión, luego introducir los otros tres y aparezca el segundo guión "-", para luego completar. Anexo planilla con ejemplos de números Desde ya gracias    FormatoCelda.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy