Ir ao conteúdo
  • Cadastre-se
André Weiss

Excel Ocultar e reexibir colunas VBA

Posts recomendados

Sou iniciante em VBA e estou tendo um problema.

Preciso localizar e manter selecionado de 4 a 5 células, porém, essa busca é feita com valores adicionados numa TextBox e depois de selecionadas essas células teria que ocultar as colunas que não estiverem com células selecionadas.

Eu consegui fazer a busca dos valores digitados na TextBox e também criei variáveis do tipo Byte para armazenar os valores digitados, não sei se é necessário mas achei q ia precisar e resolvi armazenar em algum lugar os valores.

O programa faz a seleção de cada valor 1 de cada vez e eu não consigo selecionar todos de uma vez com o código de localizar.

 

Segue abaixo o Código que eu fiz e uma imagem ta TextBox:


 

Private Sub CommandButton1_Click()
   
   
    Sheets("ALIGATOR CONE - 663194").Select
    Range("A7:CA7").Select
        
        Selection.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
         
        Selection.Find(What:=TextBox2.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
        Selection.Find(What:=TextBox3.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
    
        Selection.Find(What:=TextBox4.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
       
        Selection.Find(What:=TextBox5.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
        
        Dim Semana1 As Byte
        Semana1 = TextBox1.Text
        Dim Semana2 As Byte
        Semana2 = TextBox2.Text
        Dim Semana3 As Byte
        Semana3 = TextBox3.Text
        Dim Semana4 As Byte
        Semana4 = TextBox4.Text
        Dim Semana5 As Byte
        Semana5 = TextBox5.Text
        
End Sub


    image.thumb.png.bcd55fd7d8e16da50f7388f34a59e170.png

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!