Parceria RicardoHorta.Net + SUBMARINO !!

Clientes 1.0 - Cap. 83.

• Se o(a) usuário(a) ativar a opção Utilizar dados residenciais,...

• ... os dados digitados em Residencia serão copiados para a planilha Correspondencia.

Serão ?! Como ? Num fizemos nada !

• Calma, microsoftiano(a) contumaz.
• Abra Correspondencia.

• Selecione o objeto CheckBox_CO_DadosResidenciais e o evento Change.

• Defina o quê fazer quando o valor do controle for alterado.

	 Private Sub CheckBox_CO_DadosResidenciais_Change()

	 If CheckBox_CO_DadosResidenciais.Value = False Then
     	   With Correspondencia
                .Range("CO_Rua").Value = ""
                .Range("CO_Numero").Value = ""
                .Range("CO_Comp").Value = ""
                .Range("CO_Bairro").Value = ""
                .Range("CO_Cidade").Value = ""
                .Range("CO_Estado").Value = ""
                .Range("CO_CEP").Value = ""
                .Range("CO_Email").Value = ""
                .Range("CO_Site").Value = ""
                .Range("CO_Celular").Value = ""
                .Range("CO_TelDDD").Value = ""
                .Range("CO_Telefone").Value = ""
           End With
	 Else
           With Correspondencia
                .Range("CO_Rua").Value = Residencia.Range("RE_Rua").Value
                .Range("CO_Numero").Value = Residencia.Range("RE_Numero").Value
                .Range("CO_Comp").Value = Residencia.Range("RE_Comp").Value
                .Range("CO_Bairro").Value = Residencia.Range("RE_Bairro").Value
                .Range("CO_Cidade").Value = Residencia.Range("RE_Cidade").Value
                .Range("CO_Estado").Value = Residencia.Range("RE_Estado").Value
                .Range("CO_CEP").Value = Residencia.Range("RE_CEP").Value
                .Range("CO_Email").Value = Residencia.Range("RE_Email").Value
                .Range("CO_Site").Value = Residencia.Range("RE_Site").Value
                .Range("CO_Celular").Value = Residencia.Range("RE_Celular").Value
                .Range("CO_TelDDD").Value = Residencia.Range("RE_TelDDD").Value
                .Range("CO_Telefone").Value = Residencia.Range("RE_Telefone").Value
           End With
	 End If

	 End Sub

Parceria RicardoHorta.Net + SUBMARINO !!

RicardoHorta.Net

Parceria RicardoHorta.Net + SUBMARINO !!

21/02/2010 - www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta