none
Usando Check Box como Variável RRS feed

  • Discussão Geral

  • Bom dia,

    Estou tentando fazer um loop para preencher as células da minha planilha com o valor da checkbox selecionas.

    Como faço para criar uma variável que navegue pelas Checkbox2,Checkbox3... ?

    Do Until Checkbox1.Value = False

         Range("Plan1!A1").Value = Checkbox.Caption

         ActiveCell.Offset(1, 0).Select

    CheckBox1.Value = False

    Loop

    Hide

    End Sub

    Obrigado.

    Eraldo

    • Tipo Alterado Filipe B Castro sexta-feira, 15 de setembro de 2017 19:24 Não é VB.Net
    • Movido Filipe B Castro sexta-feira, 15 de setembro de 2017 19:25 Mais apropriado
    quarta-feira, 6 de setembro de 2017 14:51

Todas as Respostas

  • Eraldo Martins, você postou no fórum de VB.Net / Visual Basic, mas sua dúvida é sobre VBA / Excel.

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    quarta-feira, 6 de setembro de 2017 15:30
  • Sim é VBA / Excel 2013.
    quarta-feira, 6 de setembro de 2017 16:45
  • Boa tarde, Eraldo Martins.

    Conseguiu o que precisava, se ainda não, o que precisa ainda?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 11 de setembro de 2017 16:44
  • Ainda não Felipe, estou aguardando uma luz...

    Não sei como fazer a minha macro rodar para cada checkbox, sem ter que escrever checkbox1, checkbox2, checkbox3... gostaria de fazer um comando do tipo for each ou for to e colocar as "checkbox" & i , (i)variável=i+1 

    assim poder avaliar o caption de cada checkbox e comparar com o valor de uma célula na planilha, se for igual marco na célula do lado VERDADEIRO se não FALSO

    quarta-feira, 13 de setembro de 2017 20:26
  • Filipe B Castro, a pergunta dele está no fórum errado, não poderia mover a pergunta para o fórum de VBA, talvez ele consiga a resposta mais facilmente lá.

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    sexta-feira, 15 de setembro de 2017 17:09
  • Movido!

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 15 de setembro de 2017 19:27
  • Bom dia Eraldo.

    Existem algumas formas de percorrer os controles. Uma que utilizo bastante é a seguinte:

    Dim n As Long, cCont As Object, cAtual As Object, Tipo As String
    
    With Me
        n = -1
        For Each cCont In .Controls             'Percorre cada controle
            n = n + 1
            Set cAtual = .Controls.Item(n)      'Controle Atual
        
            Select Case TypeName(cCont)              'Tipo do Controle Atual
                Case "OptionButton"
                    cAtual.Font.Size = 10
                    cAtual.Font.Bold = True
                Case "Label"
                    cAtual.Font.Size = 10
                    cAtual.Font.Bold = True
                Case "CommandButton"
                    cAtual.Font.Size = 12
                    cAtual.Font.Bold = True
                Case "CheckBox"
                    '...
            End Select
        Next cCont
        
    End With

    Basicamente percorro todos os controles e avalio o que desejo: pode ser por tipo, como o exemplo, ou mesmo pelo nome dado a cada um deles (.Name).

    Abraço.


    Filipe Magno

    sábado, 16 de setembro de 2017 14:32