Exibir/Ocultar Linhas [RESOLVIDO]

[ricardourias]

Caros Amigos,

Tenho um formulário de cadastro de clientes, onde ocultei as linhas da planilha de modo que o usuário possa visualizar somente as linhas que contém informações. Gostaria que ao incluir um novo registro na planilha uma nova linha fosse re-exibida, mas não tenho nem ideia como fazer isto.

Segue o programa para avaliação...

Alguém pode me ajudar?

[webmaster]

Ricardo,

Não cheguei a abrir o anexo, mas pelo que descreveu, mas ao adicionar a linha, ela aparece oculta? Tentei mudar a visibilidade dela, pois provalvelmente está setada para hidden.

Abraços

[ricardourias]

Boa tarde Tomás,

Na verdade as linhas já estão ocultas por Default. A ideia é que ao adcionar um registro via UserForm, ao salvar o mesmo a linha ficaria visível (as linhas sem registros, ou seja, em branco, ficariam ocultas).

Será que vc poderia me ajudar?

Abs.,

Ricardo

[BaptistaCG]

Boa tarde Tomás,

Na verdade as linhas já estão ocultas por Default. A ideia é que ao adcionar um registro via UserForm, ao salvar o mesmo a linha ficaria visível (as linhas sem registros, ou seja, em branco, ficariam ocultas).

Será que vc poderia me ajudar?

Abs.,

Ricardo

Caro amigo,

Coloquei o seguinte código no começo e no fim do botão de incluir:

no começo:
Rows("1:65536").Select
Selection.EntireRow.Hidden = False
Range("a1").Select
no fim:
Rows("1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireRow.Hidden = True
Range("a1").Select

imagino que é isto que vc está precisando testa aí estou postando a planilha com os dados já inclusos.

Abraço,
Att..