Nevermind, got it! Here is my code for any future-goers
Dim i As Long, j As Long
Dim rng As Range
Private Sub CommandButton1_Click()
Set rng = Worksheets("Import").Range("B2")
i = 0: j = 1
Dashboard.TextBox1.Text = rng.Offset(i).Value
Dashboard.TextBox2.Text = rng.Offset(i, j).Value: j = j + 1
'
'
'txtbox_revri_projname.SetFocus
End Sub
'~~> Next Button
Private Sub CommandButton2_Click()
i = i + 1: j = 1
If i > (Sheets("Import").UsedRange.Rows.Count - 2) Then
MsgBox "Last Record"
Exit Sub
End If
Dashboard.TextBox1.Text = rng.Offset(i).Value
Dashboard.TextBox2.Text = rng.Offset(i, j).Value: j = j + 1
'
'
'txtbox_revri_projname.SetFocus
End Sub
Bookmarks