dúvidas para validar checkbox

[Roberth Santos]

Boa Noite, 

Estou com uma dúvida em relação ao uso de checkbox. Sou novo em relação a programação VBA e gostaria de saber se é possível utilizar vários checkbox e enviar para uma célula específica dentro da planilha.

No exemplo que tenho os checkbox são índices e corresponde do índice 1 ao índice 45. Gostaria de saber se é possível jogar as marcações dos índices na célula correspondente aos índices separando-os por vírgulas.

Ex: 1,3,5,7,9,11,29,30,31,40,42,45

 

Desde já agradeço

[Alyson Ronnan Martins]

Não entendi a sua lógica.

Você vai usar o formulário do VBA ou checkbox direto na planilha?

[Roberth Santos]

Então, eu tenho na userform três textbox's e 45 checkbox. Os textbox estão com retorno na planilha "dados" ficando pendente somente o checkbox, quero usar o checkbox direto na planilha. É possível?

anexei um exemplo

[Alyson Ronnan Martins]

Sim do mesmo jeito que pega os text box porem.tenta usar os valores do textbox com checkbox01.value = -1 para verdadeiro e 0 para falso

[Roberth Santos]

Desculpa, sou meio leigo, para pegar os text box usei essa fórmula.

Private Sub ENVIAR_Click()
Dim i As Integer
    i = 0
    Set xcell = Planilha7.Cells(5, 2)
    
    Do While (True)
        If IsEmpty(xcell.Offset(i, 0)) Then
            xcell.Offset(i, 0) = DT.Value
            xcell.Offset(i, 1) = IDD.Value
            xcell.Offset(i, 2) = APROVAÇÃO.Text
               
            
            
    
        Exit Do
        Else
            If i > 10000 Then
                Exit Do
            End If
        End If
        i = i + 1
    Loop
        MsgBox "Dados Salvos com Sucesso"
End Sub
 Onde irei jogar os checkboxs?

[Alyson Ronnan Martins]

Exemplo:

 If IsEmpty(xcell.Offset(i, 0)) Then
            xcell.Offset(i, 0) = DT.Value
            xcell.Offset(i, 1) = IDD.Value
            xcell.Offset(i, 2) = APROVAÇÃO.Text
             'Aqui.
            
            
    
        Exit Do

 

[Roberth Santos]

desculpa a ignorância, mas como vou utilizar?

seria assim

 xcell.Offset(i, 3) = ??????????? (essa é minha dúvida)

[Alyson Ronnan Martins]

qual nome de umas das sua checkbox?

[Roberth Santos]

índice1

[Alyson Ronnan Martins]

 xcell.Offset(i, 3) = índice1.value

o (i, 3) vai aumentando de acordo com a coluna

[Roberth Santos]

Está dando falso, pois tenho 45 checkboks, mesmo fazendo para os 45 dá errado

[Alyson Ronnan Martins]

manda o código que você fez agora.

[Roberth Santos]

Private Sub ENVIAR_Click()
Dim i As Integer
    i = 0
    Set xcell = Planilha7.Cells(5, 2)
    
    Do While (True)
        If IsEmpty(xcell.Offset(i, 0)) Then
            xcell.Offset(i, 0) = DT.Value
            xcell.Offset(i, 1) = IDD.Value
            xcell.Offset(i, 2) = APROVAÇÃO.Text
            xcell.Offset(i, 3) = ÍNDICE1.Value
            xcell.Offset(i, 3) = ÍNDICE2.Value
            xcell.Offset(i, 3) = ÍNDICE3.Value
            xcell.Offset(i, 3) = ÍNDICE4.Value
            xcell.Offset(i, 3) = ÍNDICE5.Value
            xcell.Offset(i, 3) = ÍNDICE6.Value
            xcell.Offset(i, 3) = ÍNDICE7.Value
            xcell.Offset(i, 3) = ÍNDICE8.Value
            xcell.Offset(i, 3) = ÍNDICE9.Value
            xcell.Offset(i, 3) = ÍNDICE10.Value
            xcell.Offset(i, 3) = ÍNDICE11.Value
            xcell.Offset(i, 3) = ÍNDICE12.Value
            xcell.Offset(i, 3) = ÍNDICE13.Value
            xcell.Offset(i, 3) = ÍNDICE14.Value
            xcell.Offset(i, 3) = ÍNDICE15.Value
            xcell.Offset(i, 3) = ÍNDICE16.Value
            xcell.Offset(i, 3) = ÍNDICE17.Value
            xcell.Offset(i, 3) = ÍNDICE18.Value
            xcell.Offset(i, 3) = ÍNDICE19.Value
            xcell.Offset(i, 3) = ÍNDICE20.Value
            xcell.Offset(i, 3) = ÍNDICE21.Value
            xcell.Offset(i, 3) = ÍNDICE22.Value
            xcell.Offset(i, 3) = ÍNDICE23.Value
            xcell.Offset(i, 3) = ÍNDICE24.Value
            xcell.Offset(i, 3) = ÍNDICE25.Value
            xcell.Offset(i, 3) = ÍNDICE26.Value
            xcell.Offset(i, 3) = ÍNDICE27.Value
            xcell.Offset(i, 3) = ÍNDICE28.Value
            xcell.Offset(i, 3) = ÍNDICE29.Value
            xcell.Offset(i, 3) = ÍNDICE30.Value
            xcell.Offset(i, 3) = ÍNDICE31.Value
            xcell.Offset(i, 3) = ÍNDICE32.Value
            xcell.Offset(i, 3) = ÍNDICE33.Value
            xcell.Offset(i, 3) = ÍNDICE34.Value
            xcell.Offset(i, 3) = ÍNDICE35.Value
            xcell.Offset(i, 3) = ÍNDICE36.Value
            xcell.Offset(i, 3) = ÍNDICE37.Value
            xcell.Offset(i, 3) = ÍNDICE38.Value
            xcell.Offset(i, 3) = ÍNDICE39.Value
            xcell.Offset(i, 3) = ÍNDICE40.Value
            xcell.Offset(i, 3) = ÍNDICE41.Value
            xcell.Offset(i, 3) = ÍNDICE42.Value
            xcell.Offset(i, 3) = ÍNDICE43.Value
            xcell.Offset(i, 3) = ÍNDICE44.Value
            xcell.Offset(i, 3) = ÍNDICE45.Value
            
            
            
        Exit Do
        Else
            If i > 10000 Then
                Exit Do
            End If
        End If
        i = i + 1
    Loop
        MsgBox "Dados Salvos com Sucesso"
End Sub

Quero o valor dos índices ali separado por vírgulas.

[Alyson Ronnan Martins]

No exemplo abaixo você mudar o formato de colunas para linhas:

Olha se você acompanha o pensamento. O cadastro em nova linha tem que verificar se estar selecionado índice (45 vezes)

Então vai ser preciso fazer um "loop" para olhar 45 vezes passando de índice para índice.

for x = 1 to 45 step 1
      xcell.Offset(i, 0) = DT.Value
      xcell.Offset(i, 1) = IDD.Value
      xcell.Offset(i, 2) = APROVAÇÃO.Text
      xcell.Offset(i, 3) = me.("ÍNDICE" & x).Value
      i = i + 1
next x

 

[Roberth Santos]

Apresenta o erro acima.

[Alyson Ronnan Martins]

Muda o [ para (

[Roberth Santos]

Agora aparece esse

[Alyson Ronnan Martins]

Tenta tirar o ponto

24 minutos atrás, Roberth Santos disse:

Agora aparece esse

Eu errei o ponto "." 

Exemplo:

Me("campo" & x).value

[Roberth Santos]

Deu quase certo, queria eles separados por vírgulas numa célula só.

[Alyson Ronnan Martins]

xcell.Offset(i, 0) = DT.Value
xcell.Offset(i, 1) = IDD.Value
xcell.Offset(i, 2) = APROVAÇÃO.Text
'limpa para inserir novos dados
xcell.Offset(i, 3) = ""
for x = 1 to 45 step 1
 xcell.Offset(i, 3) = xcell.Offset(i, 3).value & me.("ÍNDICE" & x).Value
 if x <> 45 then
  xcell.Offset(i, 3) = xcell.Offset(i, 3).value & ", "
 end if
next x

Tenta esse comando então. 

[Roberth Santos]

Bacana demais. Tem como só tirar o verdadeiro e falso e colocar números de 1 a 45?

[Alyson Ronnan Martins]

Não entendi.

O que quer colocar no lugar?

[Roberth Santos]

É porque está voltando o resultado verdadeiro e falso.

 

Queria ver a possibilidade de voltar 1,2,3,36,45... ou seja, o valor que for flagado.

[Alyson Ronnan Martins]

for x = 1 to 45 step 1
 if me.("ÍNDICE" & x).Value then
 xcell.Offset(i, 3) = xcell.Offset(i, 3).value & me.("ÍNDICE" & x).Value
 if x <> 45 then
  xcell.Offset(i, 3) = xcell.Offset(i, 3).value & ", "
 end if
 end if

Tenta assim

[Roberth Santos]

Deu só os flagados, mas continua a aparecer verdadeiro e falso.

[Alyson Ronnan Martins]

Flagados?

for x = 1 to 45 step 1
 if me.("ÍNDICE" & x).Value then
 xcell.Offset(i, 3) = x
 if x <> 45 then
  xcell.Offset(i, 3) = xcell.Offset(i, 3).value & ", "
 end if
 end if