Macro ocultar e exibir linhas  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Macro ocultar e exibir linhas

Mensagempor paulocezar » Qui Nov 22, 2018 10:21 am

Galera, me ajude aqui nessa parada, por favor.
Já tentei adaptar alguns posts que peguei da net e não consigo chegar a uma solução. É o seguinte. Gostaria de quando a célula A2 da planilha2 estivesse vazia, ocultasse as linhas 6 e 7 da planilha1 e da mesma forma quando a célula A3 da planilha2 estivesse vazia, as linhas 8 e 9 ficassem ocultas e quando estivesse preenchidas exibissem as linhas 6, 7, 8 e 9 já citadas.

De já agradeço a quem possa me ajudar.

Obs.: Planilha em anexo.


Paulo Cézar.
Você não está autorizado a ver ou baixar esse anexo.
paulocezar
Membro
Membro
 
Mensagens: 70
Registrado em: Seg Mai 02, 2016 10:34 am
Has thanked: 31 times
Have thanks: 0 time

{ SO_SELECT }

Re: Macro ocultar e exibir linhas

Mensagempor NERI S » Qui Nov 22, 2018 11:49 am

Amigo
Dei uma olhada e não sei se entendi bem, mas fiz o que eu entendi. Fiz o exemplo somente de uma coisa, se for isto, faça você o resto.

Veja o anexo: Se não tiver nada na plan2 (A2) e clicar em ocultar, será oculta as linhas 6 e 7. Do contrário, se preenchidas, e clicar em reexibir, elas retornarão.

Parece que é isto, se for...ótimo.
Você não está autorizado a ver ou baixar esse anexo.

For this post the author NERI S thanked:
paulocezar (Seg Nov 26, 2018 4:33 pm)
NERI S
Membro
Membro
 
Mensagens: 182
Registrado em: Sex Jul 01, 2016 2:39 pm
Has thanked: 30 times
Have thanks: 11 times

Re: Macro ocultar e exibir linhas

Mensagempor paulocezar » Qui Nov 22, 2018 11:55 am

Neri,

É isso mesmo que eu queria, só que eu esqueci de citar um detalhe, eu queria que fosse automático e não clicando em um botão. Pode ser???

Obrigado pela disponibilidade.

Paulo Cezar.
paulocezar
Membro
Membro
 
Mensagens: 70
Registrado em: Seg Mai 02, 2016 10:34 am
Has thanked: 31 times
Have thanks: 0 time

Re: Macro ocultar e exibir linhas

Mensagempor NERI S » Qui Nov 22, 2018 1:48 pm

Segue
Você não está autorizado a ver ou baixar esse anexo.

For this post the author NERI S thanked:
paulocezar (Seg Nov 26, 2018 4:33 pm)
NERI S
Membro
Membro
 
Mensagens: 182
Registrado em: Sex Jul 01, 2016 2:39 pm
Has thanked: 30 times
Have thanks: 11 times

Re: Macro ocultar e exibir linhas

Mensagempor paulocezar » Qui Nov 22, 2018 3:08 pm

Neri,

Não consegui entender sua formula nem tão pouco adaptar à minha planilha. O campo onde será alterado está na planilha2 e o campo onde será ocultado está também na planilha2 (ou então não entendi sua formula). Eu preciso que o campo a ser alterado fique numa planilha e o campo a ser ocultado fique em outra planilha. Se não é isso que está acontecendo, por favor, comente sua formula.

Desculpe se estou te dando trabalho, mas posso lhe afirmar que estou me esforçando. kkkkk
paulocezar
Membro
Membro
 
Mensagens: 70
Registrado em: Seg Mai 02, 2016 10:34 am
Has thanked: 31 times
Have thanks: 0 time

Re: Macro ocultar e exibir linhas

Mensagempor NERI S » Qui Nov 22, 2018 5:49 pm

Ok. Por favor, vote positivamente e Marque como resolvido.

For this post the author NERI S thanked:
paulocezar (Seg Nov 26, 2018 4:33 pm)
NERI S
Membro
Membro
 
Mensagens: 182
Registrado em: Sex Jul 01, 2016 2:39 pm
Has thanked: 30 times
Have thanks: 11 times

Re: Macro ocultar e exibir linhas

Mensagempor paulocezar » Seg Nov 26, 2018 5:00 pm

Neri,

Na planilha que você me mandou está ocultando as linhas 6 e 7, seria possível quando ocultasse essas linhas incluísse duas linhas em branco depois da linha 8?? É que na minha planilha tem um formulário e quando oculta as linhas 6 e 7 o formulário fica menor e incluindo as duas linhas volta ao mesmo tamanho.

Agradecido

Paulo Cezar.
paulocezar
Membro
Membro
 
Mensagens: 70
Registrado em: Seg Mai 02, 2016 10:34 am
Has thanked: 31 times
Have thanks: 0 time

Re: Macro ocultar e exibir linhas  [Resolvido]

Mensagempor paulocezar » Ter Dez 04, 2018 4:05 pm

Neri,

Mais uma vez muito obrigado pela ajuda. Resolvi a duvida acima da seguinte maneira: repeti as formulas que você me mandou pra ocultar e reexibir as linhas iniciais e rodei com o outro código da planilha "principal", conforme desfrito abaixo:
Código: Selecionar todos
Sub Ocultar()
Sheets("Autorização de Saida").Rows("6:7").EntireRow.Hidden = True '  na planilha 1
End Sub

Sub Reexibir()
Sheets("Autorização de Saida").Rows("6:7").EntireRow.Hidden = False '  na planilha 1
End Sub

Sub Ocultar2()
Sheets("Autorização de Saida").Rows("8:9").EntireRow.Hidden = True '  na planilha 1
End Sub

Sub Reexibir2()
Sheets("Autorização de Saida").Rows("8:9").EntireRow.Hidden = False '  na planilha 1
End Sub
Sub Ocultar3()
Sheets("Autorização de Saida").Rows("16:17").EntireRow.Hidden = True '  na planilha 1
End Sub
Sub Reexibir3()
Sheets("Autorização de Saida").Rows("16:17").EntireRow.Hidden = False '  na planilha 1
End Sub[/b]


Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Principal").Range("C9").Value = "" Then
Call Ocultar
Else
Call Ocultar3
End If
If Sheets("Principal").Range("C9").Value <> "" Then
Call Reexibir
Else
Call Reexibir3
End If
If Sheets("Principal").Range("C11").Value = "" Then
Call Ocultar2
End If
If Sheets("Principal").Range("C11").Value <> "" Then
Call Reexibir2
End If
End Sub

Um abraço e inté.

Paulo Cezar.
paulocezar
Membro
Membro
 
Mensagens: 70
Registrado em: Seg Mai 02, 2016 10:34 am
Has thanked: 31 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Feedfetcher e 3 visitantes