JARichard74
Board Regular
- Joined
- Dec 16, 2019
- Messages
- 114
- Office Version
- 365
- Platform
- Windows
Get the error on this code on the first .Range line
VBA Code:
ElseIf scle = "MDB-H" Then
startRow = k * z + 4 - z
endRow = k * z + 2
startCell = k * z + j + 3 - z
Hrngel = WorksheetFunction.Average(Range("B" & startRow & ":B" & endRow)) - WorksheetFunction.StDevP(Range("B" & startRow & ":B" & endRow))
Hrngeh = WorksheetFunction.Average(Range("B" & startRow & ":B" & endRow)) + WorksheetFunction.StDevP(Range("B" & startRow & ":B" & endRow))
OOrnge = WorksheetFunction.CountIf(Range("J" & startRow & ":J" & endRow), "No") - 1
[COLOR=rgb(184, 49, 47)].Range(.Cells(startCell, 10), .Cells(startCell, 10)).Formula = "=IF(OR(B" & startCell & " < Hrngel,B" & startCell & " > Hrngeh,""No"",""Yes"")"[/COLOR]
.Range(.Cells(startCell, 6), .Cells(startCell, 6)).Formula = "=IF(OR(B" & startCell & " < Hrngel,B" & startCell & " > Hrngeh,z - 1,RANK.EQ(B" & startCell & ",B" & k * z + 4 - z & ":B" & (k * z) + 2 & ",1) - OOrnge))"
.Range(.Cells(startCell, 3), .Cells(startCell, 3)).Formula = "=IF(OR(B" & startCell & " < rngel,B" & startCell & " > rngeh),0,VLOOKUP(B" & startCell & "/B" & (k * z + 3 - z) & "*100,Data!$G$3:$I$13,3,TRUE))"
.Range(.Cells(startCell, 5), .Cells(startCell, 5)).Formula = "=IF(ISBLANK(B" & startCell & "),"""",IF(B" & startCell & " = ""Locked"","""",C" & startCell & " * D" & startCell & "/10))"
.Range("B" & startCell).NumberFormat = "$#,##0.00"