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 :

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

Sub range_D()
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
Sub range_FJN()
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

[rollis13]

Or something like this:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D11:O11, D12:O12, D13:O13")) Is Nothing Then
        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 If
    If 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

[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.