Double-Click on cell

[edwardpestian]

Is there a way to only single click on a specific cell, but have the curser appear is if you had double clicked on it. I need this function for cells E6, E6, and G6 only.

Thanks in advance.

Regards,

ep

 

[edwardpestian]

Actually guys, I'm on a Mac. I've been working on the project from home where I only have a Mac. When I get to work tonight, I'll test in on a Windows box and post an answer as to how things go. Strangely enough, all the other VBA code that I've worked with has worked fine.

Thanks again.

ep

 

[rmikesmith]

EP,

I wouldn't be surprised that most native VBA commands work (notable exceptions or differences, as it relates to the MAC, are usually pointed out in the VBA Help). So, I'm still perplexed as to why the Select Case statement raised a compiler error. On the other hand, the Windows API functions are certainly OS-dependent.

Let us know what happens on your Windows box.


Regards,
Mike

 

[firefytr]

Ah, the Mac. I'm sorry, I forgot about you being on a Mac Edward, my apologies.

Change out the standard module routine for the SendKeys method ...

Sub EditMode(rngEdit As Range)
    Application.SendKeys "{F2}"
End Sub

Works for me.

HTH

-----------
Regards,
Zack Barresse

 

[edwardpestian]

Works perfectly on my Widows box. Can we take it one step further?

Only have the function happen when the cell has a blank value. Once the cell has data in it, it would simply function as normal.

Thanks all.

ep

 

[firefytr]

Yeah. We could take it a step farther and get rid of the standard module altogether (since we can't do the API with Mac's)...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Me.Range("E5,E6,G6")) Is Nothing Then Exit Sub
    If Target.Value <> "" Then Exit Sub
    Application.SendKeys "{F2}"
End Sub

-----------
Regards,
Zack Barresse

 

[edwardpestian]

Works beautifuly Zack. You are the man!

ep