Writing BeforeDoubleClick VBA Code

[Rob1972]

Hi there, hoping someone can assist, this is my first post so apologies if i haven't quite got to grips with the posting process yet

I have a Private Sub routine currently set up in one of my excel spreadsheets which works well the code is as follows:

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("$B$2:$B$100")) Is Nothing Then Exit Sub
Select Case Target
Case ""
Target = "FULLFILLED"
Target.Interior.ColorIndex = 4
Case Else
Target = ""
Target.Interior.ColorIndex = 3
End Select
Cancel = True
End Sub


What I want to be able to do is when I double click on a cell in range C2:C100 I want to be able to insert in the target field "Payment Taken" and on double click on a cell within the range D2:D100 i want to be able to insert "Dispatched" the interior colorIndex for these will be the same as those mentioned above.

I want to be able to do this in a way that each cell range is independent of each other.

I'm currently using the up to date version of Excel in MS Office 365

thank you for any assistance

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As Boolean)
'Modified 5/19/18 3:40 AM EDT
If Not Intersect(Target, Range("$B$2:$B$100")) Is Nothing Then
Cancel = True
If Target.Value = "" Then
Target.Value = "FULLFILLED"
Else
Target.Interior.ColorIndex = 3
End If
End If
If Not Intersect(Target, Range("$C$2:$C$100")) Is Nothing Then
Cancel = True
If Target.Value = "" Then
Target.Value = "Payment Taken"
Else
Target.Interior.ColorIndex = 3
End If
End If
If Not Intersect(Target, Range("$D$2:$D$100")) Is Nothing Then
Cancel = True
If Target.Value = "" Then
Target.Value = "Dispatched"
Else
Target.Interior.ColorIndex = 3
End If
End If
End Sub

 

[Rob1972]

thank you very much 'my answer is this', worked wonders, very much appreciated

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

thank you very much 'my answer is this', worked wonders, very much appreciated