çoklu makro için yardım

[_Cheff_06_]

Aşağıdaki çoklu makroları aynı çalışma sayfasında çalıştırabilirmiyim?


Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [M279]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[B3:B29,B31:B36].Interior.Color = 12611584

ElseIf Target > 500 Then

[B3:B29,B31:B36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[B3:B29,B31:B36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[B3:B29,B31:B36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[B3:B29,B31:B36].Interior.Color = 13382655

ElseIf Target > -750 Then

[B3:B29,B31:B36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [B36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[C3:C29,C31:C36].Interior.Color = 12611584

ElseIf Target > 500 Then

[C3:C29,C31:C36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[C3:C29,C31:C36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[C3:C29,C31:C36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[C3:C29,C31:C36].Interior.Color = 13382655

ElseIf Target > -750 Then

[C3:C29,C31:C36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [C36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[D329,D3136].Interior.Color = 12611584

ElseIf Target > 500 Then

[D329,D3136].Interior.Color = vbBlue

ElseIf Target > 250 Then

[D329,D3136].Interior.Color = vbGreen

ElseIf Target > -250 Then

[D329,D3136].Interior.Color = vbYellow

ElseIf Target > -500 Then

[D329,D3136].Interior.Color = 13382655

ElseIf Target > -750 Then

[D329,D3136].Interior.Color = vbRed

End If

End If

End If

End Sub