I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
..Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub

n = Target.Row
With Target
..Value = Excel.Range("D" & n).Formula
End With
Cancel = True

If this post helps click Yes
---------------
Jacob Skaria


"usmc-r70" wrote:

I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub

That worked as well! Amazing how many different approaches can result in the
same outcome! Thanks to you all from USMC in Iraq.

"Jacob Skaria" wrote:

n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
Cancel = True

If this post helps click Yes
---------------
Jacob Skaria


"usmc-r70" wrote:

I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
Dim n As Long
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
Target.Offset(1).Select
End Sub

regards
r

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/...ternative.html


"usmc-r70" wrote:

I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub

And to 'r', thanks for your quick response and effective code.

"r" wrote:

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
Dim n As Long
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
Target.Offset(1).Select
End Sub

regards
r

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/...ternative.html


"usmc-r70" wrote:

I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub

You need the SendKeys to get you out of cell edit. You can avoid this by
setting Cancel=True

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
End Sub
--
Gary''s Student - gsnu200856


"usmc-r70" wrote:

I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub

That solution worked, thanks!

"Gary''s Student" wrote:

You need the SendKeys to get you out of cell edit. You can avoid this by
setting Cancel=True

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
End Sub
--
Gary''s Student - gsnu200856


"usmc-r70" wrote:

I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub

Gary, If I wanted to limit where this code works, (i.e. Column D or a range
of cells) what would the code look like?

"Gary''s Student" wrote:

You need the SendKeys to get you out of cell edit. You can avoid this by
setting Cancel=True

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
End Sub
--
Gary''s Student - gsnu200856


"usmc-r70" wrote:

I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub

Correction, limit code response to any column other than D.

"Gary''s Student" wrote:

You need the SendKeys to get you out of cell edit. You can avoid this by
setting Cancel=True

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
End Sub
--
Gary''s Student - gsnu200856


"usmc-r70" wrote:

I found and successfully loaded the following code, but I must use the ENTER
key for it to be fully posted.

Any idea?

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As
Boolean)
n = Target.Row
With Target
.Value = Excel.Range("D" & n).Formula
End With
SendKeys "{ENTER}", True
End Sub