Ayuda Novato

[pkj]

Imagino que el hscroll3 ya está usando min1 max6, ya que es el que pone el valor en txtVel y dices que son 6 valores. Solo tendrías que cámbiarlo por:

Código :

Private Sub HScroll3_Change()
  txtVel.text = HScroll3.Value
  Select Case HScroll3.Value
    Case 1:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text)
    Case 2:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
    Case 3:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
    Case 4:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
    Case 5:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
    Case 6:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
  End Select
End Sub
 

Creo que así funcionará.