Snasui Excel Forum

Code: Select all

Sub Nextdata()
If Sheets("Data").Cells(ActiveCell.Row + 1, 1) = Empty Then
    MsgBox "Can not go to the next data. ... this last one."
    GoTo NextStep
End If

    nextRow = ActiveCell.Row + 1
    Cells(nextRow, 1).Activate
    Sheets("Input").Range("C4").Value = Sheets("Data").Cells(nextRow, 2)
    Sheets("Input").Range("C6").Value = Sheets("Data").Cells(nextRow, 3)
    Sheets("Input").Range("C8").Value = Sheets("Data").Cells(nextRow, 4)
    Sheets("Input").Range("C10").Value = Sheets("Data").Cells(nextRow, 5)

NextStep:

End Sub


Sub Previousdata()

If Sheets("Data").Cells(ActiveCell.Row - 1, 1) = "ON" Then
    MsgBox "Can not go to the previous data. ... this last one."
    GoTo NextStep
End If

    nextRow = ActiveCell.Row - 1
    Cells(nextRow, 1).Activate
    Sheets("Input").Range("C4").Value = Sheets("Data").Cells(nextRow, 2)
    Sheets("Input").Range("C6").Value = Sheets("Data").Cells(nextRow, 3)
    Sheets("Input").Range("C8").Value = Sheets("Data").Cells(nextRow, 4)
    Sheets("Input").Range("C10").Value = Sheets("Data").Cells(nextRow, 5)

NextStep:

End Sub

Code: Select all

'Other code
Sheets("Input").Range("C8").Value = Sheets("Data").Cells(nextRow, 4)
If Sheets("Data").Cells(nextRow, 5) = "Male" Then
    Sheets("Input").OLEObjects("OptionButton1").Object.Value = True
    Sheets("Input").OLEObjects("OptionButton2").Object.Value = False
ElseIf Sheets("Data").Cells(nextRow, 5) = "Female" Then
    Sheets("Input").OLEObjects("OptionButton1").Object.Value = False
    Sheets("Input").OLEObjects("OptionButton2").Object.Value = True
Else
    Sheets("Input").OLEObjects("OptionButton1").Object.Value = False
    Sheets("Input").OLEObjects("OptionButton2").Object.Value = False
End If
NextStep:
'Other code