codigo que devuelva la referencia de ubicacion de una cadena de texto

Suponiendo que tu matriz de datos está en A3:A40, prueba con:

Sub a()
Range("E2").Value = Range("A3:A40").Find(What:=Range("B2")).Row
End Sub

Saludos desde Tenerife (España).
*******************************
"isaac" escribió en el mensaje
news:
Estimados amigos necesito arreglar el siguiente codigo de tal manera
que los datos que ponga en la celda b2 (que lo meti como la variable
declarada clave_00) sean buscados dentro de una matriz de datos, donde
existen registros alfanumericos en las celdas, lo que deseo es que me
devuelva el numero de fila de esa matriz (en la celda e2) donde
localice esa parte de la cadena de texto introducida en b2, gracias de
nuevo.

el codigo que he hecho la busca y me informa el numero de celda pero
reemplaza en la celda encontrada con la formula de buscar fila.

Isaac

Sub a()
'
' a Macro
' Macro grabada el 07/08/2006 por ING. ISAAC GARCÍA LÓPEZ
'

'
Application.Goto Reference:="clave_00"
Cells.Find(What:=Clave_00, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E2").Select
ActiveCell.FormulaR1C1 = "=ROW(R[41]C)"
End Sub

Si la matriz es de varias columnas, por ejemplo A3:B40, prueba con:

Sub a()
Range("E2").Value = Range("A3:B40").Find(What:=Range("B2")).Address
End Sub

Saludos desde Tenerife (España).
***********************************
"isaac" escribió en el mensaje
news:
Estimados amigos necesito arreglar el siguiente codigo de tal manera
que los datos que ponga en la celda b2 (que lo meti como la variable
declarada clave_00) sean buscados dentro de una matriz de datos, donde
existen registros alfanumericos en las celdas, lo que deseo es que me
devuelva el numero de fila de esa matriz (en la celda e2) donde
localice esa parte de la cadena de texto introducida en b2, gracias de
nuevo.

el codigo que he hecho la busca y me informa el numero de celda pero
reemplaza en la celda encontrada con la formula de buscar fila.

Isaac

Sub a()
'
' a Macro
' Macro grabada el 07/08/2006 por ING. ISAAC GARCÍA LÓPEZ
'

'
Application.Goto Reference:="clave_00"
Cells.Find(What:=Clave_00, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E2").Select
ActiveCell.FormulaR1C1 = "=ROW(R[41]C)"
End Sub

Hola isaac,

Tal vez algo asi:

Sub a()
Dim Rng As Range
On Error Resume Next
With ActiveSheet
Set Rng = .Range("B5:G1000")
.Range("E2") = Rng.Find( _
What:=.Range("B2"), _
After:=Rng(1), _
LookIn:=xlValues, _
LookAt:=xlPart).Row
End With
End Sub

o asi:


Sub a()
Dim Rng As Range
On Error Resume Next
With ActiveSheet
Set Rng = .Range("B5:G1000")
.Range("E2") = Rng.Find(.Range("B2"), Rng(1), xlValues, xlPart).Row
End With
End Sub


Saludos,
KL


"isaac" wrote in message news:
Estimados amigos necesito arreglar el siguiente codigo de tal manera
que los datos que ponga en la celda b2 (que lo meti como la variable
declarada clave_00) sean buscados dentro de una matriz de datos, donde
existen registros alfanumericos en las celdas, lo que deseo es que me
devuelva el numero de fila de esa matriz (en la celda e2) donde
localice esa parte de la cadena de texto introducida en b2, gracias de
nuevo.

el codigo que he hecho la busca y me informa el numero de celda pero
reemplaza en la celda encontrada con la formula de buscar fila.

Isaac

Sub a()
'
' a Macro
' Macro grabada el 07/08/2006 por ING. ISAAC GARCÍA LÓPEZ
'

'
Application.Goto Reference:="clave_00"
Cells.Find(What:=Clave_00, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E2").Select
ActiveCell.FormulaR1C1 = "=ROW(R[41]C)"
End Sub