none
Botão alterar vba excel RRS feed

  • Pergunta

  • Bom dia, 

    Criei um banco de dados em VBA Excel, estava rodando corretamente, porem, precisei criar o botão editar. Estou com dificuldades de encontrar o erro e fazer com que esse botão funcione. Preciso desse banco de dados para trabalhar. Poderiam me ajudar a solucionar? Segue tudo que eu fiz.

    Private Sub botaoeditar_Click()
    'verificar se o usuario selecionou algum nome
    If comblocalizar.ListIndex = -1 Then
    MsgBox " Selecione o nome para alteração!"
    Exit Sub
    End If

    Sheets("CADASTRO").Select
    Do Until Sheets("CADASTRO").Cells(linha, 1) = ""

    'condicao para localizar o codigo
    If Sheets("CADASTRO").Cells(linha, 1) = CAIXA_NOME Then
       Sheets("cadastro").Cells(linha, 1).Select
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combcarga
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtcod
    ActiveCell.Offset(0, 1).Select
    ActiveCell = caixa_inicio
    ActiveCell.Offset(0, 1).Select
    ActiveCell = caixa_termino
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combmotivo
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_MEMORANDO
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_ESTAGIARIOANTERIOR
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_LOCAL
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combSECRETARIA
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combdiretor
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combdiretor2
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combsecretario
    ActiveCell.Offset(0, 8).Select
    ActiveCell = txtferias1
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias2
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias3
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias4
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias5
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias6
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias7
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias8
    ActiveCell.Offset(0, 3).Select
    ActiveCell = txtfolga
    ActiveCell.Offset(0, 5).Select
    ActiveCell = txtsaldo
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtbolsa
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txttransporte
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtci
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=RC[-3]+[-2]+[-1]"
    MsgBox "Dados Atualizados!"
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtdesligado

    End If
     linha = linha + 1
      Loop
      Next
      
      




    End Sub


    Private Sub UserForm_Initialize()
    cbxNome.RowSource = "Cadastra"
    cbxNome.ListIndex = 0
    End Sub



    End Sub

    Private Sub botaonovo_Click()
    'limpar a caixa de cadastro

    CAIXA_NOME = ""
    combcarga = ""
    txtcod = ""
    caixa_inicio = ""
    caixa_termino = ""
    combmotivo = ""
    CAIXA_MEMORANDO = ""
    CAIXA_ESTAGIARIOANTERIOR = ""
    CAIXA_LOCAL = ""
    combSECRETARIA = ""
    combdiretor = ""
    combdiretor2 = ""
    combsecretario = ""
    txtferias1 = ""
    txtferias2 = ""
    txtferias3 = ""
    txtferias4 = ""
    txtferias5 = ""
    txtferias6 = ""
    txtferias7 = ""
    txtferias8 = ""
    txtfolga = ""
    txtsaldo = ""
    txtbolsa = ""
    txttransporte = ""
    txtci = ""
    txtvalor = ""
    txtdesligado = ""
    comblocalizar = ""
    'colocar foco na caixa nome
    CAIXA_NOME.SetFocus

    End Sub

    Private Sub CAIXA_ESTAGIARIOANTERIOR_Change()

    End Sub

    Private Sub CAIXA_ESTAGIARIOANTERIOR_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000006
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub caixa_inicio_Change()

    End Sub

    Private Sub caixa_inicio_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000006
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_LOCAL_Change()

    End Sub

    Private Sub CAIXA_LOCAL_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000006
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_MEMORANDO_Change()

    End Sub

    Private Sub CAIXA_MEMORANDO_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000006
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_NOME_Change()

    End Sub

    Private Sub CAIXA_NOME_Enter()
    CAIXA_NOME.BackColor = &H80000006
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub caixa_termino_Change()

    End Sub

    Private Sub caixa_termino_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000006
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub COMANDO_EXCLUIR_Click()
    'verificar se o usuario selecionou algum nome
    If comblocalizar.ListIndex = -1 Then
    MsgBox "Selecione primeiro o nome antes de tentar exclui-lo!"
    Exit Sub

    End If
    'variavel que armazena a linha que o nome está
    linha = comblocalizar.ListIndex + 2
    Worksheets("CADASTRO").Rows(linha).Delete
    MsgBox "Cadastro Excluído"

    'comando para salvar automaticamente as exclusoes
    ActiveWorkbook.Save


    End Sub

    Private Sub COMANDO_FECHAR_Click()
    ActiveWorkbook.Save

    Unload CadastrodeEstagiáriosCIEE



    End Sub

    Private Sub COMANDO_SALVAR_Click()
    totalregistro = Worksheets("CADASTRO").UsedRange.Rows.Count + 1
    'contagem de linhas para nao salvar uma informação em cima da outra
    Worksheets("CADASTRO").Select

    'A gravação começa a gravação de dados aqui em baixo
    Cells(totalregistro, 1) = CAIXA_NOME
    Cells(totalregistro, 2) = combcarga
    Cells(totalregistro, 3) = txtcod
    Cells(totalregistro, 4) = caixa_inicio
    Cells(totalregistro, 5) = caixa_termino
    Cells(totalregistro, 6) = combmotivo
    Cells(totalregistro, 7) = CAIXA_MEMORANDO
    Cells(totalregistro, 8) = CAIXA_ESTAGIARIOANTERIOR
    Cells(totalregistro, 9) = CAIXA_LOCAL
    Cells(totalregistro, 10) = combSECRETARIA
    Cells(totalregistro, 11) = combdiretor
    Cells(totalregistro, 12) = combdiretor2
    Cells(totalregistro, 13) = combsecretario
    Cells(totalregistro, 21) = txtferias1
    Cells(totalregistro, 22) = txtferias2
    Cells(totalregistro, 23) = txtferias3
    Cells(totalregistro, 24) = txtferias4
    Cells(totalregistro, 25) = txtferias5
    Cells(totalregistro, 26) = txtferias6
    Cells(totalregistro, 27) = txtferias7
    Cells(totalregistro, 28) = txtferias8
    Cells(totalregistro, 31) = txtfolga
    Cells(totalregistro, 36) = txtsaldo
    Cells(totalregistro, 37) = txtbolsa
    Cells(totalregistro, 38) = txttransporte
    Cells(totalregistro, 39) = txtci
    Cells(totalregistro, 40) = txtvalor
    Cells(totalregistro, 41) = txtdesligado

    'mensagem que os dados foram gravados
    MsgBox ("Salvo!")

    'Limpar dados que estao no formulário para novo registro

    CAIXA_NOME = ""
    combcarga = ""
    txtcod = ""
    caixa_inicio = ""
    caixa_termino = ""
    combmotivo = ""
    CAIXA_MEMORANDO = ""
    CAIXA_ESTAGIARIOANTERIOR = ""
    CAIXA_LOCAL = ""
    combSECRETARIA = ""
    combdiretor = ""
    combdiretor2 = ""
    combsecretario = ""
    txtferias1 = ""
    txtferias2 = ""
    txtferias3 = ""
    txtferias4 = ""
    txtferias5 = ""
    txtferias6 = ""
    txtferias7 = ""
    txtferias8 = ""
    txtfolga = ""
    txtsaldo = ""
    txtbolsa = ""
    txttransporte = ""
    txtci = ""
    txtvalor = ""
    txtdesligado = ""

    'colocar cursor na caixa nome
    CAIXA_NOME.SetFocus
    'CRIEI UMA TABELA DE REGISTRO ONDE IRA ARMAZENAR OS NOMES JA GRAVADOS, QUANDO INICIAR A TABELA IRA APARECER
    totaldelinhas = Worksheets("CADASTRO").UsedRange.Rows.Count
    'para que nao precise arrumar o numero de linhas para localizar, a formula abaixo ira fazer automatico
    comblocalizar.RowSource = "CADASTRO!A2:a" & totaldelinhas

    'comando para salvar as informações da planilha automaticamente ao cadastrar o estagiário
    ActiveWorkbook.Save


    End Sub

    Private Sub TextBox7_Change()

    End Sub

    Private Sub combcarga_Change()

    End Sub

    Private Sub combcarga_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000006
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combdiretor_Change()

    End Sub

    Private Sub combdiretor_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000006
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combdiretor2_Change()

    End Sub

    Private Sub combdiretor2_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000006
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub comblocalizar_Click()
    'criar uma variavel para contar a quantidade ede linhas
    totalregistro = Worksheets("CADASTRO").UsedRange.Rows.Count
    For i = 0 To totalregistro
    If comblocalizar.ListIndex = i Then
    nome_encontrado = i
    'preencher caixas para que o programa ache os dados cadastrados
    CAIXA_NOME = Cells(i + 2, 1)
    combcarga = Cells(i + 2, 2)
    txtcod = Cells(i + 2, 3)
    caixa_inicio = Cells(i + 2, 4)
    caixa_termino = Cells(i + 2, 5)
    combmotivo = Cells(i + 2, 6)
    CAIXA_MEMORANDO = Cells(i + 2, 7)
    CAIXA_ESTAGIARIOANTERIOR = Cells(i + 2, 8)
    CAIXA_LOCAL = Cells(i + 2, 9)
    combSECRETARIA = Cells(i + 2, 10)
    combdiretor = Cells(i + 2, 11)
    combdiretor2 = Cells(i + 2, 12)
    combsecretario = Cells(i + 2, 13)
    txtferias1 = Cells(i + 2, 21)
    txtferias2 = Cells(i + 2, 22)
    txtferias3 = Cells(i + 2, 23)
    txtferias4 = Cells(i + 2, 24)
    txtferias5 = Cells(i + 2, 25)
    txtferias6 = Cells(i + 2, 26)
    txtferias7 = Cells(i + 2, 27)
    txtferias8 = Cells(i + 2, 28)
    txtfolga = Cells(i + 2, 31)
    txtsaldo = Cells(i + 2, 36)
    txtbolsa = Cells(i + 2, 37)
    txttransporte = Cells(i + 2, 38)
    txtci = Cells(i + 2, 39)
    txtvalor = Cells(i + 2, 40)
    txtdesligado = Cells(i + 2, 41)

    Exit Sub
    End If
    Next
    End Sub



    Private Sub comblocalizar_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    comblocalizar.BackColor = &H80000006
    End Sub

    Private Sub combmotivo_Change()

    End Sub

    Private Sub combmotivo_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000006
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combSECRETARIA_Change()

    End Sub

    Private Sub combSECRETARIA_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000006
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combsecretario_Change()

    End Sub

    Private Sub combsecretario_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000006
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub Label27_Click()

    End Sub

    Private Sub txtbolsa_Change()

    End Sub

    Private Sub txtbolsa_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000006
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtcod_Change()

    End Sub

    Private Sub txtcod_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000006
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtdesligado_Change()

    End Sub

    Private Sub txtdesligado_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000006
    End Sub

    Private Sub txtferias1_Change()

    End Sub

    Private Sub txtferias1_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000006
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias2_Change()

    End Sub

    Private Sub txtferias2_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000006
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias3_Change()

    End Sub

    Private Sub txtferias3_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000006
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias4_Change()

    End Sub

    Private Sub txtferias4_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000006
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias5_Change()

    End Sub

    Private Sub txtferias5_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000006
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias6_Change()

    End Sub

    Private Sub txtferias6_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000006
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias7_Change()

    End Sub

    Private Sub txtferias7_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000006
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias8_Change()

    End Sub

    Private Sub txtferias8_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000008
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtfolga_Change()

    End Sub

    Private Sub txtfolga_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000006
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtsaldo_Change()

    End Sub

    Private Sub txtsaldo_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000006
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txttransporte_Change()

    End Sub

    Private Sub txttransporte_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000006
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtvalor_Change()

    End Sub

    Private Sub txtvalor_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000006
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub UserForm_Click()


    End Sub

    Private Sub UserForm_Initialize()
    'ao inicializar o formulario, nas caixas de combinação aparecerao as opçoes aqui digitadas para escolher

    combSECRETARIA.AddItem "Gabinete do Prefeito                Dotação 180100 339039 04 122 7001 2234 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Gabinete do Prefeito-Dase           Dotação 180100 339039 08 306 7001 2299 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Governo                             Dotação 190100 339039 122 7001 2359 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Esporte                             Dotação 200100 339039 27 812 3007 2108 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Planejamento                        Dotação 210100 339039 15 451 7001 2300 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inovação          Dotação 220100 339039 122 6007 2229 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Administração e Finanças-DA         Dotação 230100 339039 04 122 7001 2311 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Administração e Finanças-Finanças   Dotação 230100 339039 04 123 7001 2294 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Saúde                               Dotação 240100 339039 10 301 1009 2039 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Saúde- Saúde Bucal                  Dotação 240200 339039 10 301 1010 2001 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Saúde- Visa                         Dotação 240200 339039 10 304 1012 2306 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Sáude-Psm                           Dotação 240200 339039 10 302 1011 2305 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social- Cecomi               Dotação 250100 339039 08 244 4002 2127 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Bolsa, Cesta,Cras     Dotação 250100 339039 08 244 4002 2129 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Secretaria            Dotação 250100 339039 08 122 4007 2152 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Habitação             Dotação 250100 339039 16 482 5005 2364 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Idoso                 Dotação 250100 339039 08241 4004 2136 Fonte 1 Cod Aplic 5100000"
    combSECRETARIA.AddItem "Obras                               Dotação 260100 339039 15 122 5010 2358 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Mobilidade Urbana                   Dotação 330100 339039 15 452 8001 2347 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Serviços Urbanos                    Dotação 270100 339033 15 122 5010 2315 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Educação-Fundamental                Dotação 290100 339039 12 361 2001 2041 Fonte 1 Cod Aplic 2200000"
    combSECRETARIA.AddItem "Educação-Secretaria                 Dotação 290100 339039 12 122 2007 2078 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Educação-Infantil                   Dotação 290100 339039 12 365 2002 2339 Fonte 1 Cod Aplic 2100000"
    combSECRETARIA.AddItem "Turismo e Cultura-Museu             Dotação 300100 339039 13 391 3003 2094 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Turismo e Cultura                    Dotação 330100 339039 13 392 3002 2090 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Meio Ambiente                       Dotação 310100 339039 18 541 6006 2225 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Negócios Jurídicos                  Dotação 320100 339039 03 122 7003 2263 Fonte 1 Cod Aplic 1100000"
    combmotivo.AddItem "Nova Contratação"
    combmotivo.AddItem "Prorrogação"
    combmotivo.AddItem "Substituição"
    combcarga.AddItem "20 Horas"
    combcarga.AddItem "30 Horas"
    combdiretor.AddItem "Marcia Ferreira dos Santos- Compras"
    combdiretor.AddItem "Daniel de Abreu Matias Bueno- DA"
    combdiretor.AddItem "Marcelo Gonçalves Mora-Esporte"
    combdiretor.AddItem "Edsson Quirino dos Santos Junior"
    combdiretor.AddItem "Edson Aparecido de Oliveira-Seplan"
    combdiretor.AddItem "Luiz Marcelo Falcão de Abreu-Sedin"
    combdiretor.AddItem "Glauco Henrique Marini-SS"
    combdiretor.AddItem "Marcia Ferreira dos Santos- Compras"
    combdiretor.AddItem "Maria Lucia de Oliveira-Sedis"
    combdiretor.AddItem "Alan C. Dias-Seot"
    combdiretor.AddItem "José Ferreira da Silva"
    combdiretor.AddItem "Gisele Maria Lombard Ferreira de Faria-Semu"
    combdiretor.AddItem "Celio Araújo Cembranelli-Urbanos"
    combdiretor.AddItem "Pétala Lacerda-SE"
    combdiretor.AddItem "Ralph Nunes Ferreira Leite-Sema"
    combdiretor2.AddItem "Rosimeire M.Duarte S. Santos-Comunicação"
    combdiretor2.AddItem "Cleide Moura Assis Pereira-Sedis"
    combsecretario.AddItem "Eduardo Cursino-Segov"
    combsecretario.AddItem "Odila Maria Sanches-SEAF"
    combsecretario.AddItem "Claudio Teixeira Brasão-Esporte"
    combsecretario.AddItem "Debora Andrade Pereira-Seplan"
    combsecretario.AddItem "Geraldo de Oliveira Neto-Sedin"
    combsecretario.AddItem "João Ebram Neto-Saúde"
    combsecretario.AddItem "Marilda Prado Ymamoto-Sedis"
    combsecretario.AddItem "João Bibiano Silva"
    combsecretario.AddItem "Dolores Moreno Pino"
    combsecretario.AddItem "Alexandre Magno Borges"
    combsecretario.AddItem "Edna Maria Querido de O. Chamon"
    combsecretario.AddItem "Martha Maria de Carvalho"
    combsecretario.AddItem "Marcel Wada"
    combsecretario.AddItem "Jean Soldi Esteves"

    'CRIEI UMA TABELA DE REGISTRO ONDE IRA ARMAZENAR OS NOMES JA GRAVADOS, QUANDO INICIAR A TABELA IRA APARECER
    'precisa ser copiado para o comando salvar para que apareca assim que for gravado
    totaldelinhas = Worksheets("CADASTRO").UsedRange.Rows.Count
    'para que nao precise arrumar o numero de linhas para localizar, a formula abaixo ira fazer automatico
    comblocalizar.RowSource = "CADASTRO!A2:a" & totaldelinhas


    End Sub

    quarta-feira, 20 de janeiro de 2016 12:29

Respostas

Todas as Respostas

  • Bom dia, 

    Criei um banco de dados em VBA Excel, estava rodando corretamente, porem, precisei criar o botão editar. Estou com dificuldades de encontrar o erro e fazer com que esse botão funcione. Preciso desse banco de dados para trabalhar. Poderiam me ajudar a solucionar? Segue tudo que eu fiz.

    Private Sub botaoeditar_Click()
    'verificar se o usuario selecionou algum nome
    If comblocalizar.ListIndex = -1 Then
    MsgBox " Selecione o nome para alteração!"
    Exit Sub
    End If

    Sheets("CADASTRO").Select
    Do Until Sheets("CADASTRO").Cells(linha, 1) = ""

    'condicao para localizar o codigo
    If Sheets("CADASTRO").Cells(linha, 1) = CAIXA_NOME Then
       Sheets("cadastro").Cells(linha, 1).Select
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combcarga
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtcod
    ActiveCell.Offset(0, 1).Select
    ActiveCell = caixa_inicio
    ActiveCell.Offset(0, 1).Select
    ActiveCell = caixa_termino
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combmotivo
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_MEMORANDO
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_ESTAGIARIOANTERIOR
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_LOCAL
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combSECRETARIA
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combdiretor
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combdiretor2
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combsecretario
    ActiveCell.Offset(0, 8).Select
    ActiveCell = txtferias1
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias2
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias3
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias4
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias5
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias6
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias7
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias8
    ActiveCell.Offset(0, 3).Select
    ActiveCell = txtfolga
    ActiveCell.Offset(0, 5).Select
    ActiveCell = txtsaldo
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtbolsa
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txttransporte
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtci
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=RC[-3]+[-2]+[-1]"
    MsgBox "Dados Atualizados!"
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtdesligado

    End If
     linha = linha + 1
      Loop
      Next
      
      




    End Sub


    Private Sub UserForm_Initialize()
    cbxNome.RowSource = "Cadastra"
    cbxNome.ListIndex = 0
    End Sub



    End Sub

    Private Sub botaonovo_Click()
    'limpar a caixa de cadastro

    CAIXA_NOME = ""
    combcarga = ""
    txtcod = ""
    caixa_inicio = ""
    caixa_termino = ""
    combmotivo = ""
    CAIXA_MEMORANDO = ""
    CAIXA_ESTAGIARIOANTERIOR = ""
    CAIXA_LOCAL = ""
    combSECRETARIA = ""
    combdiretor = ""
    combdiretor2 = ""
    combsecretario = ""
    txtferias1 = ""
    txtferias2 = ""
    txtferias3 = ""
    txtferias4 = ""
    txtferias5 = ""
    txtferias6 = ""
    txtferias7 = ""
    txtferias8 = ""
    txtfolga = ""
    txtsaldo = ""
    txtbolsa = ""
    txttransporte = ""
    txtci = ""
    txtvalor = ""
    txtdesligado = ""
    comblocalizar = ""
    'colocar foco na caixa nome
    CAIXA_NOME.SetFocus

    End Sub

    Private Sub CAIXA_ESTAGIARIOANTERIOR_Change()

    End Sub

    Private Sub CAIXA_ESTAGIARIOANTERIOR_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000006
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub caixa_inicio_Change()

    End Sub

    Private Sub caixa_inicio_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000006
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_LOCAL_Change()

    End Sub

    Private Sub CAIXA_LOCAL_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000006
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_MEMORANDO_Change()

    End Sub

    Private Sub CAIXA_MEMORANDO_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000006
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_NOME_Change()

    End Sub

    Private Sub CAIXA_NOME_Enter()
    CAIXA_NOME.BackColor = &H80000006
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub caixa_termino_Change()

    End Sub

    Private Sub caixa_termino_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000006
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub COMANDO_EXCLUIR_Click()
    'verificar se o usuario selecionou algum nome
    If comblocalizar.ListIndex = -1 Then
    MsgBox "Selecione primeiro o nome antes de tentar exclui-lo!"
    Exit Sub

    End If
    'variavel que armazena a linha que o nome está
    linha = comblocalizar.ListIndex + 2
    Worksheets("CADASTRO").Rows(linha).Delete
    MsgBox "Cadastro Excluído"

    'comando para salvar automaticamente as exclusoes
    ActiveWorkbook.Save


    End Sub

    Private Sub COMANDO_FECHAR_Click()
    ActiveWorkbook.Save

    Unload CadastrodeEstagiáriosCIEE



    End Sub

    Private Sub COMANDO_SALVAR_Click()
    totalregistro = Worksheets("CADASTRO").UsedRange.Rows.Count + 1
    'contagem de linhas para nao salvar uma informação em cima da outra
    Worksheets("CADASTRO").Select

    'A gravação começa a gravação de dados aqui em baixo
    Cells(totalregistro, 1) = CAIXA_NOME
    Cells(totalregistro, 2) = combcarga
    Cells(totalregistro, 3) = txtcod
    Cells(totalregistro, 4) = caixa_inicio
    Cells(totalregistro, 5) = caixa_termino
    Cells(totalregistro, 6) = combmotivo
    Cells(totalregistro, 7) = CAIXA_MEMORANDO
    Cells(totalregistro, 8) = CAIXA_ESTAGIARIOANTERIOR
    Cells(totalregistro, 9) = CAIXA_LOCAL
    Cells(totalregistro, 10) = combSECRETARIA
    Cells(totalregistro, 11) = combdiretor
    Cells(totalregistro, 12) = combdiretor2
    Cells(totalregistro, 13) = combsecretario
    Cells(totalregistro, 21) = txtferias1
    Cells(totalregistro, 22) = txtferias2
    Cells(totalregistro, 23) = txtferias3
    Cells(totalregistro, 24) = txtferias4
    Cells(totalregistro, 25) = txtferias5
    Cells(totalregistro, 26) = txtferias6
    Cells(totalregistro, 27) = txtferias7
    Cells(totalregistro, 28) = txtferias8
    Cells(totalregistro, 31) = txtfolga
    Cells(totalregistro, 36) = txtsaldo
    Cells(totalregistro, 37) = txtbolsa
    Cells(totalregistro, 38) = txttransporte
    Cells(totalregistro, 39) = txtci
    Cells(totalregistro, 40) = txtvalor
    Cells(totalregistro, 41) = txtdesligado

    'mensagem que os dados foram gravados
    MsgBox ("Salvo!")

    'Limpar dados que estao no formulário para novo registro

    CAIXA_NOME = ""
    combcarga = ""
    txtcod = ""
    caixa_inicio = ""
    caixa_termino = ""
    combmotivo = ""
    CAIXA_MEMORANDO = ""
    CAIXA_ESTAGIARIOANTERIOR = ""
    CAIXA_LOCAL = ""
    combSECRETARIA = ""
    combdiretor = ""
    combdiretor2 = ""
    combsecretario = ""
    txtferias1 = ""
    txtferias2 = ""
    txtferias3 = ""
    txtferias4 = ""
    txtferias5 = ""
    txtferias6 = ""
    txtferias7 = ""
    txtferias8 = ""
    txtfolga = ""
    txtsaldo = ""
    txtbolsa = ""
    txttransporte = ""
    txtci = ""
    txtvalor = ""
    txtdesligado = ""

    'colocar cursor na caixa nome
    CAIXA_NOME.SetFocus
    'CRIEI UMA TABELA DE REGISTRO ONDE IRA ARMAZENAR OS NOMES JA GRAVADOS, QUANDO INICIAR A TABELA IRA APARECER
    totaldelinhas = Worksheets("CADASTRO").UsedRange.Rows.Count
    'para que nao precise arrumar o numero de linhas para localizar, a formula abaixo ira fazer automatico
    comblocalizar.RowSource = "CADASTRO!A2:a" & totaldelinhas

    'comando para salvar as informações da planilha automaticamente ao cadastrar o estagiário
    ActiveWorkbook.Save


    End Sub

    Private Sub TextBox7_Change()

    End Sub

    Private Sub combcarga_Change()

    End Sub

    Private Sub combcarga_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000006
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combdiretor_Change()

    End Sub

    Private Sub combdiretor_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000006
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combdiretor2_Change()

    End Sub

    Private Sub combdiretor2_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000006
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub comblocalizar_Click()
    'criar uma variavel para contar a quantidade ede linhas
    totalregistro = Worksheets("CADASTRO").UsedRange.Rows.Count
    For i = 0 To totalregistro
    If comblocalizar.ListIndex = i Then
    nome_encontrado = i
    'preencher caixas para que o programa ache os dados cadastrados
    CAIXA_NOME = Cells(i + 2, 1)
    combcarga = Cells(i + 2, 2)
    txtcod = Cells(i + 2, 3)
    caixa_inicio = Cells(i + 2, 4)
    caixa_termino = Cells(i + 2, 5)
    combmotivo = Cells(i + 2, 6)
    CAIXA_MEMORANDO = Cells(i + 2, 7)
    CAIXA_ESTAGIARIOANTERIOR = Cells(i + 2, 8)
    CAIXA_LOCAL = Cells(i + 2, 9)
    combSECRETARIA = Cells(i + 2, 10)
    combdiretor = Cells(i + 2, 11)
    combdiretor2 = Cells(i + 2, 12)
    combsecretario = Cells(i + 2, 13)
    txtferias1 = Cells(i + 2, 21)
    txtferias2 = Cells(i + 2, 22)
    txtferias3 = Cells(i + 2, 23)
    txtferias4 = Cells(i + 2, 24)
    txtferias5 = Cells(i + 2, 25)
    txtferias6 = Cells(i + 2, 26)
    txtferias7 = Cells(i + 2, 27)
    txtferias8 = Cells(i + 2, 28)
    txtfolga = Cells(i + 2, 31)
    txtsaldo = Cells(i + 2, 36)
    txtbolsa = Cells(i + 2, 37)
    txttransporte = Cells(i + 2, 38)
    txtci = Cells(i + 2, 39)
    txtvalor = Cells(i + 2, 40)
    txtdesligado = Cells(i + 2, 41)

    Exit Sub
    End If
    Next
    End Sub



    Private Sub comblocalizar_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    comblocalizar.BackColor = &H80000006
    End Sub

    Private Sub combmotivo_Change()

    End Sub

    Private Sub combmotivo_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000006
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combSECRETARIA_Change()

    End Sub

    Private Sub combSECRETARIA_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000006
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combsecretario_Change()

    End Sub

    Private Sub combsecretario_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000006
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub Label27_Click()

    End Sub

    Private Sub txtbolsa_Change()

    End Sub

    Private Sub txtbolsa_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000006
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtcod_Change()

    End Sub

    Private Sub txtcod_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000006
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtdesligado_Change()

    End Sub

    Private Sub txtdesligado_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000006
    End Sub

    Private Sub txtferias1_Change()

    End Sub

    Private Sub txtferias1_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000006
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias2_Change()

    End Sub

    Private Sub txtferias2_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000006
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias3_Change()

    End Sub

    Private Sub txtferias3_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000006
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias4_Change()

    End Sub

    Private Sub txtferias4_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000006
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias5_Change()

    End Sub

    Private Sub txtferias5_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000006
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias6_Change()

    End Sub

    Private Sub txtferias6_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000006
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias7_Change()

    End Sub

    Private Sub txtferias7_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000006
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias8_Change()

    End Sub

    Private Sub txtferias8_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000008
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtfolga_Change()

    End Sub

    Private Sub txtfolga_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000006
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtsaldo_Change()

    End Sub

    Private Sub txtsaldo_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000006
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txttransporte_Change()

    End Sub

    Private Sub txttransporte_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000006
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtvalor_Change()

    End Sub

    Private Sub txtvalor_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000006
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub UserForm_Click()


    End Sub

    Private Sub UserForm_Initialize()
    'ao inicializar o formulario, nas caixas de combinação aparecerao as opçoes aqui digitadas para escolher

    combSECRETARIA.AddItem "Gabinete do Prefeito                Dotação 180100 339039 04 122 7001 2234 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Gabinete do Prefeito-Dase           Dotação 180100 339039 08 306 7001 2299 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Governo                             Dotação 190100 339039 122 7001 2359 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Esporte                             Dotação 200100 339039 27 812 3007 2108 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Planejamento                        Dotação 210100 339039 15 451 7001 2300 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inovação          Dotação 220100 339039 122 6007 2229 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Administração e Finanças-DA         Dotação 230100 339039 04 122 7001 2311 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Administração e Finanças-Finanças   Dotação 230100 339039 04 123 7001 2294 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Saúde                               Dotação 240100 339039 10 301 1009 2039 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Saúde- Saúde Bucal                  Dotação 240200 339039 10 301 1010 2001 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Saúde- Visa                         Dotação 240200 339039 10 304 1012 2306 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Sáude-Psm                           Dotação 240200 339039 10 302 1011 2305 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social- Cecomi               Dotação 250100 339039 08 244 4002 2127 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Bolsa, Cesta,Cras     Dotação 250100 339039 08 244 4002 2129 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Secretaria            Dotação 250100 339039 08 122 4007 2152 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Habitação             Dotação 250100 339039 16 482 5005 2364 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Idoso                 Dotação 250100 339039 08241 4004 2136 Fonte 1 Cod Aplic 5100000"
    combSECRETARIA.AddItem "Obras                               Dotação 260100 339039 15 122 5010 2358 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Mobilidade Urbana                   Dotação 330100 339039 15 452 8001 2347 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Serviços Urbanos                    Dotação 270100 339033 15 122 5010 2315 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Educação-Fundamental                Dotação 290100 339039 12 361 2001 2041 Fonte 1 Cod Aplic 2200000"
    combSECRETARIA.AddItem "Educação-Secretaria                 Dotação 290100 339039 12 122 2007 2078 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Educação-Infantil                   Dotação 290100 339039 12 365 2002 2339 Fonte 1 Cod Aplic 2100000"
    combSECRETARIA.AddItem "Turismo e Cultura-Museu             Dotação 300100 339039 13 391 3003 2094 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Turismo e Cultura                    Dotação 330100 339039 13 392 3002 2090 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Meio Ambiente                       Dotação 310100 339039 18 541 6006 2225 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Negócios Jurídicos                  Dotação 320100 339039 03 122 7003 2263 Fonte 1 Cod Aplic 1100000"
    combmotivo.AddItem "Nova Contratação"
    combmotivo.AddItem "Prorrogação"
    combmotivo.AddItem "Substituição"
    combcarga.AddItem "20 Horas"
    combcarga.AddItem "30 Horas"
    combdiretor.AddItem "Marcia Ferreira dos Santos- Compras"
    combdiretor.AddItem "Daniel de Abreu Matias Bueno- DA"
    combdiretor.AddItem "Marcelo Gonçalves Mora-Esporte"
    combdiretor.AddItem "Edsson Quirino dos Santos Junior"
    combdiretor.AddItem "Edson Aparecido de Oliveira-Seplan"
    combdiretor.AddItem "Luiz Marcelo Falcão de Abreu-Sedin"
    combdiretor.AddItem "Glauco Henrique Marini-SS"
    combdiretor.AddItem "Marcia Ferreira dos Santos- Compras"
    combdiretor.AddItem "Maria Lucia de Oliveira-Sedis"
    combdiretor.AddItem "Alan C. Dias-Seot"
    combdiretor.AddItem "José Ferreira da Silva"
    combdiretor.AddItem "Gisele Maria Lombard Ferreira de Faria-Semu"
    combdiretor.AddItem "Celio Araújo Cembranelli-Urbanos"
    combdiretor.AddItem "Pétala Lacerda-SE"
    combdiretor.AddItem "Ralph Nunes Ferreira Leite-Sema"
    combdiretor2.AddItem "Rosimeire M.Duarte S. Santos-Comunicação"
    combdiretor2.AddItem "Cleide Moura Assis Pereira-Sedis"
    combsecretario.AddItem "Eduardo Cursino-Segov"
    combsecretario.AddItem "Odila Maria Sanches-SEAF"
    combsecretario.AddItem "Claudio Teixeira Brasão-Esporte"
    combsecretario.AddItem "Debora Andrade Pereira-Seplan"
    combsecretario.AddItem "Geraldo de Oliveira Neto-Sedin"
    combsecretario.AddItem "João Ebram Neto-Saúde"
    combsecretario.AddItem "Marilda Prado Ymamoto-Sedis"
    combsecretario.AddItem "João Bibiano Silva"
    combsecretario.AddItem "Dolores Moreno Pino"
    combsecretario.AddItem "Alexandre Magno Borges"
    combsecretario.AddItem "Edna Maria Querido de O. Chamon"
    combsecretario.AddItem "Martha Maria de Carvalho"
    combsecretario.AddItem "Marcel Wada"
    combsecretario.AddItem "Jean Soldi Esteves"

    'CRIEI UMA TABELA DE REGISTRO ONDE IRA ARMAZENAR OS NOMES JA GRAVADOS, QUANDO INICIAR A TABELA IRA APARECER
    'precisa ser copiado para o comando salvar para que apareca assim que for gravado
    totaldelinhas = Worksheets("CADASTRO").UsedRange.Rows.Count
    'para que nao precise arrumar o numero de linhas para localizar, a formula abaixo ira fazer automatico
    comblocalizar.RowSource = "CADASTRO!A2:a" & totaldelinhas


    End Sub

    quarta-feira, 20 de janeiro de 2016 12:33
  • Bom dia, 

    Criei um banco de dados em VBA Excel, estava rodando corretamente, porem, precisei criar o botão editar. Estou com dificuldades de encontrar o erro e fazer com que esse botão funcione. Preciso desse banco de dados para trabalhar. Poderiam me ajudar a solucionar? Segue tudo que eu fiz.

    Private Sub botaoeditar_Click()
    'verificar se o usuario selecionou algum nome
    If comblocalizar.ListIndex = -1 Then
    MsgBox " Selecione o nome para alteração!"
    Exit Sub
    End If

    Sheets("CADASTRO").Select
    Do Until Sheets("CADASTRO").Cells(linha, 1) = ""

    'condicao para localizar o codigo
    If Sheets("CADASTRO").Cells(linha, 1) = CAIXA_NOME Then
       Sheets("cadastro").Cells(linha, 1).Select
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combcarga
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtcod
    ActiveCell.Offset(0, 1).Select
    ActiveCell = caixa_inicio
    ActiveCell.Offset(0, 1).Select
    ActiveCell = caixa_termino
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combmotivo
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_MEMORANDO
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_ESTAGIARIOANTERIOR
    ActiveCell.Offset(0, 1).Select
    ActiveCell = CAIXA_LOCAL
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combSECRETARIA
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combdiretor
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combdiretor2
    ActiveCell.Offset(0, 1).Select
    ActiveCell = combsecretario
    ActiveCell.Offset(0, 8).Select
    ActiveCell = txtferias1
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias2
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias3
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias4
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias5
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias6
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias7
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtferias8
    ActiveCell.Offset(0, 3).Select
    ActiveCell = txtfolga
    ActiveCell.Offset(0, 5).Select
    ActiveCell = txtsaldo
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtbolsa
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txttransporte
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtci
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=RC[-3]+[-2]+[-1]"
    MsgBox "Dados Atualizados!"
    ActiveCell.Offset(0, 1).Select
    ActiveCell = txtdesligado

    End If
     linha = linha + 1
      Loop
      Next
      
      




    End Sub


    Private Sub UserForm_Initialize()
    cbxNome.RowSource = "Cadastra"
    cbxNome.ListIndex = 0
    End Sub



    End Sub

    Private Sub botaonovo_Click()
    'limpar a caixa de cadastro

    CAIXA_NOME = ""
    combcarga = ""
    txtcod = ""
    caixa_inicio = ""
    caixa_termino = ""
    combmotivo = ""
    CAIXA_MEMORANDO = ""
    CAIXA_ESTAGIARIOANTERIOR = ""
    CAIXA_LOCAL = ""
    combSECRETARIA = ""
    combdiretor = ""
    combdiretor2 = ""
    combsecretario = ""
    txtferias1 = ""
    txtferias2 = ""
    txtferias3 = ""
    txtferias4 = ""
    txtferias5 = ""
    txtferias6 = ""
    txtferias7 = ""
    txtferias8 = ""
    txtfolga = ""
    txtsaldo = ""
    txtbolsa = ""
    txttransporte = ""
    txtci = ""
    txtvalor = ""
    txtdesligado = ""
    comblocalizar = ""
    'colocar foco na caixa nome
    CAIXA_NOME.SetFocus

    End Sub

    Private Sub CAIXA_ESTAGIARIOANTERIOR_Change()

    End Sub

    Private Sub CAIXA_ESTAGIARIOANTERIOR_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000006
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub caixa_inicio_Change()

    End Sub

    Private Sub caixa_inicio_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000006
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_LOCAL_Change()

    End Sub

    Private Sub CAIXA_LOCAL_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000006
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_MEMORANDO_Change()

    End Sub

    Private Sub CAIXA_MEMORANDO_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000006
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub CAIXA_NOME_Change()

    End Sub

    Private Sub CAIXA_NOME_Enter()
    CAIXA_NOME.BackColor = &H80000006
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub caixa_termino_Change()

    End Sub

    Private Sub caixa_termino_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000006
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub COMANDO_EXCLUIR_Click()
    'verificar se o usuario selecionou algum nome
    If comblocalizar.ListIndex = -1 Then
    MsgBox "Selecione primeiro o nome antes de tentar exclui-lo!"
    Exit Sub

    End If
    'variavel que armazena a linha que o nome está
    linha = comblocalizar.ListIndex + 2
    Worksheets("CADASTRO").Rows(linha).Delete
    MsgBox "Cadastro Excluído"

    'comando para salvar automaticamente as exclusoes
    ActiveWorkbook.Save


    End Sub

    Private Sub COMANDO_FECHAR_Click()
    ActiveWorkbook.Save

    Unload CadastrodeEstagiáriosCIEE



    End Sub

    Private Sub COMANDO_SALVAR_Click()
    totalregistro = Worksheets("CADASTRO").UsedRange.Rows.Count + 1
    'contagem de linhas para nao salvar uma informação em cima da outra
    Worksheets("CADASTRO").Select

    'A gravação começa a gravação de dados aqui em baixo
    Cells(totalregistro, 1) = CAIXA_NOME
    Cells(totalregistro, 2) = combcarga
    Cells(totalregistro, 3) = txtcod
    Cells(totalregistro, 4) = caixa_inicio
    Cells(totalregistro, 5) = caixa_termino
    Cells(totalregistro, 6) = combmotivo
    Cells(totalregistro, 7) = CAIXA_MEMORANDO
    Cells(totalregistro, 8) = CAIXA_ESTAGIARIOANTERIOR
    Cells(totalregistro, 9) = CAIXA_LOCAL
    Cells(totalregistro, 10) = combSECRETARIA
    Cells(totalregistro, 11) = combdiretor
    Cells(totalregistro, 12) = combdiretor2
    Cells(totalregistro, 13) = combsecretario
    Cells(totalregistro, 21) = txtferias1
    Cells(totalregistro, 22) = txtferias2
    Cells(totalregistro, 23) = txtferias3
    Cells(totalregistro, 24) = txtferias4
    Cells(totalregistro, 25) = txtferias5
    Cells(totalregistro, 26) = txtferias6
    Cells(totalregistro, 27) = txtferias7
    Cells(totalregistro, 28) = txtferias8
    Cells(totalregistro, 31) = txtfolga
    Cells(totalregistro, 36) = txtsaldo
    Cells(totalregistro, 37) = txtbolsa
    Cells(totalregistro, 38) = txttransporte
    Cells(totalregistro, 39) = txtci
    Cells(totalregistro, 40) = txtvalor
    Cells(totalregistro, 41) = txtdesligado

    'mensagem que os dados foram gravados
    MsgBox ("Salvo!")

    'Limpar dados que estao no formulário para novo registro

    CAIXA_NOME = ""
    combcarga = ""
    txtcod = ""
    caixa_inicio = ""
    caixa_termino = ""
    combmotivo = ""
    CAIXA_MEMORANDO = ""
    CAIXA_ESTAGIARIOANTERIOR = ""
    CAIXA_LOCAL = ""
    combSECRETARIA = ""
    combdiretor = ""
    combdiretor2 = ""
    combsecretario = ""
    txtferias1 = ""
    txtferias2 = ""
    txtferias3 = ""
    txtferias4 = ""
    txtferias5 = ""
    txtferias6 = ""
    txtferias7 = ""
    txtferias8 = ""
    txtfolga = ""
    txtsaldo = ""
    txtbolsa = ""
    txttransporte = ""
    txtci = ""
    txtvalor = ""
    txtdesligado = ""

    'colocar cursor na caixa nome
    CAIXA_NOME.SetFocus
    'CRIEI UMA TABELA DE REGISTRO ONDE IRA ARMAZENAR OS NOMES JA GRAVADOS, QUANDO INICIAR A TABELA IRA APARECER
    totaldelinhas = Worksheets("CADASTRO").UsedRange.Rows.Count
    'para que nao precise arrumar o numero de linhas para localizar, a formula abaixo ira fazer automatico
    comblocalizar.RowSource = "CADASTRO!A2:a" & totaldelinhas

    'comando para salvar as informações da planilha automaticamente ao cadastrar o estagiário
    ActiveWorkbook.Save


    End Sub

    Private Sub TextBox7_Change()

    End Sub

    Private Sub combcarga_Change()

    End Sub

    Private Sub combcarga_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000006
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combdiretor_Change()

    End Sub

    Private Sub combdiretor_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000006
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combdiretor2_Change()

    End Sub

    Private Sub combdiretor2_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000006
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub comblocalizar_Click()
    'criar uma variavel para contar a quantidade ede linhas
    totalregistro = Worksheets("CADASTRO").UsedRange.Rows.Count
    For i = 0 To totalregistro
    If comblocalizar.ListIndex = i Then
    nome_encontrado = i
    'preencher caixas para que o programa ache os dados cadastrados
    CAIXA_NOME = Cells(i + 2, 1)
    combcarga = Cells(i + 2, 2)
    txtcod = Cells(i + 2, 3)
    caixa_inicio = Cells(i + 2, 4)
    caixa_termino = Cells(i + 2, 5)
    combmotivo = Cells(i + 2, 6)
    CAIXA_MEMORANDO = Cells(i + 2, 7)
    CAIXA_ESTAGIARIOANTERIOR = Cells(i + 2, 8)
    CAIXA_LOCAL = Cells(i + 2, 9)
    combSECRETARIA = Cells(i + 2, 10)
    combdiretor = Cells(i + 2, 11)
    combdiretor2 = Cells(i + 2, 12)
    combsecretario = Cells(i + 2, 13)
    txtferias1 = Cells(i + 2, 21)
    txtferias2 = Cells(i + 2, 22)
    txtferias3 = Cells(i + 2, 23)
    txtferias4 = Cells(i + 2, 24)
    txtferias5 = Cells(i + 2, 25)
    txtferias6 = Cells(i + 2, 26)
    txtferias7 = Cells(i + 2, 27)
    txtferias8 = Cells(i + 2, 28)
    txtfolga = Cells(i + 2, 31)
    txtsaldo = Cells(i + 2, 36)
    txtbolsa = Cells(i + 2, 37)
    txttransporte = Cells(i + 2, 38)
    txtci = Cells(i + 2, 39)
    txtvalor = Cells(i + 2, 40)
    txtdesligado = Cells(i + 2, 41)

    Exit Sub
    End If
    Next
    End Sub



    Private Sub comblocalizar_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    comblocalizar.BackColor = &H80000006
    End Sub

    Private Sub combmotivo_Change()

    End Sub

    Private Sub combmotivo_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000006
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combSECRETARIA_Change()

    End Sub

    Private Sub combSECRETARIA_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000006
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub combsecretario_Change()

    End Sub

    Private Sub combsecretario_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000006
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub Label27_Click()

    End Sub

    Private Sub txtbolsa_Change()

    End Sub

    Private Sub txtbolsa_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000006
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtcod_Change()

    End Sub

    Private Sub txtcod_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000006
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtdesligado_Change()

    End Sub

    Private Sub txtdesligado_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000006
    End Sub

    Private Sub txtferias1_Change()

    End Sub

    Private Sub txtferias1_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000006
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias2_Change()

    End Sub

    Private Sub txtferias2_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000006
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias3_Change()

    End Sub

    Private Sub txtferias3_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000006
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias4_Change()

    End Sub

    Private Sub txtferias4_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000006
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias5_Change()

    End Sub

    Private Sub txtferias5_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000006
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias6_Change()

    End Sub

    Private Sub txtferias6_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000006
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias7_Change()

    End Sub

    Private Sub txtferias7_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000006
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtferias8_Change()

    End Sub

    Private Sub txtferias8_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000008
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtfolga_Change()

    End Sub

    Private Sub txtfolga_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000006
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtsaldo_Change()

    End Sub

    Private Sub txtsaldo_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000006
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txttransporte_Change()

    End Sub

    Private Sub txttransporte_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000006
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000005
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub txtvalor_Change()

    End Sub

    Private Sub txtvalor_Enter()
    CAIXA_NOME.BackColor = &H80000005
    combcarga.BackColor = &H80000005
    txtcod.BackColor = &H80000005
    caixa_inicio.BackColor = &H80000005
    caixa_termino.BackColor = &H80000005
    combmotivo.BackColor = &H80000005
    CAIXA_MEMORANDO.BackColor = &H80000005
    CAIXA_ESTAGIARIOANTERIOR.BackColor = &H80000005
    CAIXA_LOCAL.BackColor = &H80000005
    combSECRETARIA.BackColor = &H80000005
    combdiretor.BackColor = &H80000005
    combdiretor2.BackColor = &H80000005
    combsecretario.BackColor = &H80000005
    txtferias1.BackColor = &H80000005
    txtferias2.BackColor = &H80000005
    txtferias3.BackColor = &H80000005
    txtferias4.BackColor = &H80000005
    txtferias5.BackColor = &H80000005
    txtferias6.BackColor = &H80000005
    txtferias7.BackColor = &H80000005
    txtferias8.BackColor = &H80000005
    txtfolga.BackColor = &H80000005
    txtsaldo.BackColor = &H80000005
    txtbolsa.BackColor = &H80000005
    txttransporte.BackColor = &H80000005
    txtci.BackColor = &H80000005
    txtvalor.BackColor = &H80000006
    txtdesligado.BackColor = &H80000005
    End Sub

    Private Sub UserForm_Click()


    End Sub

    Private Sub UserForm_Initialize()
    'ao inicializar o formulario, nas caixas de combinação aparecerao as opçoes aqui digitadas para escolher

    combSECRETARIA.AddItem "Gabinete do Prefeito                Dotação 180100 339039 04 122 7001 2234 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Gabinete do Prefeito-Dase           Dotação 180100 339039 08 306 7001 2299 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Governo                             Dotação 190100 339039 122 7001 2359 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Esporte                             Dotação 200100 339039 27 812 3007 2108 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Planejamento                        Dotação 210100 339039 15 451 7001 2300 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inovação          Dotação 220100 339039 122 6007 2229 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Administração e Finanças-DA         Dotação 230100 339039 04 122 7001 2311 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Administração e Finanças-Finanças   Dotação 230100 339039 04 123 7001 2294 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Saúde                               Dotação 240100 339039 10 301 1009 2039 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Saúde- Saúde Bucal                  Dotação 240200 339039 10 301 1010 2001 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Saúde- Visa                         Dotação 240200 339039 10 304 1012 2306 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Sáude-Psm                           Dotação 240200 339039 10 302 1011 2305 Fonte 1 Cod Aplic 3100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social- Cecomi               Dotação 250100 339039 08 244 4002 2127 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Bolsa, Cesta,Cras     Dotação 250100 339039 08 244 4002 2129 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Secretaria            Dotação 250100 339039 08 122 4007 2152 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Habitação             Dotação 250100 339039 16 482 5005 2364 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Desenvolvimento e Inclusão Social-Idoso                 Dotação 250100 339039 08241 4004 2136 Fonte 1 Cod Aplic 5100000"
    combSECRETARIA.AddItem "Obras                               Dotação 260100 339039 15 122 5010 2358 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Mobilidade Urbana                   Dotação 330100 339039 15 452 8001 2347 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Serviços Urbanos                    Dotação 270100 339033 15 122 5010 2315 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Educação-Fundamental                Dotação 290100 339039 12 361 2001 2041 Fonte 1 Cod Aplic 2200000"
    combSECRETARIA.AddItem "Educação-Secretaria                 Dotação 290100 339039 12 122 2007 2078 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Educação-Infantil                   Dotação 290100 339039 12 365 2002 2339 Fonte 1 Cod Aplic 2100000"
    combSECRETARIA.AddItem "Turismo e Cultura-Museu             Dotação 300100 339039 13 391 3003 2094 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Turismo e Cultura                    Dotação 330100 339039 13 392 3002 2090 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Meio Ambiente                       Dotação 310100 339039 18 541 6006 2225 Fonte 1 Cod Aplic 1100000"
    combSECRETARIA.AddItem "Negócios Jurídicos                  Dotação 320100 339039 03 122 7003 2263 Fonte 1 Cod Aplic 1100000"
    combmotivo.AddItem "Nova Contratação"
    combmotivo.AddItem "Prorrogação"
    combmotivo.AddItem "Substituição"
    combcarga.AddItem "20 Horas"
    combcarga.AddItem "30 Horas"
    combdiretor.AddItem "Marcia Ferreira dos Santos- Compras"
    combdiretor.AddItem "Daniel de Abreu Matias Bueno- DA"
    combdiretor.AddItem "Marcelo Gonçalves Mora-Esporte"
    combdiretor.AddItem "Edsson Quirino dos Santos Junior"
    combdiretor.AddItem "Edson Aparecido de Oliveira-Seplan"
    combdiretor.AddItem "Luiz Marcelo Falcão de Abreu-Sedin"
    combdiretor.AddItem "Glauco Henrique Marini-SS"
    combdiretor.AddItem "Marcia Ferreira dos Santos- Compras"
    combdiretor.AddItem "Maria Lucia de Oliveira-Sedis"
    combdiretor.AddItem "Alan C. Dias-Seot"
    combdiretor.AddItem "José Ferreira da Silva"
    combdiretor.AddItem "Gisele Maria Lombard Ferreira de Faria-Semu"
    combdiretor.AddItem "Celio Araújo Cembranelli-Urbanos"
    combdiretor.AddItem "Pétala Lacerda-SE"
    combdiretor.AddItem "Ralph Nunes Ferreira Leite-Sema"
    combdiretor2.AddItem "Rosimeire M.Duarte S. Santos-Comunicação"
    combdiretor2.AddItem "Cleide Moura Assis Pereira-Sedis"
    combsecretario.AddItem "Eduardo Cursino-Segov"
    combsecretario.AddItem "Odila Maria Sanches-SEAF"
    combsecretario.AddItem "Claudio Teixeira Brasão-Esporte"
    combsecretario.AddItem "Debora Andrade Pereira-Seplan"
    combsecretario.AddItem "Geraldo de Oliveira Neto-Sedin"
    combsecretario.AddItem "João Ebram Neto-Saúde"
    combsecretario.AddItem "Marilda Prado Ymamoto-Sedis"
    combsecretario.AddItem "João Bibiano Silva"
    combsecretario.AddItem "Dolores Moreno Pino"
    combsecretario.AddItem "Alexandre Magno Borges"
    combsecretario.AddItem "Edna Maria Querido de O. Chamon"
    combsecretario.AddItem "Martha Maria de Carvalho"
    combsecretario.AddItem "Marcel Wada"
    combsecretario.AddItem "Jean Soldi Esteves"

    'CRIEI UMA TABELA DE REGISTRO ONDE IRA ARMAZENAR OS NOMES JA GRAVADOS, QUANDO INICIAR A TABELA IRA APARECER
    'precisa ser copiado para o comando salvar para que apareca assim que for gravado
    totaldelinhas = Worksheets("CADASTRO").UsedRange.Rows.Count
    'para que nao precise arrumar o numero de linhas para localizar, a formula abaixo ira fazer automatico
    comblocalizar.RowSource = "CADASTRO!A2:a" & totaldelinhas


    End Sub

    quarta-feira, 20 de janeiro de 2016 12:41
  • Camilla,

    você precisa ser mais específica no seu problema para o pessoal te ajudar, poste somente o método que gera o erro indicando o erro e em qual linha é gerado.

    Assim fica mais fácil.

    Abraço!


    Natan

    quarta-feira, 20 de janeiro de 2016 17:04
  • Private Sub botaoeditar_Click()
    'verificar se o usuario selecionou algum nome
    If comblocalizar.ListIndex = -1 Then
    MsgBox " Selecione o nome para alteração!"
    Exit Sub
    End If
    End Sub

    segunda-feira, 25 de janeiro de 2016 16:10