Excel.. Exit Edit Mode [RESOLVED.. finally :-P]

[RobDog888]

What if, before you make the copy/paste, you change the selection to
another row and then back to the sorce/target row? That should take it out
of edit mode.

[SpeedyDog]

xlSheetInput.Cells(1, 1).Select

ERROR:
Select Method or Range Class Failed.


ahhhh!!!!... why doesn't that work?!

-SpeedyDog

[RobDog888]

Ok, here is the perfect solution. Disable editing on just your application object.
It will not effect any other instances before or after, that the user may or
may not have opened already or will open.

Option Explicit
 
Private moApp As Excel.Application
Private moWB As Excel.Workbook
    
Private Sub Command1_Click()
    moWB.Sheets("Sheet1").Cells(1, 1).Value = "Test"
    moWB.Sheets("Sheet1").Cells(1, 1).Copy
    moWB.Sheets("Sheet2").Activate
    moWB.Sheets("Sheet1").Paste Destination:=moWB.Sheets("Sheet2").Cells(1, 1)
End Sub
 
Private Sub Form_Load()
    Set moApp = New Excel.Application
    moApp.Visible = True
    Set moWB = moApp.Workbooks.Add
    If moApp.EditDirectlyInCell = True Then
        moApp.EditDirectlyInCell = False
    End If
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If moApp.EditDirectlyInCell = False Then
        moApp.EditDirectlyInCell = True
    End If
    moWB.Close False
    moApp.Quit
    Set moWB = Nothing
    Set moApp = Nothing
End Sub

[SpeedyDog]

This doesn't work?....

goto sheet 2, and start typing in say 3,5 for example just type in randomness, don't exit out of edit mode... and then push Command1... it deosn't write text, or copy it until AFTER you exit out of edit mode :-/

-SpeedyDog

[RobDog888]

If you noticed that I have code in the Form_Load event to disable the edit
capability. Then if the user tries to edit anything in Excel, it wont go into
editmode.

Private Sub Form_Load()
    Set moApp = New Excel.Application
    moApp.Visible = True
    Set moWB = moApp.Workbooks.Add
    If moApp.EditDirectlyInCell = True Then
        moApp.EditDirectlyInCell = False 'TURNS EDIT MODE OFF
    End If
End Sub

[SpeedyDog]

that doens't turn off Edit mode for my version of Excel? EXCEL XP version 10.x .... I even ended up taking out that if statement and just making it false.. and I can still edit :-/ But people need to beable to edit...

I need to EXIT the edit mode, when they click the update...

-SpeedyDog...

P.S.
Project DueDate for client is Monday :-/ (edit: wow, acutally not till the 1-10-2005)

I mean, things work fine, just it hangs if they don't exit out of edit mode when they go to update, and since they are paying $3,000/month for this program I figured I should get that fixed :-P

[RobDog888]

So if I get it working for you do I get $3k???