VBA question

[Lea]

Hello all,
Is it possible to write code in Visual Basic to do the following:

When I double click on a cell in the range A6:A11 the contents of that cell will be copied to cell A5.

It seems like this should be possible but I don't know how.

Thanks,
Lea

 

[VoG]

Try this: right click the sheet's tab, select View Code and paste in

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A6:A11")) Is Nothing Then Exit Sub
Cancel = True
Range("A5").Value = Target.Value
End Sub

 

[rguy84]

My gut tells me maybe not double click, but on button click. What do the contents of A6:A11 look like

 

[Weaver]

Right click the tab, choose 'view code' and paste in the following:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A6:A11")) Is Nothing Then
        Cancel = True
        Range("A5").Value = Target.Value
    End If
End Sub

 

[Lea]

VoG, Weaver and rguy84,
Thank you for the help! The code worked on a double click.
Hope you have a great day... you just made mine!
Lea