Aunque se ha contestado a esta cuestión un montón de veces, y como parece que la gente no se entera, porqué siguen preguntando lo mismo una y otra vez, a ver si tenemos mas suerte y se fijan en esta función.
Function Buscar(Valor As Variant, _
Optional Columna As Integer = 1, _
Optional Hoja As Worksheet) As Double
On Error GoTo NotFound
If Hoja Is Nothing Then Set Hoja = ActiveSheet
Hoja.Activate
Columns(Columna).Find(Valor).Select
Buscar = Selection.Row
Exit Function
NotFound:
Buscar = 0
End Function
[/CODE]
Esta función, busca un valor en una columna, de cualquier hoja, de cualquier libro.
Si encuentra el valor, devuelve el número de fila, si no lo encuentra, devuelve 0.
Consta de tres parámetros:
[CODE]
Valor El valor a buscar Obligatorio
Columna Columna en donde buscar Opcional Se asume 1
Hoja Hoja donde buscar Opcional Se asume ActiveSheet
La forma de llamada es:
Fila = Buscar(Valor, Columna, Hoja)[/CODE]
Ejemplos:
Busca "Antoni" en la columna 1 de la hoja activa
[CODE]Fila = Buscar("Antoni")[/CODE]
Busca "Antoni" en la columna 3 de la hoja activa
[CODE]Fila = Buscar("Antoni", 3)[/CODE]
Busca "Antoni" en la columna 3 de la hoja "Proveedores"
Hola a todos:
Aunque se ha contestado a esta cuestión un montón de veces, y como parece que la gente no se entera, porqué siguen preguntando lo mismo una y otra vez, a ver si tenemos mas suerte y se fijan en esta función.
Esta función, busca un valor en una columna, de cualquier hoja, de cualquier libro.
Si encuentra el valor, devuelve el número de fila, si no lo encuentra, devuelve 0.
Consta de tres parámetros:
Valor El valor a buscar Obligatorio
Columna Columna en donde buscar Opcional Se asume 1
Hoja Hoja donde buscar Opcional Se asume ActiveSheet
La forma de llamada es:
Fila = Buscar(Valor, Columna, Hoja)[/CODE]
Ejemplos:
Busca "Antoni" en la columna 1 de la hoja activa
Busca "Antoni" en la columna 3 de la hoja activa
Busca "Antoni" en la columna 3 de la hoja "Proveedores"
Fila = Buscar("Antoni", 3, MiHoja)[/CODE]
Busca "Antoni" en la columna 3 de la hoja "Proveedores", en el libro Cuentas.xls
Fila = Buscar("Antoni", 3, MiHoja)[/CODE]
A tener en cuenta: Si se informa el parámetro Hoja, cambia la hoja activa.
Saludos a todos. Antoni.