Este fórum está sendo desativado

[magnopcampos]

Olá pessoal!

Parece ser bem simples o que procuro, mas está difícil encontrar! Não entendo quase nada de códigos VBA, tudo o que uso é o que encontro aqui no fórum e na internet, mas um desse jeito não estou conseguindo achar:

Digamos que eu tenha numa planilha, nas células A1:A10 vários valores diferentes, porém o único que me interessa é o valor "X"
Gostaria de um código que procurasse nesse intervalo quais células tem o valor "X" e me informasse numa text box os endereços dessas células.

Alguém pode me ajudar?

[Jimmy]

Olá Magno,

Anexe a planilha, ou um modelo com as mesmas características.

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo" existente acima e a direita de cada mensagem.

Jimmy San Juan

[magnopcampos]

Certo, segue planilha de exemplo em anexo.

[Jimmy]

Olá Magno,

Segue planilha para sua avaliação.

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo" existente acima e a direita de cada mensagem.

Jimmy San Juan

[magnopcampos]

Obrigado Jimmy, a função é bem essa mesma!
Agora, talvez eu tenha me expressado mal ao falar como o resultado apareceria, já que não conheço bem o nome das coisas!
Sabe quando se faz alguma coisa errada no windows e que geralmente aparece uma telinha cinza com uma mensagem de erro com um botão de ok, tipo pop-up, é assim que eu gostaria que o resultado fosse mostrado. Quando eu desse ok ou fechasse a janelinha ela desapareceria e só voltaria a aparecer quando eu clicasse no botão de execução novamente.

É possível?

[JCabral]

Tente esta alteração no excelente código do Jimmy

Código: Selecionar todos

Sub Caixa()
    Set Plan = Sheets("Planilha1")
    Col1 = "A"
    Col2 = "B"
    LinIni = 2
    LinFim = Range(Col1 & Rows.Count).End(xlUp).Row
    
    Plan.Select
    Set Aqui = ActiveCell
    ActiveSheet.Shapes.Range(Array("CxTxt1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ""
    ActiveSheet.Shapes.Range(Array("CxTxt2")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ""
    For Lin = LinIni To LinFim
        If UCase(Range(Col1 & Lin).Value) = "X" Then
        
            StrL = StrL & Range(Col1 & Lin).Address & Chr(13)

        End If
    Next
    Aqui.Select
    MsgBox StrL

End Sub

[Jimmy]

Olá Magno,

Desculpe não ter te respondido, mas acho que essa mensagem passou sem eu a ver, e acabou ficando lá pra baixo.

Ainda bem que o Cabral a resgatou

O código adaptado que o Cabral passou é o que você necessita.

Eu apenas retiraria ainda as linhas

ActiveSheet.Shapes.Range(Array("CxTxt1")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ""
ActiveSheet.Shapes.Range(Array("CxTxt2")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ""

pois não são mais necessárias, e se você apagar as caixas da planilha, vai passar a dar pau na execução.

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo" existente acima e a direita de cada mensagem.

Jimmy San Juan