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!
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.
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?
prueba con un bucle que recorra las celdas del rango, por ejemplo:
Dim celda as RangeDim 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.
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!
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
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.
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.