Buscar next

8 envíos / 0 nuevos
Último envío
arguerof
Imagen de arguerof
Offline
última acción: Hace 10 años 7 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Buscar next

Hola Amigos.. volvi!

estoy buscando la forma de buscar un resultado que obtengo atravez de una celda X  en una hoja aparte de mi libro. lo hice con buscarv pero uso que no sea coincidencia exacta y al no aparecerme el valor buscado quiero hacer que busque un next. como hago?

 

Gracias!

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 7 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10670
Re: Buscar next

Supongo que la lista en la que estás buscando no está ordenada

Conseguir esto con una función creo que no va a ser fácil.

igual con COINCIDIR, pero volvemos al problema de que la lista esté ordenada


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 10 años 7 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar next

Amigo, sino algo facil como una macro igual que la funcion buscar de excel.

pero solo que busque especificamente de una celda indicada y devuelva el resultado en otra celda indicada.

como hago esa macro?

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 7 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10670
Re: Buscar next

prueba con un bucle que recorra las celdas del rango, por ejemplo:

Dim celda as Range
Dim TuRango as Range
...
For Each celda In TuRango.Cells
 ' aquí recorremos las celdas dentro de TuRango
 ' por ejemplo para comparar

 ...
Next
 

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 10 años 7 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar next

encontre otra manera:Sub Macro2()

    'busco en el rango y la celda que quiero buscar
   
   
    On Error Resume Next ' por si no esta lo buscado
   
    Range("A15:A20").Select
    Selection.Find(What:=cells(3, 2), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
   
    cells(3, 5) = ActiveCell 'me coloca el resultado en la celda especificada
   
  
  
  
   
End Sub
Sub BUSSIEMENS_2Rectángulo_Haga_clic_en()
On Error Resume Next
Selection.FindNext(After:=ActiveCell).Activate 'sino es el resultado sigo con la busqueda
cells(3, 5) = ActiveCell

End Sub

bien pero ahora necesito poner en otra celda el titulo de el numero que busque. y ahora que hago! ja

se la forma pero no se como hacer para obtener el numero de fila de mi activecell

sabras?

 

Gracias!

 

arguerof
Imagen de arguerof
Offline
última acción: Hace 10 años 7 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar next

YA ESTA!

Sub Macro2()

    'busco en el rango y la celda que quiero buscar
   
   
    On Error Resume Next ' por si no esta lo buscado
   
    Range("l2:l9000").Select
    Selection.Find(What:=cells(3, 2), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
   
    cells(3, 5) = ActiveCell 'me coloca el resultado en la celda especificada

   a = ActiveCell.Row
   cells(6, 5) = cells(a, 16)
   cells(9, 5) = cells(a, 15)
   cells(11, 5) = cells(a, 20)
  
   
End Sub


Sub BUSSIEMENS_2Rectángulo_Haga_clic_en()
On Error Resume Next
Selection.FindNext(After:=ActiveCell).Activate 'sino
cells(3, 5) = ActiveCell

a = ActiveCell.Row
cells(6, 5) = cells(a, 16)
cells(9, 5) = cells(a, 15)
cells(11, 5) = cells(a, 20)

End Sub
 

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 7 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10670
Re: Buscar next

esta es fácil

utiliza la propiedad Row de la celda activa

Activecell.Row


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

 

------
Ya sé Excel, pero necesito más.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 7 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10670
Re: Buscar next

tengo una pregunta

¿por qué Range("l2:l9000")?


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

 

------
Ya sé Excel, pero necesito más.