Jump to content

Excel seleccionar célula com resultado da pesquisa


Recommended Posts

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...  :wallbash:

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Link to comment
Share on other sites

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?

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Link to comment
Share on other sites

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
Link to comment
Share on other sites

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! 👍 )!

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Link to comment
Share on other sites

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.

?

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.