Excel seleccionar célula com resultado da pesquisa

[Gnrtuga]

Olá pessoal!

Portanto tenho este código para fazer uma pesquisa:

Dim pesquisa As String
pesquisa = Application.WorksheetFunction.VLookup(CStr(numproc), Folha1.Range("e2:j11000"), 6, 0)

e o que eu queria era selecionar a celula onde está o valor encontrado para poder fazer alguma coisa deste genero:

ActiveCell.Offset(0, -1) = "g"

Mas já tentei de tudo, e não estou a conseguir... 

[jmaocubo]

Vê se consegues aproveitar algo deste ficheiro:

http://www.vbaexpress.com/kb/default.php?action=13&kb_id=1056

Cumprimentos,

[jpaulino]

Estás a utilizar a forma errada porque o vlookup devolve-te um valor e não uma posição.

[Gnrtuga]

Obrigado pelas respostas!

jmaocubo ainda não consegui "expremer" o conteudo que queria do ficheiro que me deste, mas já tou a ter umas ideias! (não sei se vão funcionar, mas isso é outra história 😁)

jpaulino então que posso fazer para saber qual a localização do resultado da pesquisa?

[jpaulino]

jpaulino então que posso fazer para saber qual a localização do resultado da pesquisa?

Algo assim:

Dim r As Range
Dim valor As String

    valor = "valor a procurar"
    Set r = Range("A1:A20").Find(valor, LookIn:=xlFormulas)

    If Not r Is Nothing Then
        MsgBox r.Address, vbInformation
    Else
        MsgBox "Não encontrado!", vbCritical
    End If

[Gnrtuga]

Boas pessoal, portanto ficou assim:

Private Sub CommandButton1_Click()
Dim pesquisa As Range

    Set pesquisa = Folha1.Range("A:A").Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
    If pesquisa Is Nothing Then
    MsgBox ("Valor não Encontrado")
    Else
    With pesquisa
    .Offset(0, 3) = "Texto A"
    .Offset(0, 5) = "Texto B"
    .Interior.ColorIndex = 45
    End With
    End If
End Sub

e funciona...mas... :nono1: não estou a conseguir seleccionar a coluna para conseguir mudar a cor, ou seja ali no código onde mudo a cor do interior da célula o que eu queria mesmo era mudar o interior da coluna (pode ser toda ou de A a F, por exemplo)...

Obrigado pela ajuda (um bocadinho daqui outro dali e já está quase! 👍 )!

[jpaulino]

Não entendi ... mas queres mudar a cor da coluna? O que isso tem a ver com a pesquisa, ou seja, o que condiciona?

[Gnrtuga]

Lol eu na maioria das vezes sou confuso (e confundo).. 👍

Afinal o que quero é  mudar a cor da linha, ou seja faço a pesquisa, e na linha onde foi encontrado o valor faço algumas alterações (muda o texto de algumas celulas) e gostava que a linha (onde está o valor) mudasse de cor.

?