Utilizando ToggleButton no VBA

Dicas & Macetes (migrar)

Post Recente por nagibsalha 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,486 Visualizações

RSS

nagibsalha

(@nagibsalha)

Posts: 44

Eminent Member

Topic starter

Fala amigos!

Com um pouco da experiência adquirida aqui no Planilhando, resolvi mandar essa dica para utilizar um comando muito legal existente no VBA MACRO Excel: Toggle Button.

Utilizei em uma planilha minha para cadastros em geral.

Se for ativado ele abre uma pesquisa para que você possa alterar informações já existentes na base de dados.

Veja como ficou! Aceito sugestões. Valeu!

(Quem gostou... pode agradecer se quiser)

"Se você for... você vai."

Postado : 12/04/2017 2:31 pm

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa tarde nagibsalha,

Primeiro, não use azul/amarelo/vermelho/laranja/roxo... na internet. Fica bem ruim de ler o que foi escrito.
De preferência para a formatação padrão do fórum.

Agora sobre o sue código tenho um sugestão, para evitar usar o .Select na Sub BtInserirNovo_Click() você pode usar o With combinado com Cells.
De uma olhada:

Private Sub BtInserirNovo_Click()
    
    Dim WsFun       As Worksheet: Set WsFun = Sheets("FUNCIONARIOS")
    
    Dim Nlin        As Double: Nlin = WsFun.Range("B1048575").End(xlUp).Offset(1, 0).Row
    
    With WsFun.Cells(Nlin, 2)
        .Value = Me.TxNome.Text
        .Offset(0, 1).Value = Trim(Me.TxCPF.Text)
        .Offset(0, 2).Value = Trim(Me.TxFone1.Text)
        .Offset(0, 3).Value = Trim(Me.TxFone2.Text)
        .Offset(0, 4).Value = Trim(Me.TxTurno.Text)
        .Offset(0, 5).Value = Trim(Me.TxFuncao.Text)
        .Offset(0, 6).Value = Trim(Me.TxEmail.Text)
    End With

    Me.TxNome = ""
    Me.TxFone1 = ""
    Me.TxFone2 = ""
    Me.TxCPF = ""
    Me.TxFuncao = ""
    Me.TxTurno = ""
    Me.TxEmail = ""
    
    Unload Me
    
End Sub

Postado : 12/04/2017 3:01 pm