gimli
04-26-2010, 09:17 AM
Hey all,
Runnng this code and getting a runtime error 1004 application defined or object defined error. I wouldve posted this in my other thread but couldnt unsolve the thread. Frustrated..it was working. It craps out when BX15 changes via drop down box. Every drop down selection causes the error
thanks much
Sub Angelina()
If Range("BX$15") = "A" And Range("F13") = 0 Or Range("BX$15") = "B" And Range("F13") = 0 Or Range("BX$15") = "C" And Range("F13") = 0 Or Range("BX$15") = "D" And Range("F13") = 0 Or Range("BX$15") = "E" And Range("F13") = 0 Or Range("BX$15") = "F" And Range("F13") = 0 Then
Range("E13") = " "
ElseIf Range("F13") >= 24 And Range("BX15") <> "A4" Then
Range("E13") = "A"
ElseIf Range("BX$15") = "B" Then
Range("E13") = Range("$CF$16")
ElseIf Range("BX$15") = "C" Then
Range("E13") = Range("$CF$17")
ElseIf Range("BX$15") = "D" Then
Range("E13") = Range("$CQ$16")
ElseIf Range("BX$15") = "E" Then
Range("E13") = Range("$CQ$17")
ElseIf Range("BX$15") = "F" Then
Range("E13") = Range("$CQ$18")
ElseIf Range("BX$15") = "G" Then
Range("E13") = Range("$DC$14")
End If
End Sub
Runnng this code and getting a runtime error 1004 application defined or object defined error. I wouldve posted this in my other thread but couldnt unsolve the thread. Frustrated..it was working. It craps out when BX15 changes via drop down box. Every drop down selection causes the error
thanks much
Sub Angelina()
If Range("BX$15") = "A" And Range("F13") = 0 Or Range("BX$15") = "B" And Range("F13") = 0 Or Range("BX$15") = "C" And Range("F13") = 0 Or Range("BX$15") = "D" And Range("F13") = 0 Or Range("BX$15") = "E" And Range("F13") = 0 Or Range("BX$15") = "F" And Range("F13") = 0 Then
Range("E13") = " "
ElseIf Range("F13") >= 24 And Range("BX15") <> "A4" Then
Range("E13") = "A"
ElseIf Range("BX$15") = "B" Then
Range("E13") = Range("$CF$16")
ElseIf Range("BX$15") = "C" Then
Range("E13") = Range("$CF$17")
ElseIf Range("BX$15") = "D" Then
Range("E13") = Range("$CQ$16")
ElseIf Range("BX$15") = "E" Then
Range("E13") = Range("$CQ$17")
ElseIf Range("BX$15") = "F" Then
Range("E13") = Range("$CQ$18")
ElseIf Range("BX$15") = "G" Then
Range("E13") = Range("$DC$14")
End If
End Sub