Private Sub CommandButton5_Click()
CommandButton5.BackColor = 12713921
'===========================================================================================
' VARIABLES
'===========================================================================================
'i = 1000
'Do Until Cells(i, 2) = ""
'If i < 10 Then
'End If
Dim py, pb, veltestactual, NFD, API, Tfondo, BSW, GravAgua, Pcasing, ViscoFluido, ProfBomba, PMP, Caudaltestactual, rppmoper, PIPtomado, Diametro As Double
Dim THP, Voltaje, Corriente, FactorPotencia, LongitudCable, EffMotor, NumSellos, EffBomba As Double
Dim n As Double
Dim X1, X2, Y1, Y2, x As Double
case1 = ActiveCell.Row
cases = Selection.Rows.Count
lastcase = case1 + cases - 1
'Return
For n = case1 To lastcase
'Pwf = Cells(n, 24)
py = Cells(n, 17)
pb = Cells(n, 9)
veltestactual = Cells(n, 35)
NFD = Cells(n, 23)
API = Cells(n, 6)
Tfondo = Cells(n, 10)
BSW = Cells(n, 8)
GravAgua = 1
Pcasing = Cells(n, 50)
ViscoFluido = Cells(n, 13)
ProfBomba = Cells(n, 29)
PMP = Cells(n, 28)
Caudaltestactual = Cells(n, 48)
rpmoper = Cells(n, 34)
PIPtomado = Cells(n, 40)
Diametro = Cells(n, 31)
THP = Cells(n, 51)
Voltaje = Cells(n, 41)
Corriente = Cells(n, 37)
FactorPotencia = Cells(n, 47)
LongitudCable = Cells(n, 42)
EffMotor = Cells(n, 43)
NumSellos = 2
'=================================================================
' CALCULO DEL CAUDAL ACTUAL
'=================================================================
Caudalactual = Caudaltestactual * (rpmoper / veltestactual)
'==================================================================
' EFFICIENCIA DE LA BOMBA
'==================================================================
Select Case Caudalactual
Case Is < 500
X1 = 0
X2 = 500
Y1 = 0
Y2 = 30
x = Caudalactual
EffBomba = (((x - X1) * (Y2 - Y1) / (X2 - X1)) + Y1) / 100
Case 500.01 To 1000
X1 = 500.01
X2 = 1000
Y1 = 30
Y2 = 46
x = Caudalactual
EffBomba = (((x - X1) * (Y2 - Y1) / (X2 - X1)) + Y1) / 100 aqui se presenta el error.
no hallo que hacer para eliminar el error y poder seguir, he declado las variables como double como long decimal e integer y nada,agradeceria su ayuda