Este fórum está sendo desativado

[JCabral]

Boa tarde

Mais uma vez pedindo ajuda.

Precisava de desenvolver uma Função que me retornasse se um determinado nome existe num tabela e em caso afirmativo em que linha é que está - se possível gostava que esta função também funcionasse para números, ou seja que pesquisasse numa determinada tabela um determinado numero e se ele existe retornava a linha em que se encontrava .

Anexo um exemplo com uma tabela com nomes.

[gfranco]

Bom dia.
Não pude baixar o seu arquivo pois estou na rua.
Mas esses dias fiz um exemplo neste tópico.
Veja se consegue adaptar.
http://www.gurudoexcel.com/forum/viewto ... 12&t=7779

[FelipeMGarcia]

Cabral,

Veja se o que fiz lhe ajuda, caso queira agradecer, clique na mãozinha.

Abs

[JCabral]

Felipe
Muito Obrigado pela sua resposta.
Precisava que fosse em VBA, tem uma Userform na planilha que enviei.
Obrigado.

[JCabral]

Veja se consegue adaptar.

GFranco, vou tentar, o problema pode ser tentar fazer a pesquisa quando é texto ou quando é numero tudo na mesma função.

Obrigado

[ExcelFlex]

Veja se esta solução funciona pra você.

[JCabral]

ExcelFlex
Quase perfeito, só que gostaria que fosse uma função inserida num Modulo, para ser possível chamar de qualquer Userform e de uma qualquer tabela e que desse para o caso de ser texto ou número, ou seja eu dizia qual a tabela onde procurar e o que queria procurar e a função retornaria a linha da tabela, queria que fosse genérico.
É possível ajustar esse seu código?

[ExcelFlex]

Segue...

[JCabral]

ExcelFlex, porque é que não funciona quando é uma tabela com números?

[ExcelFlex]

Quando você procura um número o parâmetro de pesquisa deve ser um número também, neste caso teria uma segunda função somente para valores numéricos.

Se você quiser buscar datas seria a mesma coisa, teria que criar uma função só para datas.

Código: Selecionar todos

Public Function ExisteNumero(numeroProcurado As Long, intervalo As String)
On Local Error Resume Next
  ExisteNumero = WorksheetFunction.Match(numeroProcurado, Range(intervalo), 0)
End Function