#42 - Course macros and Excel VBA - Activation Button or Toggle Button

Поділитися
Вставка
  • Опубліковано 6 жов 2024
  • 42 - Course macros and Excel VBA - Activation Button or Toggle Button
    In the forty-second lesson I will explain how to work with the activation button and give tips on handling cells and windows.
    Topics covered:
    Toggle Button or Activation Button
    How to use the activation button
    Creating formatting routines in the cells with the activation button
    Activation Button Return
    Apply formatting from a cell or a selection
    Hiding and displaying controls with the activation button
    I hope you enjoy the content.
    If you like to share with your co-workers and friends!
    ************************************************
    complete course of Advanced Excel Online. Go!
    curseduca.com/1...
    ************************************************
    Access spreadsheets:
    www.sigaonerd.com
    OTHER COURSE CLASSES
    Lesson 1 - Introduction to Course and description of what is a macro
    • #01 - Macros Excel VBA...
    Lesson 2 - First macro: configure automatically page
    • #02 - Macros e Excel V...
    Class 3 - Types of macros: Relative or Absolute
    • #03 - Curso de Macros ...
    Lesson 4 - Associating macros buttons
    • #04 - Curso de Macros ...
    Lesson 5 - Macro Security
    • #05 - Curso de Macros ...
    Lesson 6 - Registration Client - Model 1
    • #06 - Macros e Excel V...
    Lesson 7 - Registration Client - Version 2
    • #07 - Macros e Excel V...
    Lesson 8 - Combo Box - Form Control
    • #08 - Macros e Excel V...
    Lesson 9 - Checkbox and Radio Button - Form Control
    • #09 - Macros e Excel V...
    Lesson 10 - List Box and Spin Button - Form Control
    • #10 - Macros e Excel V...
    L11 - Start of VBA programming activities
    • #11 - Macros e Excel V...
    Lesson 12 - Events (Activate, Calculate), comment code, RANGE instruction and Verification Immediate
    • #12 - Macros e Excel V...
    Lesson 13 - Variables in VBA
    • #13 - Macros e Excel V...
    Lesson 14 - Variables in Visual Basic for Applications (continued)
    • #14 - Macros e VBA - E...
    Class 15 - Repetition structure - DO WHILE ... LOOP
    • #15 - Macros e Excel V...
    Lesson 16 - Repetition structure - DO WHILE ... LOOP (reverse)
    • #16 - Curso de Macros ...
    Lesson 17 - Repetition structure - DO UNTIL ... LOOP
    • #17 - Curso de Macros ...
    Lesson 18 - Repeat structure with criteria - IF Function
    • #18 - Curso de Macros ...
    Lesson 19 - Repetition structure - FOR NEXT
    • #19 - Curso de Macros ...
    Lesson 20 - Repetition structure - FOR NEXT STEP ...
    • #20 - Curso de Macros ...
    Lesson 21 - Repetition structure - FOR EACH ... NEXT
    • #21 - Curso de Macros ...
    Lesson 22 - Repetition structure - FOR EACH ... NEXT - With the user password prompt
    • #22 - Curso de Macros ...
    Lesson 23 - Registering opening and closing sheet (using the Environ statement)
    • #23 - Curso de Macros ...
    Lesson 24 - Blocking access to a spreadsheet for login
    • #24 - Curso de Macros ...
    Lesson 25 - Error Handling - On Error GoTo
    • #25 - Curso de Macros ...
    Lesson 26 - Delete records from a register
    • #26 - Curso de Macros ...
    Lesson 27 - Change records of a record
    • #27 - Curso de Macros ...
    Lesson 28 - Manipulating several spreadsheets: Delete data, Hide and unhide
    • #28 - Curso de Macros ...
    Lesson 29 - Identifying duplicate records in more than one sheet
    • #29 - Curso de Macros ...
    Lesson 30 - Generating combinations of numbers (no repetition)
    • #30 - Curso de Macros ...
    Lesson 31 - Generating combinations of groups (without repetition)
    • #31 - Curso de Macros ...
    Lesson 32 - Using Excel functions directly from code
    • #32 - Curso de Macros ...
    Lesson 33 - Using Excel functions - Several functions
    • #33 - Curso de Macros ...
    Lesson 34 - Using Excel functions - Fixing automatically issues
    • #34 - Curso de Macros ...
    Visit the address below to access later lessons ... (It is not over here in the description!)
    sigaonerd.esy.e...
    Follow us on Facebook or Twitter
    / sigaonerdpontocom
    / aletrovato
    Microsoft Excel is a Microsoft Office suite application

КОМЕНТАРІ • 43

  • @marcelopitanga8858
    @marcelopitanga8858 3 роки тому +1

    Oi Alessandro,
    Primeiramente parabéns pela aula e muito obrigado pela multiplicação dos de conhecimentos conosco.
    Através dessa aula, eu inventei de testar algumas coisas, e fiz alguns teste com sucesso, porém não tiver sucesso na alteração de imagem , conforme os comandos abaixo, para a propriedade Caption funciona perfeitamente mas como a propriedade Pricture apresenta "Erro de compilação: Tipos incompatíveis"
    Private Sub ToggleButton1_Click()
    If Me.ToggleButton1.Value = True Then
    Me.ToggleButton1.Picture = "C:\Users\f0030834\Desktop\Sistema_Chamados\Cadeado_Fechado.bmp"
    Me.ToggleButton1.Caption = "Desativado"
    Else
    Me.ToggleButton1.Picture = "C:\Users\f0030834\Desktop\Sistema_Chamados\Cadeado_Aberto.bmp"
    Me.ToggleButton1.Caption = "Ativado"
    End If
    End Sub
    Desde já Obrigado.
    Marcelo Pitanga

  • @felipecouto9044
    @felipecouto9044 3 роки тому +1

    Não me canso de pensar. Trovado é o cara! Cada aula me surpreende mais com a facilidade que ele tem em ensinar e eu em absorver o conteúdo. Estou estudando mudar de área, curto Python e essa visão da mecânica da programação por trás do VBA tá me ajudando muito a compreende outras linguagens. Sucesso Professor!

    • @AlessandroTrovato
      @AlessandroTrovato  3 роки тому +1

      Que mensagem boa de receber Felipe! Acabei de entrar nos comentários e me deparo com seu feedback. Muito obrigado de coração por dispor de um tempo para deixar a mensagem. Espero que as mais de 240 aulas que tenho de vba possam te ajudar! Grande abraço.

  • @waltersouzajunior9345
    @waltersouzajunior9345 3 роки тому +3

    Professor, ótimo video. TEM COMO HABILITAR O BOTÃO SOMENTE SE EU PREENCHER DADOS EM UMA BASE ? Ex: Formulario de Cadastro, onde o botao Cadastrar só habilita se houver informação nos campos obrigatorios.

  • @Deivid8525
    @Deivid8525 2 роки тому +1

    obrigado pela aula, professor!

    • @AlessandroTrovato
      @AlessandroTrovato  2 роки тому

      Eu é que agradeço pela sua audiência Deivid! Boas Festas

  • @Raphael_Albano
    @Raphael_Albano 8 років тому +1

    Obrigado pela atenção. Mas eu já consegui. É claro graças aos seus vídeos. Fui olhando alguns vídeos e lendo as linhas de comando. Aí tem um vídeo sei que vc usa esse comando. Aí eu fiz uma macro pra saber a numeração da cor e pronto. Gostei bastante dos seus vídeos. Eu sou analista. Porém me dei melhor em vba. Fazendo programas com o Excel e seus vídeos são de extrema valia para as coisas que eu estou fazendo.

    • @AlessandroTrovato
      @AlessandroTrovato  8 років тому

      +Raphael Albano Grato pela mensagem e por acompanhar os trabalhos Raphael... VBA realmente é uma linguagem simples e muito poderosa de trabalho. Agora meu foco é B.I. e WEB...
      Bons estudos e sucesso!

  • @humilitywewantit
    @humilitywewantit 9 років тому +1

    Parabéns por sua nobre iniciativa de compartilhar seus conhecimentos gratuitamente.
    Estou acompanhando seus vídeos, novidades e canal.
    Forte abraço!
    Que você tenha ainda mais sucesso!

    • @AlessandroTrovato
      @AlessandroTrovato  9 років тому

      Muito obrigado +MarcosEngCivil pelas suas mensagens! Responderei nessa para agradecer as dezenas de comentários deixados nos vídeos! Sucesso amigo e obrigado por acompanhar os trabalhos...

  • @michelcesar85
    @michelcesar85 9 років тому +1

    Muito bom, estava precisando desse "vbmodeless", Obrigado mais uma vez!

    • @AlessandroTrovato
      @AlessandroTrovato  9 років тому

      Olá +Platini Cesar ! Obrigado por acompanhar os trabalhos.São dicas como essa que fazem as planilhas ficarem cada vez melhores!

  • @henriquerabello8924
    @henriquerabello8924 2 роки тому +1

    Uma forma simples é com o operador de negação Not por exemplo:
    Private Sub ToggleButton1_Click()
    ActiveCell.Font.Bold = Not ActiveCell.Font.Bold
    End Sub

    • @AlessandroTrovato
      @AlessandroTrovato  2 роки тому

      Perfeito! Muito obrigado Henrique pela sugestão e pelo ensinamento! Muito prática essa técnica!

  • @planxlsm
    @planxlsm 4 роки тому +2

    7:36 Ativar a planilha ( ActiveSheet.Select ) para usar o comando Selection
    10:28 UserForm. Show vbModeless
    17:00 Exemplo do Uso do Toggle Button ( Botão de Ativação )

  • @k_fuente2022
    @k_fuente2022 3 роки тому

    Alessandro, como se programar um toggle button para que assuma TRÊS VALORES a cada click, retornando ao valor inicial após o um click no último valor?
    Explicando: digamos que, numa userform, colocamos um botão de alternância (toggle button). Ao acessarmos a userform, o toggle button já assuma a cor azul. Ao primeiro clique, ele mude para a cor verde, ao segundo click, sua cor alterne para vermelho e, ao terceiro clique, retorne à cor inicial (azul). Havendo novo click, o clico se repete.
    Neste caso, a propriedade triple state do toggle button deverá assumir o valor true?

  • @naoadquirase...3281
    @naoadquirase...3281 8 років тому

    Alessandro, parabéns pelas suas vídeo, muito bem explicado e de boas imagens....Estou montando um form e estou tentando usa o tougglebutton, com função de troca de cores quando ativo e desativado, mas não estou conseguindo... você poderia mostrar alguma aula sobre?Agradeço a atenção

  • @jr.9388
    @jr.9388 Рік тому +1

    Alessandro como manter o Botao Toggle Button no ON (Pressionado) mesmo saindo e quando voltar a cessar o formulario continuar no ON.

    • @AlessandroTrovato
      @AlessandroTrovato  Рік тому

      Crie uma planilha de parâmetros e, ao carregar a sua pasta de trabalho, leia o parâmetro para setar se o botão está ativado ou não.
      Funcionará!

  • @estacaocriar-personalize7184
    @estacaocriar-personalize7184 8 років тому +1

    Olá Alessandro! Muito bom seu trabalho. Adoro sua didática. Mas agora estou precisando de uma dica importante que ainda não achei. Preciso salvar numa planilha dados de um BOTÃO TOGGLE BUTTON. Por exemplo: Um volante virtual da LOTOFÁCIL que estou desenvolvendo onde ao clicar sobre os botões numerados de 01 a 25 (escolhidos pelo cliente) esses serão salvos em linha da planilha. Qual seria o código VBA.? Onde posso encontra-lo ( Algum exemplo).

    • @AlessandroTrovato
      @AlessandroTrovato  8 років тому +1

      Olá Estação Criar! Nessa mesma aula. Procure pelo evento Click da Toggle Button.
      O código para salvar o valor do Toggle na célula A1: Plan1.Range("A1").Value = Me.Caption
      Bons estudos!

    • @estacaocriar-personalize7184
      @estacaocriar-personalize7184 8 років тому

      Obrigado Alessandro! Executei sua instrução, porém está salvando o nome do formulário (UserForm1) seu CAPTION, ao invés de salvar o CAPTION do botão, que no caso é uma dezena de 01 a 25, uma para cada botão,no caso da lotofácil.

    • @AlessandroTrovato
      @AlessandroTrovato  8 років тому

      Estaçao Criar - Personalize
      Tente esse código:
      If ToggleButton1.Value = True Then
      Range("A1").Value = ToggleButton1.Caption
      Else
      Range("A1").Value = ""
      End If

    • @estacaocriar-personalize7184
      @estacaocriar-personalize7184 8 років тому +1

      Grande Alessandro. Esse é o cara! Deu certinho. Sou novato em VBA, mas estou implementando mais alguns recursos e a coisa vai. Obrigadão! Abraço!

  • @CarlosAlexandreZucolli
    @CarlosAlexandreZucolli 8 років тому +1

    Boa tarde Alessandro, obrigado pelos vídeos. Estão me ajudando muito.
    Tenho uma dúvida, se puder me responder...
    Ao usar um formulário, a planilha fica inativa? Daria pra usar o formulário e editar a planilha?
    O que eu preciso fazer é selecionar algumas células e copiá-las para outra planilha, por meio de um botão no formulário.
    É possível?
    Obrigado.

    • @AlessandroTrovato
      @AlessandroTrovato  8 років тому

      Olá +Carlos Alexandre Zucolli ! É possível fazer isso sim. Nas aulas futuros do projeto vou ensinar como carregar formulários no modo VBMODELESS... Bons estudos!
      Aproveito e convido você a se inscrever em meu canal de vídeos e também participar do II Congresso Nacional de Excel - ConaExcel 2016. Vou ser um dos palestrantes. O congresso será online e totalmente gratuito e vou falar sobre esse tema: Conectando planilhas com o ACCESS via VBA.
      Inscreva-se e garanta a sua vaga: www.conaexcel.com.br

    • @CarlosAlexandreZucolli
      @CarlosAlexandreZucolli 8 років тому

      +Alessandro Trovato obrigado. já estou inscrito.
      vou pesquisar por este termo.
      abraço

  • @doblokemusic9617
    @doblokemusic9617 2 роки тому

    BOA NOITE PROFESSOR.
    GOSTARIA, SE POSSÍVEL FOR, UM CÓDIGO VBA PARA O SEGUINTE.
    EM UMA UMA SEQUENCIA DE 25 TOUGGLE BUTTON. TODOS NUMERADOS DE 01 A 25.
    GOSTARIA DE SELECIONAR 15 DELES E INSERIR EM UMA SEQUENCIA DE CÉLULAS, ATRAVÉS DE UM BOTÃO INSERIR. TEM COMO? DESDE JÁ, AGRADEÇO E PARABÉNS PELAS SUAS EXPLICAÇÕES. FORTE ABRAÇO

  • @leandrosouzapro3339
    @leandrosouzapro3339 5 років тому

    Ola eu gostaria de vídeo com um userform com botão pra abrir as guias ex guia e uma planilha de estoque outra guia um resumo ai no userform ter cada guia seria legal ocultar as guias

  • @Raphael_Albano
    @Raphael_Albano 8 років тому +1

    Tenho uma dúvida aqui e precisava te passar detalhes da minha dúvida. Vc pode me passar algum e-mail para que eu possa te explicar melhor minha dúvida.

    • @AlessandroTrovato
      @AlessandroTrovato  8 років тому

      Lamento +Raphael Albano ! Não presto suporte técnico ou consultorias particulares (pagas)... Já contribuo distribuindo as aulas com o maior nível de detalhes possível. Infelizmente meu tempo é muito escasso.
      Publique sua dúvida nos comentários que assim que tiver um tempo ou outro colega que acompanha as aulas puderem ajudaremos...
      Convido você a se inscrever em meu canal de vídeos e a conhecer as outras aulas que tenho de Excel no UA-cam.
      Excel Básico (30 aulas): ua-cam.com/play/PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH.html
      Funções Excel (+40 aulas): ua-cam.com/play/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc.html
      Desafios Excel (3 vídeos): ua-cam.com/play/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_.html
      Macros e VBA(+70 vídeos): ua-cam.com/play/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT.html
      Tira Dúvidas (7 vídeos): ua-cam.com/play/PL7iAT8C5wumpc2bxIM5TPWmNwTG1bi7KL.html

  • @gabrielhider6375
    @gabrielhider6375 3 роки тому

    Opa, tudo bem? Como posso imprimir uma área/tabela penas selecionando dados DIRETAMENTE de uma segmentação de dados?

  • @Gustavo-gb4tr
    @Gustavo-gb4tr 6 років тому +1

    Precisa do End If Para Usar O Else?

    • @AlessandroTrovato
      @AlessandroTrovato  6 років тому +1

      Sim Gustavo. Se você está utilizando o IF precisa escrevê-lo completo.
      Você pode usar sem o Else: IF condição THEN comandos END IF
      ou IF condição THEN comandos ELSE comandos END IF
      Abraços e bons estudos!

  • @Raphael_Albano
    @Raphael_Albano 8 років тому +1

    Alessandro. Eu consegui. Porém eu não quero que a celular mude a fonte é sim a cor do fundo.
    Exemplo. Eu tenho uma celular onde sua cor é azul. E ao clicar no botão quero que a célula fique com o fundo vermelho. E ao desclicar quero que ela volte para a cor azul. Tem como ?

    • @AlessandroTrovato
      @AlessandroTrovato  8 років тому

      +Raphael Albano Olá! Utilize o comando activecell.interior.color = rgb(255,0,0) para vermelho e rgb(0,0,255) para o azul. É totalmente possível fazer o que precisa!
      Convido você a conhecer outras aulas que tenho do Excel (+140) e outros temas que totalizam atualmente mais de 280 aulas como esta! Bons estudos e sucesso.
      Algumas playlists do canal:
      Excel Básico (30 aulas): ua-cam.com/play/PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH.html
      Funções Excel (+40 aulas): ua-cam.com/play/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc.html
      Desafios Excel (3 vídeos): ua-cam.com/play/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_.html
      Macros e VBA(+70 vídeos): ua-cam.com/play/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT.html
      Tira Dúvidas (7 vídeos): ua-cam.com/play/PL7iAT8C5wumpc2bxIM5TPWmNwTG1bi7KL.html

  • @clovisroberto6971
    @clovisroberto6971 4 роки тому

    Bom dia!
    Como faço para que ao clicar em um botão de comando o cursor, volte para a planilha/célula ativa de forma automática sem eu ter que fazer isso com mouse.

  • @mattzmello
    @mattzmello 4 роки тому

    tenho uma planilha que precisa de 1 upgrades para ficar pronta.
    pode me ajudar?
    as únicas coisas que preciso é somente fazer com que se a caixa de seleção estiver marcada então preencher com o nome pertencente a linha com o numero (54, 32, 86, 10 ja descrito na planilha) automatico em outra planilha, se não manter na mesma planilha e continuar o preenchimento manual..
    a outra que preciso é sobre exibir na mesma caixa de cadastro um numero ja cadastrado,
    quando eu tiver preenchendo a linha (x) então mostrar o numero pertencente a essa linha, sendo esse numero o que eu possa definir sem sequencia de 1, 2, 3, 4, mas sim de forma própria tipo 54, 32, 86, 10 ja descrito na planilha.
    se tiver numero ja descrito na planilha na primeira coluna completa, então continuar o preenchimento na mesma linha e preencher a célula seguinte..
    ao concluir passar para a proximo numero descrito
    formula que uso somente do preenchimento.
    'Verificando a quantidade de linhas usadas na planilha
    cont = Worksheets("BD").UsedRange.Rows.Count + 1
    'Selecionando a planilha a ser usada como banco de dados
    Worksheets("BD").Select
    'Armazenando na planilha os dados inseridos pelo usuário
    Cells(cont, 2) = txt_nome
    Cells(cont, 3) = txt_conexão
    Cells(cont, 6) = txt_titular
    estou tentando fazer mas sempre da erro, ja pesquisei em milhares de locais e nao achei nada sobre isso

  • @swatj3
    @swatj3 6 років тому

    Não sei se você reparou mas a soma com o aleatórioentre tá dando erro pois sempre que você aperta o botão os números mudam e o resultado acaba pegando a somatória dos números exatamente anteriores ao momento em que você selecionou o botão hahaha
    Só uma curiosidade ;p

  • @Polacoguaiba
    @Polacoguaiba 8 років тому +1

    Querido, me deparei com a seguinte situação: existe uma macro em um arquivo de outro setor da Empresa (logo, não posso alterar) que gera uma lista de dados e só é executada por um clique em um botão ou autoforma com macro atribuída. Eu estou programando outra macro em arquivos meus que abre esse arquivo da outra área e preciso que execute essa macro, mas não sei como escrever o código para a minha macro dar esse clique no outro arquivo e executar a outra macro. É possível? Parabéns pelos teus vídeos!

    • @AlessandroTrovato
      @AlessandroTrovato  8 років тому

      Olá Polacoguaiba! O código para abrir a outra pasta de trabalho você já tem? Se não tiver gravei uma aula sobre o assunto e ela já está disponível. Quanto a chamar a outra macro, experimente chamá-la com a instrução CALL passando o nome da workbook que foi aberta no procedimento anterior!.
      Bons estudos e sucesso!
      Algumas playlists do canal:
      Excel Básico (30 aulas): ua-cam.com/users/playlistist=PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH -
      Funções Excel (+44 aulas): ua-cam.com/play/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc.html -
      Desafios Excel (3 vídeos): ua-cam.com/play/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_.html -
      Macros e VBA(+70 vídeos): ua-cam.com/play/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT.html -
      Tira Dúvidas (7 vídeos): ua-cam.com/play/PL7iAT8C5wumpc2bxIM5TPWmNwTG1bi7KL.html - -
      Excel Avançado (curso completo com certificado, + 9 horas de vídeo) curseduca.com/136-microsoft-excel-2013-avancado/BFED29ED

    • @Polacoguaiba
      @Polacoguaiba 8 років тому +1

      Já fiz isso...usei CALL e outros comandos para executar macro em arquivos abertos e nada...eu precisava mesmo era de uma macro que só desse o clique pra mim, porque até a autoforma em que está atribuída a macro eu chego...Quando usei o CALL deu o erro 438 em algumas vezes e em outras o erro 1024...mas não sei o que deu errado na sintaxe. De qualquer forma estou de férias agora e resolverei isso na volta. Mas se conseguires algo para fazer o simples clique, agradeço.

  • @Marcelo.deLima
    @Marcelo.deLima 4 роки тому

    #maisum