Inserir linha a partir de uma resposta:


#1

boa tarde!

estou fazendo uma planilha e gostaria que fosse criada uma linha para observações conforme a resposta da pergunta…

ex:.
1.Casado: sim/não
2. filhos: sim/não
3.casa própria:sim/não

se sim, abre uma linha abaixo para reponder:

1.Casado: sim

  • nome conjure: …
  1. filhos: sim
  • nome dos filhos:…
    3.casa própria: não

obrigado!


#2

Boa tarde.
Dá para fazer, mas creio ser mais fácil já deixar as linhas e mostrar ou não conforme a resposta. O idéia seria fazer em um form, muito mais produtivo também, mas segue uma dica.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If UCase(Cells(3, 5)) = "SIM" Then
     Rows("4:4").RowHeight = 15
   Else
     Rows("4:4").RowHeight = 0
End If
If UCase(Cells(5, 5)) = "SIM" Then
     Rows("6:6").RowHeight = 15
   Else
     Rows("6:6").RowHeight = 0
End If

End Sub

abs