Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
#51013
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?
#51017
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
#51070
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
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por Jimmy em 18 Dez 2019 às 16:56, em um total de 1 vez.
#51088
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?
#51227
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

#51240
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord