Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Private Sub Worksheet_Calculate() Dim cel As Range Dim Addr As Variant, Targ As Variant Static Stocks(3) As Double 'Starts with element 0 Dim i As Long, n As Long Addr = Array("AQ3", "AV3", "AP3", "AU3") 'Watch these cells for price changes Targ = Array(85, 85, 20, 20) 'Look for prices above these threshhold values n = UBound(Stocks) For i = 0 To n With Range(Addr(i)) If Stocks(i) <> .Value Then Stocks(i) = .Value If .Value > Targ(i) Then Open "C:\Users\User\Documents\ABC.txt" For Append As #1 'Change path & name to suit Write #1, .Address(False, False), .Value, Date, Format(Time, "hh:mm:ss.ss") Close 1 End If End If End With Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.