Este fórum está sendo desativado

[AndreVitor]

Boa noite pessoal do Guru,

Gostaria de saber se alguém poderia me ajudar com a criação de um code para ocultar/reexibir uma certa quantidade de linhas de acordo o número que eu colocar numa célula. Se não ficou muito claro aqui, no exemplo anexado tem a descrição básica do que eu gostaria de fazer.

O ideal seria realmente só ocultar/reexibir, pois na planilha principal se for excluído ou adicionado linhas, poderá gerar erros em outras matrizes dependentes desse intervalo.

[Jimmy]

Olá André,

Veja se isto te atende.

Jimmy San Juan

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$D$2" Or Target.Value = "" Then Exit Sub
 Rows.Hidden = False
 Range("A" & 5 + [D2] & ":A" & Cells(Rows.Count, 1).End(3).Row).EntireRow.Hidden = True
End Sub