Jump to content
Fórum Script Brasil

Roberth Santos

Membros
  • Content Count

    15
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Roberth Santos

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Continua voltando somente a última marcação
  2. Só está voltando a última marcação.
  3. Deu só os flagados, mas continua a aparecer verdadeiro e falso.
  4. É 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.
  5. Bacana demais. Tem como só tirar o verdadeiro e falso e colocar números de 1 a 45?
  6. Deu quase certo, queria eles separados por vírgulas numa célula só.
  7. 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.
  8. Está dando falso, pois tenho 45 checkboks, mesmo fazendo para os 45 dá errado
  9. desculpa a ignorância, mas como vou utilizar? seria assim xcell.Offset(i, 3) = ??????????? (essa é minha dúvida)
  10. 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?
  11. 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
  12. 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
×
×
  • Create New...