Consulting

Page 2 of 2 FirstFirst 1 2
Results 21 to 24 of 24

Thread: Simple Copy and Update Cell Value Every Minute

  1. #21
    Sorry, I am not a pro. So, I inserted the code above in Developed-->Visual Basic-->Worksheet.
    I saved the macro.
    What do I do now? How do I see the plot on a chart, or this will plot automatically?
    What do I need to do to see the plot? Sorry, not a savvy user when it comes to macros.

  2. #22
    Knowledge Base Approver VBAX Wizard p45cal's Avatar
    Joined
    Oct 2005
    Location
    Surrey UK
    Posts
    5,872
    If you'd supplied a workbook I could have made it fit, but you refused.
    I'm not going to spoon feed you.
    See attached.
    Cell A1 is the one which you have to set up to update.
    Attached Files Attached Files
    p45cal
    Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.

  3. #23
    Ok, it works, thank you, I didn't mean to come off stubborn or ungrateful. Thank you very much for your help!
    I apologize if I hurt your feelings!
    Thank you!!!

  4. #24
    VBAX Newbie
    Joined
    Nov 2020
    Posts
    1
    Location
    Hi - I have a similar live dataset that I wish to print to another sheet every minute, however, the timing is not repeatable, it will print 2 or 3 times instead of once each minute, how can I make this regular & repeatable - THANKS:

    Sub vol()
    With Sheets("DATA")
    .Columns("B:B").Copy
    .Columns("C:C").Insert Shift:=xlToRight
    End With


    With Sheets("LIVE").Range("B1")
    .Value = Time
    .NumberFormat = "h:mm:ss AM/PM"
    End With


    With Sheets("DATA").Range("B3:B103") 'destination sheet, bottom of column A
    .Value = Sheets("LIVE").Range("B1:B100").Value
    End With


    Dim cell As Range
    For Each cell In Sheets("RESULTS").Range("F4:F104")
    If Not IsError(cell.Value) Then
    If cell.Value = "Pass" Then
    cell.Interior.Color = XlRgbColor.rgbRed
    Beep
    End If
    End If 'error check
    Next
    If UCase(Sheets("DATA").Range("A1").Value) <> "STOP" Then Application.OnTime Now() + TimeValue("00:01:00"), "vol"
    End Sub

Tags for this Thread

Posting Permissions

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