none
Botões de Navegação RRS feed

  • Pergunta

  • Como faço para criar os botoes Primeiro, Próximo, Anterior e Ultima em vba, estou usando a seguinte rotina para carregar os textbox: TextBox1.Value = Plan1.Range("A1")
    terça-feira, 11 de fevereiro de 2014 17:40

Respostas

  • Crie um formulário com dois botões de comando chamados btnPrevious e btnNext, e uma caixa de texto chamada TextBox1. Cole o código abaixo no módulo do formulário:

    Const mcstrCol As String = "A"
    Const mcstrWorksheet As String = "Plan1"
    
    Dim mwks As Excel.Worksheet
    Dim mlngRow As Long
    
    Private Sub btnNext_Click()
      Dim lngLast As Long
      
      lngLast = mwks.Cells(mwks.Rows.Count, mcstrCol).End(xlUp).Row
      If mlngRow >= lngLast Then Exit Sub
      mlngRow = mlngRow + 1
      fUpdateForm
    End Sub
    
    Private Sub btnPrevious_Click()
      If mlngRow <= 2 Then Exit Sub
      mlngRow = mlngRow - 1
      
      fUpdateForm
    End Sub
    
    Private Sub fUpdateForm()
      Me.TextBox1.Text = mwks.Cells(mlngRow, mcstrCol)
    End Sub
    
    Private Sub UserForm_Initialize()
      Set mwks = ThisWorkbook.Worksheets(mcstrWorksheet)
      mlngRow = 2
      fUpdateForm
    End Sub

    Os dados para testar esse programa deverão estar na coluna A, iniciando na linha 2, numa planilha chamada Plan1.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 11 de fevereiro de 2014 20:52
    Moderador