fjjohann1,

Boa tarde!

Dê um nome a faixa de linhas que você quer e depois utilize esse nome no seu código. quando você insere um nome a uma faixa de células, mesmo que você insira linhas antes, o Excel preservará o nome dado alterando automaticamente a faixa de linhas.

Wagner Morel,

perdoe minha ignorância,

mas como eu faço isso?

Você seleciona todas as células de C161 a C165, na interface do Excel e vai no menu Fórmulas, Painel Nomes Definidos,menu Definir Nome, item Definir nome. Daí é só dar um nome e clicar em OK.

No VBA, ao invés de:

Rows("161:165").Hidden = True

Você substitui a referência célula ("161:165") pelo nome que você deu para o intervalo.

Wagner,

fiz a definição do nome das linhas 161:165 coloquei (Diversos)

e fiz a alteração na Macro para:

Sub Oculdiver()
If Range("c160").Value = "1" Then
Rows("Diversos").Hidden = True

Else
Rows("Diversos").Hidden = False

End If

End Sub

porém a macro não executa, da erro em tempo de execução.

porém desta forma, a celula c160 continua fixa, e caso eu insira uma linha antes dela, ela deveria ir pra c161 na macro.. como soluciono isso?

Não sou muito adepto a esse tipo de rotina.
Mas... creio que possa utilizar

Sub Oculdiver()
Dim iCelAtiva As Long
iCelAtiva = ActiveCell.Row
    If Range("c" & iCelAtiva).Value = "1" Then
        Rows(iCelAtiva + 1 & ":" & iCelAtiva + 5).Hidden = True
    Else
        Rows(iCelAtiva + 1 & ":" & iCelAtiva + 5).Hidden = False
    End If
End Sub

Wagner, acredito que assim não é o que eu preciso.

não posso ficar com celulas fixas, no caso: uma contagem de 5 linhas fixas.. pois a qualquer momento posso incluir uma linha nova..

vamos lá.

na imagem (a) em anexo voce pode constatar a minha planilha..

na linha 160 tenho um botao onde resulta um codigo na celula c160 (0 ou 1)
na macro, faço as linhas 161:165 se ocultarem caso o valor da celula c160 seja 0.

montei outra planilha conforme na imagem (b) em anexo..

onde consigo extrair automaticamente os itens:
1. Linha de título (Diversos) a qual na minha macro atualmente esta como 160c, e na planilha (b) esse valor pode ser constatado na celula c8
2. Numero da linha inicial e final que quero extrair, que na planinha (b) esse valor pode ser encontrado nas celulas d8 e f8.

feito isso, posso incluir linhas tanto antes da linha 160 como no meio das linhas que quero ocultar,, que na minha planilha (b) ficará correto.

Sendo assim,
lá na macro:

Sub Oculdiver()
If Range("c160").Value = "1" Then
Rows("161:165").Hidden = True

Else
Rows("161:165").Hidden = False

End If

End Sub

em vez de eu fixar os itens (c160) e (161:165), eu gostaria de referenciar a celula (c8 da planilha (b)) e as celulas (d8 e 98 da planilha (b))

Muito obrigado pela paciência. Se puder me ajudar..

Alguem saberia me ajudar?

Disponibiliza o arquivo

Veja se ajuda.

Sub Oculdiver()
 If Range("C" & [C8]).Value = 1 Then
  Rows([D8] & ":" & [F8]).Hidden = True
 Else: Rows([D8] & ":" & [F8]).Hidden = False
 End If
End Sub