none
Exclusão de dados a partir de um formulário em VBA - excel RRS feed

  • Pergunta

  •  

    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

    segunda-feira, 8 de dezembro de 2008 01:04

Respostas

Todas as Respostas