Macro to Auto-Scroll

[IvanCG]

Hi, my problem is that i'm using an aplication to read the data in the TCP/IP port and send it to excel using DDE(Dynamic Data Exchange) . The aplication is "TWedge",
So what i need is a macro to keep seeing the data on the screen when new data is placed in a row because the program does not simulate keystrokes. Thanks .

So far i've tried this code, but it only works when i execute it.


Sub Scroll()

Dim i As Long: i = 1
Do While Len(Cells(i, "A").Value2) > 0
ActiveWindow.ScrollRow = i
i = i + 1
Loop

 

[silentwolf]

HI,
when you put your code into the worksheet_Change Event does it do what you are after?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long: i = 1
Do While Len(Cells(i, "A").Value2) > 0
ActiveWindow.ScrollRow = i
i = i + 1
Loop
End Sub

HTH

 

[IvanCG]

HI,
when you put your code into the worksheet_Change Event does it do what you are after?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long: i = 1
Do While Len(Cells(i, "A").Value2) > 0
ActiveWindow.ScrollRow = i
i = i + 1
Loop
End Sub

HTH

Hi , thanks for the reply.
I tried your solution but it doesn't work ,the data keeps going on the screen and it doesn't follow it.
It seems that this only works when you manually select the row or click enter after a data input.
The program that i'm using is putting the data in the rows without selecting them , neither is using the enter key.

 

[silentwolf]

Hi,
well when I enter this code in the approbiate Worksheet and I have data in Column "A" it will always show me the last Row in column A..
Is that not what you like to do?
So you have to go into the worksheet Events and use Worksheet Change event or experiment with the other events which might do what you are after.

Chees

 

[IvanCG]

Hi,
well when I enter this code in the approbiate Worksheet and I have data in Column "A" it will always show me the last Row in column A..
Is that not what you like to do?
So you have to go into the worksheet Events and use Worksheet Change event or experiment with the other events which might do what you are after.

Chees

Hello,

The code worked perfectly , thank you. Although at the end i had to use a lookup formula to show up the data of a non-empty cell.

 

[silentwolf]

Hi,

glad it worked out for you!

Cheers