Hi,
The value of 24 is what I am trying to get (D2*4-E2), but as of now when I run the code I get a value of 31. Below is the entire code and below that are examples of the output as of now. Thanks.
Private Sub CommandButton1_Click()
Dim i As Long
Application.ScreenUpdating = False
Range("C2") = WorksheetFunction.Average(Range("B18:D18"))
Range("C3") = WorksheetFunction.Average(Range("B23:D23"))
Range("C4") = WorksheetFunction.Average(Range("B24:D24"))
Range("C5") = WorksheetFunction.Average(Range("B29:D29"))
Range("C6") = WorksheetFunction.Average(Range("H18:J18"))
Range("C7") = WorksheetFunction.Average(Range("H23:J23"))
Range("C8") = WorksheetFunction.Average(Range("H24:J24"))
Range("C9") = WorksheetFunction.Average(Range("H29:J29"))
Range("C2:C9").NumberFormat = "#.00"
i = Range("B" & Rows.Count).End(xlUp).Row
For Each rngCell In Range("B2:B9" & i)
Select Case rngCell.Value
Case Is = "Noonan Syndrome"
With Range("D2:D9")
.Formula = "=(C2:C9)*100/19"
.NumberFormat = "#"
.FillDown
End With
Case Is = "Marfan Disorder"
With Range("D2:D9")
.Formula = "=(C2:C9)*100/16"
.NumberFormat = "#"
.FillDown
End With
Case Is = "Comprehensive Epilepsy"
With Range("D2:D9")
.Formula = "=(C2:C9)*100/13"
.NumberFormat = "#"
.FillDown
End With
End Select
Select Case rngCell.Value
Case Is <= 5
With Range("E2:E9")
Range("E9:E9") = 5
.NumberFormat = "#"
.FillDown
rngCell.Interior.Color = RGB(255, 0, 0) 'Red
End With
With Range("F2:F9")
.Formula = "=D2:D9*5-E2:E9"
.NumberFormat = "#"
.FillDown
rngCell.Interior.Color = RGB(255, 0, 0) 'Red
End With
Case Is <= 15
With Range("E2:E9")
Range("E2:E9") = 4
.NumberFormat = "#"
.FillDown
End With
With Range("F2:F9")
.Formula = "=(D2:D9)*4-(E2:E9)"
.NumberFormat = "#"
.FillDown
End With
Case Is <= 21
With Range("E2:E9")
.NumberFormat = "#"
.FillDown
End With
With Range("F2:F9")
.Formula = "=D2:D9*2-E2:E9"
.NumberFormat = "#"
.FillDown
End With
End Select
Next rngCell
Application.ScreenUpdating = True
End Sub
mean dilution factor μL gDNA μL H2O
1.35 7 4 31 (should be 24)
1.60 8 4 38 (should be 28)
Bookmarks