Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Procurar valor em l...
 
Notifications
Clear all

Procurar valor em linha e esconder a coluna correspondente

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
502 Visualizações
RSS
 isac
(@isac)
Posts: 0
New Member
Topic starter
 

Olá pessoal,

Ja perdi várias horas com essa macro e nao tive nenhum resultado... talvez vcs possam me ajudar. É o segunite:

A macro precisaria procurar um valor em uma linha (Ex. Linha 2) e se esse valor for achado em um intervalo de colunas (Ex. A-Z) ela irá esconder apenas a coluna da correspondente linha onde o valor foi achado.

Exemplo: No Intervalo de colunas de A - Z tenho nas na colunas B, C, e J na Linha 2 o valor "azul". A Macro deveria esconder todas as outras colunas que nao contem azul na linha 2, assim ficariam visiveis apenas B, C e J.

Desde ja agradeco.

Abraco

Antonio

Obs. Me desculpem pela falta de alguns acentos, estou com um teclado meio esquisito aqui.

 
Postado : 05/07/2015 7:16 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não sei se entendi completamente, mas tente adaptar, caso necessário....

Option Explicit
Private Sub AleVBA_16493()
    Dim vWhat       As Variant
    Dim wks         As Worksheet
    Dim rFind       As Range
 
    vWhat = InputBox(Prompt:="O que procura?")
    If Len(vWhat) = 0 Then Exit Sub
 
    For Each wks In Worksheets
        Set rFind = wks.Cells.Find(What:=vWhat, _
                                   LookIn:=xlValues, _
                                   LookAt:=xlPart, _
                                   MatchCase:=False, _
                                   SearchFormat:=False)
        If Not rFind Is Nothing Then
            Application.Goto rFind
            rFind.EntireColumn.Hidden = True
            Exit Sub
        End If
    Next wks
 
    MsgBox ("Não encontrado")
End Sub

Att

 
Postado : 06/07/2015 1:02 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico