Combining two private subs

[sydney5316]

Can someone help me combine these two Private Subs. They are both identical subs entering different values into different ranges. They are both contained in excel sheet1. The top sub enters certain values into a specific range. The bottom sub enters different values into a different range. I need them to both work together. Seperately they work fine. I've tried many different ways to get them to work together; however, I'm just not advanced enough. Thanks in advance.

--------------------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Count > 1 Or Intersect(Target, Range("D11:O11, D12:O12, D13:O13")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Target.Value = "1"
Case Is = "1"
Target.Value = "2"
Case Is = "2"
Target.Value = "3"
Case Is = "3"
Target.Value = "4"
Case Is = "4"
Target.ClearContents
End Select
Cancel = True

End Sub
-----------------------------------------------------------------------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Count > 1 Or Intersect(Target, Range("F20:F23, J20:J23, N20:N23")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Target.Value = "85"
Case Is = "85"
Target.Value = "170"
Case Is = "170"
Target.Value = "255"
Case Is = "255"
Target.Value = "340"
Case Is = "340"
Target.Value = "425"
Case Is = "425"
Target.ClearContents
End Select
Cancel = True

End Sub
------------------------------------------------------------------------------

[xlbiznes]

Hi,

the easiest way to do would be like this :

Please Login or Register  to view this content.

[rollis13]

Or something like this:

Please Login or Register  to view this content.

[sydney5316]

Wow. Works great. I can't Thank you guys enough. I should have posted sooner and saved myself a lot of time and frustration. Your replies were Greatly apprciated.