+ Reply to Thread
Results 1 to 3 of 3

live feed from stock exchange recording change every 15mins

  1. #1
    Registered User
    Join Date
    03-01-2012
    Location
    Singapore
    MS-Off Ver
    Excel 2003
    Posts
    2

    live feed from stock exchange recording change every 15mins

    Hi all

    Just had a quick question. In my excel I have a live feed from a stock exchange. I want to record the value of the stock exchange every 15minutes. I have searched on here and I am currently using a macro that records every time the live feed changes. Only problem, is that within a couple of minutes I have about 180 cells with data. I just need data points for say, every 15minutes. Does anyone have any suggestions?

    Currently I am just right clicking on the excel tab and going view code and entering my code there.

    I'm new to macro's so would appreciate it if you could walk me through with baby steps.

    Thank you very much for your time!

    cheers, jono

  2. #2
    Forum Expert
    Join Date
    06-25-2009
    Location
    Sofia, Bulgaria, EU
    MS-Off Ver
    Excel 2003-2013
    Posts
    1,290

    Re: live feed from stock exchange recording change every 15mins

    Hi! Welcome to the forum. If I understand correct you already have macro that records the respective value on every change. It would be much easier if you upload the workbook, or at least the code you already have to avoid writing the same thing from the beginning.
    Buran
    If you are pleased with a member's answer then use the Star icon to rate it.

  3. #3
    Registered User
    Join Date
    03-01-2012
    Location
    Singapore
    MS-Off Ver
    Excel 2003
    Posts
    2

    Re: live feed from stock exchange recording change every 15mins

    Hi Buran

    Thanks for your reply.

    I am currently using the following macro. I just copied it from another thread on this forum.

    Private Sub Worksheet_Calculate()
    Worksheet_Change Range("B1")
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
    Application.EnableEvents = False
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("A1").Value
    Application.EnableEvents = True
    Application.EnableEvents = False
    Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("B1").Value
    Application.EnableEvents = True
    End If
    End Sub

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1