Página 1 de 1
Código que procura um valor num período e informa o endereço
Enviado: 09 Dez 2019 às 17:50
por 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?
Código que procura um valor num período e informa o endereço
Enviado: 09 Dez 2019 às 20:59
por 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
Código que procura um valor num período e informa o endereço
Enviado: 11 Dez 2019 às 17:53
por magnopcampos
Certo, segue planilha de exemplo em anexo.
Re: Código que procura um valor num período e informa o ende
Enviado: 12 Dez 2019 às 00:15
por 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
Código que procura um valor num período e informa o endereço
Enviado: 12 Dez 2019 às 17:44
por 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?
Re: Código que procura um valor num período e informa o ende
Enviado: 18 Dez 2019 às 09:21
por JCabral
Tente esta alteração no excelente código do Jimmy
Código: Selecionar todosSub 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
Re: Código que procura um valor num período e informa o ende
Enviado: 18 Dez 2019 às 16:34
por 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