Jump to content
Fórum Script Brasil
  • 0

Navegar dentro do ListBox


Question

Pessoal estou anexando um projetinho no vba excel de cadastro de horários. Como podem ver ele possui duas listbox. Uma que carrega todos os horários (00:00 às 23:59) e outra com os horários já cadastrados. Quando utilizo os botões de navegação "<" e ">" consigo ver na planilha mas não no listbox de "horários cadastrados" somente os campos: textbox, combobox.

Private Sub btnproxreg_Click()
Dim selecao As Integer
Dim quantidade As Integer

    ActiveCell.Offset(1, 0).Select
     If ActiveCell.Offset.Value = "" Then
        MsgBox "Fim dos Registros", vbOKOnly
      End If
      
    txtlinha.Value = ActiveCell.Offset(0, 0).Value
    cbSentido.Value = ActiveCell.Offset(0, 1).Value
    cbCalendario.Value = ActiveCell.Offset(0, 2).Value
    txtatendimento.Value = ActiveCell.Offset(0, 4).Value
    
    quantidade = Me.ltcarrega.ListCount
    selecao = Me.ltcarrega.ListIndex
    
  If selecao > 0 And selecao <= quantidade - 1 Then
   Me.ltcarrega.Selected(selecao - 1) = True
   Else
   Me.ltcarrega.Selected(0) = False
   End If

End Sub

Private Sub btnregatual_Click()
Dim selecao As Integer
Dim quantidade As Integer

    ActiveCell.Offset(-1, 0).Select
     If ActiveCell.Offset.Value = 1 Then
        MsgBox "Primeiro Registro", vbOKOnly
      End If
      
    txtlinha.Value = ActiveCell.Offset(0, 0).Value
    cbSentido.Value = ActiveCell.Offset(0, 1).Value
    cbCalendario.Value = ActiveCell.Offset(0, 2).Value
    txtatendimento.Value = ActiveCell.Offset(0, 4).Value
    
  quantidade = Me.ltcarrega.ListCount
  selecao = Me.ltcarrega.ListIndex
  
  If selecao >= 0 And selecao < quantidade - 1 Then
   Me.ltcarrega.Selected(selecao + 1) = True
   Else
   Me.ltcarrega.Selected(0) = False
   End If
     
    
End Sub


 

Layout.JPG

Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148875
    • Total Posts
      644916
×
×
  • Create New...