moving cursor INTO a cell

[Koen]

Hello,

How can i move my cursor INTO a cell, not just make the cell active. The cursor needs to be blinking inside the cell.

so 'cells(1,1).Activate' doesn't do the thing.

 

[JamesW]

Hi there,

What do you plan to do to the cell afterwards? Why does the cursor have to be 'blinking' inside the cell?

 

[Koen]

Hi there, thank you for the reaction.

I'm trying to log data from over an OPC server. MyOPCItems4 is a counter value. So each time the Data changes, it is incremented. So I write 1 in A1, 2 in A2, 3 in A3, .... But the problem is, when i'm writing in a different cell, this sub isn't executed and I miss data that needs to be logged.

So I want to build something where my cursor moves out the cell where it is in at the moment the data changes. So I don't lose data.

Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, _
                                    ByVal NumItems As Long, _
                                    ClientHandles() As Long, _
                                    ItemValues() As Variant, _
                                    Qualities() As Long, _
                                    TimeStamps() As Date)
                                   
                                    
    Dim SHandles(2) As Long 'parameter value
    Dim Values() As Variant 'return value
    Dim Errors() As Long    'return value
    Dim Qual As Variant     'return value
    Dim TS As Variant       'return value
    
 
    SHandles(1) = MyOPCItems4.ServerHandle
    SHandles(2) = MyOPCItems4.ServerHandle
    
    Call MyOPCgroup.SyncRead(OPCCache, 2, SHandles, Values, Errors, Qual, TS)
    
    Cells(MyOPCItems4, 1).Activate
              
    Cells(MyOPCItems4, 1) = Values(1)
    Cells(MyOPCItems4, 1) = Values(2)
    Cells(MyOPCItems4, 2) = TS(1)
    Cells(MyOPCItems4, 2) = TS(2)
                           
End Sub

 

[njimack]

Sub test()
    Range("A1").Select
    Application.SendKeys ("{F2}{END}")
End Sub

 

[Koen]

Hi, njimack. thankyou very much.

That's exactly what I needed, but do you also know how to make something where the cursor moves out of the cell which it is in at the moment your code is executed. Because right now it doesn't work when I'm writing in a different random cell at the moment your code is executed.

thanks.

 

[njimack]

Hi, njimack. thankyou very much.

That's exactly what I needed, but do you also know how to make something where the cursor moves out of the cell which it is in at the moment your code is executed. Because right now it doesn't work when I'm writing in a different random cell at the moment your code is executed.

thanks.

I'm sure the cell you're writing to isn't chosen at random. Looking at your code, I guess you would need something like:

Cells(MyOPCItems4, 1).Select

 

[Koen]

The cells 'Cells(MyOPCItems4, 1)' are the cells where the data which comes over the OPC server is writen automatically, but the operators need to add data manually (data that cant be measured, like remarks or something) in different cells.

So actually my question was wrong, I need a thing that makes my cursor move out of a random cell.

thanks

 

[Ruddles]

Duplicate thread: http://www.mrexcel.com/forum/showthread.php?t=535003.