On 15 Ago, 01:28, Anne wrote:
I've written the following code, with comments, to work in a workbook for
calculating values for scientific pipettors. However, when I run the code, I
get an error that says type mismatch. Am I missing something? Do I need to
declare the H5 cell specifically as a double or something? Help!

Sub PipettorValueFillIn()
'Based on the value typed into cell H5 on the sheet
Pipettor_Calibration_Worksheet,
'this module will look up and return the volume, percent and CV for the
input value.
'Volume, percent and CV are in the sheet named errors in cells b9 to d11 if
the vallue is 0.2, for example.
'The volume, percent and CV should be placed in the sheet named Pipettor in
cells J9 to L11.

If [pipettor_calibration_worksheet.h5] = 0.2 Then
[pipettor.j9:l11] = [errors.b9:d11]
End If
If [pipettor_calibration_worksheet.h5] = 0.5 Then
[pipettor.j9:l11] = [errors.b13:d15]
End If
If [pipettor_calibration_worksheet.h5] = 1 Then
[pipettor.j9:l11] = [errors.b17:d19]
End If
If [pipettor_calibration_worksheet.h5] = 2 Then
[pipettor.j9:l11] = [errors.b21:d23]
End If
If [pipettor_calibration_worksheet.h5] = 10 Then
[pipettor.j9:l11] = [errors.b25:d27]
End If
If [pipettor_calibration_worksheet.h5] = 20 Then
[pipettor.j9:l11] = [errors.b29:d31]
End If
If [pipettor_calibration_worksheet.h5] = 100 Then
[pipettor.j9:l11] = [errors.b33:d35]
End If
If [pipettor_calibration_worksheet.h5] = 500 Then
[pipettor.j9:l11] = [errors.b37:d39]
End If
If [pipettor_calibration_worksheet.h5] = 1000 Then
[pipettor.j9:l11] = [errors.b41:d43]
End If
End Sub

Hi Anne.
I believe not only type mismatch, however try with this scheme:

'-------
If [pipettor_calibration_worksheet].[h5] = 0.2 Then
[Errors].[b9:d11].Copy Destination:=[pipettor].[j9:l11]
ElseIf [pipettor_calibration_worksheet].[h5] = 0.5 Then
[Errors].[b13:d15].Copy Destination:=[pipettor].[j9:l11]
elseif........................
................................
elseif.......................
................................
elseif.......................
...............................
else
'do nothing
end if
..................
.................
end sub

and be siure to calibrate correctrly your pipettors.:-))
Regards
Eliano