Como inserir dados em planilha clicando em option button VBA

[lawrywz]

Sou iniciante. Na verdade não trabalho com programação.

Estou criando um programa pelo VBA, um "cadastro de irmãos" da igreja que faço parte.

Aprendi pelo youtube. Criei tela de login, formulário constando nome, endereço, telefone, etc.

Só que me deparei com a seguinte situação: criei dois botões de opção referente estado civil, "solteiro" e "casado".

Quando clico em "solteiro", os campos "conjuge" e "data de casamento" desabilitam.

Quando clico em "casado" habilitam todos os campos.

Eu queria que quando clicasse nestes botões, fosse inserido na planilha, na coluna "estado civil" os dados "solteiro" ou "casado".

 

Criei, também, mais dois botôes de opção: membro e congregado. Onde penso que será usado os mesmos comandos referentes ao estado civil.

 

Criei, ainda, 06 checkbox referentes aos ministérios que há na igreja que faço parte. A necessidade é a mesma, Ou seja, clicando nas caixas, seja alimentada a planilha.

 

Havia esquecido de colocar os códigos:

Private Sub CASADO_Click()
If CASADO.Value = 1 Then
CASADO.Enabled = True
Else
SOLTEIRO.Enabled = False
CAIXA_NASCIMENTO.Enabled = True
CAIXA_CASAMENTO.Enabled = True
CAIXA_CONJUGE.Enabled = True
CAIXA_CONJUGE.SetFocus
End If

End Sub

Private Sub SOLTEIRO_Click()
If SOLTEIRO.Value = 1 Then
SOLTEIRO.Enabled = True
Else
CASADO.Enabled = False
CAIXA_CONJUGE.Enabled = False
CAIXA_CASAMENTO.Enabled = False
CAIXA_NASCIMENTO.Enabled = True
CAIXA_NASCIMENTO.SetFocus
End If

End Sub

 

Agradeço a atenção.