Notifications
Clear all

Ocultar / Exibir linha dependendo do valor

6 Posts
2 Usuários
0 Reactions
2,311 Visualizações
(@celsoyano)
Posts: 75
Trusted Member
Topic starter
 

Boa tarde pessoal.
Estou procurando uma macro que oculte e exiba linhas dependendo do valor de uma célula

Fiz uma pesquisa no forum nesses links abaixo:
search.php?keywords=ocultar+linha&fid[0]=16
search.php?keywords=ocultar+linha&fid[0]=10

mas não encontrei como eu gostaria. O mais próximo foi o tópico: viewtopic.php?f=16&t=3388&p=26501&hilit=ocultar+linha#p26501
que ainda não é como gostaria.

O que eu gostaria é: Conforme a planilha "Modelo" em anexo, na planilha "Calculo", linhas D6:I6, eu informo as tabelas ("A1"; "A2"; "A3"; ...) que vou utilizar para um cálculo qualquer ... com isso, na planilha "Tabela", gostaria fossem exibidas apenas as tabelas informadas e as demais ficassem ocultas. Quando eu mudar o código nas células D6:i6, a planilha "Tabela" fosse atualizada automáticamente, ou seja; exiba todas e oculte as que não foram informadas.

Agradeço desde já a quem puder me ajudar.
Obrigado :D

 
Postado : 13/09/2012 12:00 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja se assim te ajuda.

http://www.sendspace.com/file/hfw30j

Como eu não entendi a forma de gatilho, fiz da minha forma, mas caso queira é só adaptar de acordo com que você precisar.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/09/2012 4:14 pm
(@celsoyano)
Posts: 75
Trusted Member
Topic starter
 

Alexandrevba, obrigado pela ajuda, mas na verdade o que eu gostaria é que quando eu informasse "A1" na célula D6, na planilha "Tabelas" exibesse a Tabela A1. Se eu informasse "A1" na D6; "A2" na E6 ... na planilha "Tabelas" exibesse as Tabelas A1 e A2. Se eu informasse "A1" na D6; "T" na E6 e "A3" na F6, na planilha na planilha "Tabelas" exibesse as Tabelas A1; A3 e T. E assim por diante. O "gatilho" seria a alteração nos valores das células D6 à i6.

Se puder me ajudar eu agradeço.

 
Postado : 14/09/2012 6:07 am
(@celsoyano)
Posts: 75
Trusted Member
Topic starter
 

alexandrevba, boa tarde

Eu consegui fazer o que eu gostaria, mas obrigado pela anteção. Estou disponibilizado a planilha em anexo, para que interessados possam consultar. Bom como eu não entendo de VBA, pode ser que exista uma outra forma mais fácil de fazer o que eu gostaria ... essa foi a forma que eu consegui!

Eu peguei um código aqui no "Planilhando" para gerar em pdf, mas ainda não consegui aplicar a minha necessidade. Esse arquivo terá outras planilhas além dessas que estão no "modelo", talvez 5 ou 6 planilhas. No entanto, eu gostaria de alterar o código que consta no arquivo "modelo", para que ele gerasse em pdf apenas as planilhas "Calculo" e "Tabelas".

Se alguém puder me ajudar eu agradeço.

 
Postado : 14/09/2012 11:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

Sub CommandButtonPDF_Click()
Dim SvInput As String
Dim Data As String
Dim var_MENSAGEM
Dim Nome As String
Nome = InputBox("Digite o nome para o relatório", "Gerar Relatório PDF")
Data = VBA.Format(VBA.Date, "dd-mm-yyyy")
SvInput = ThisWorkbook.Path & Application.PathSeparator & Nome & "_" & Data & ".pdf"

Sheets(Array("CALCULO", "TABELAS")).Select
    For Each sh In ActiveWindow.SelectedSheets
        With sh
            .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=SvInput, _
                OpenAfterPublish:=True
        End With
        Exit For
        Next

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/09/2012 1:12 pm
(@celsoyano)
Posts: 75
Trusted Member
Topic starter
 

Reinaldo.
obrigado ... deu certinho!!!!

 
Postado : 14/09/2012 3:22 pm