Criei um formulario onde seleciono o nome do cliente em uma caixa de combinação e o restante das informações são preenchidas automaticamente.
Estou querendo colocar um botão que ao ser pressionado apague o conteudo apresentado no formulario da planilha de banco de dados. Alguém poderia me dar um exemplo como fazer tal operação?
OBRIGADO.
Para melhor entendimento inseri o meu codigo abaixo.
Segue abaixo o código:
----------------------------------------------------------------------------------
Private Sub UserForm_Activate()
FormConsulta.Caption = "Consulta Funcionários"
Sheets("BANCO DE DADOS").Select
Dim LINHA As Integer
With CmbNome
'------------------------------------------------------------------
'Apresenta os nomes na caixa de combinação
'------------------------------------------------------------------
For LINHA = 2 To Cells(1, 1).CurrentRegion.Rows.Count
.AddItem Sheets("BANCO DE DADOS").Cells(LINHA, 1)
Next LINHA
End With
End Sub
--------------------------------------------------------------------------------------
Private Sub CmbNome_Click()
Dim intR As Integer
'Faz um loop por sua lista buscando a coluna com código do Nome
For intR = 1 To Cells(1, 2).CurrentRegion.Rows.Count
'Se o código for o que procura
If Cells(intR, 1).Value = CmbNome.Text Then
'
TxtEnder = Cells(intR, 2)
TxtBairro = Cells(intR, 3)
TxtCep.Value = Cells(intR, 4)
TxtCidade.Value = Cells(intR, 5)
CmbUF.Value = Cells(intR, 6)
TxtNascimento.Value = Cells(intR, 7)
TxtEmail.Value = Cells(intR, 8)
CmbEstadoCivil.Value = Cells(intR, 9)
CmbEscolaridade.Value = Cells(intR, 10)
Dim sexo As String
sexo = Cells(intR, 11)
If sexo = "Masculino" Then
OptMasculino.Value = True
Else
OptFeminino.Value = True
End If
End If
Next intR
End Sub
