Parceria RicardoHorta.Net + SUBMARINO !!

Clientes 1.0 - Cap. 84.

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

• ... os dados serão copiados da planilha Residencia.

• No Editor VBA, abra Empresa.

• Selecione CheckBox_EM_DadosResidenciais e o evento Change.
• Programe o danado.

	 Private Sub CheckBox_EM_DadosResidenciais_Change()

	 If CheckBox_EM_DadosResidenciais.Value = False Then
     	With Empresa
                .Range("EM_Rua").Value = ""
                .Range("EM_Numero").Value = ""
                .Range("EM_Comp").Value = ""
                .Range("EM_Bairro").Value = ""
                .Range("EM_Cidade").Value = ""
                .Range("EM_Estado").Value = ""
                .Range("EM_CEP").Value = ""
                .Range("EM_Email").Value = ""
                .Range("EM_Site").Value = ""
                .Range("EM_Celular").Value = ""
                .Range("EM_TelDDD").Value = ""
                .Range("EM_Telefone").Value = ""
        End With
	Else
        With Empresa
                .Range("EM_Rua").Value = Residencia.Range("RE_Rua").Value
                .Range("EM_Numero").Value = Residencia.Range("RE_Numero").Value
                .Range("EM_Comp").Value = Residencia.Range("RE_Comp").Value
                .Range("EM_Bairro").Value = Residencia.Range("RE_Bairro").Value
                .Range("EM_Cidade").Value = Residencia.Range("RE_Cidade").Value
                .Range("EM_Estado").Value = Residencia.Range("RE_Estado").Value
                .Range("EM_CEP").Value = Residencia.Range("RE_CEP").Value
                .Range("EM_Email").Value = Residencia.Range("RE_Email").Value
                .Range("EM_Site").Value = Residencia.Range("RE_Site").Value
                .Range("EM_Celular").Value = Residencia.Range("RE_Celular").Value
                .Range("EM_TelDDD").Value = Residencia.Range("RE_TelDDD").Value
                .Range("EM_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