Posts by Coney

  • Stange date format in forum postings

    Dave.


    I am having the same issues as DuckBill as far as asking for email notification of new replies and did not receive anything.


    I have checked my profile to make sure my email address was correct before posting this .....any other possiblities?

  • Need assistance with my blinkblink

    I have a code that the interior of a cell blinks red if the amount entered is >500.
    A double-click in any cell exits the procedure.
    I am trying to keep any cell that blinks to continue blinking.
    Please advise.


    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    If Target.Value > 500 Then
    BlinkBlink Sheet1.Range("A" & Target.Row)
    End If
    Columns(1).Interior.ColorIndex = 0
    End If
    End Sub


    Sub BlinkBlink(BlinkingRange As Range)
    Dim Start
    Do Until BlinkingRange.Value <= 500
    Start = Timer
    Do While Timer < Start + 1
    If Timer = 0 Then Start = Timer
    DoEvents
    Loop
    If BlinkingRange.Interior.ColorIndex = 3 Then
    BlinkingRange.Interior.ColorIndex = 0
    Else: BlinkingRange.Interior.ColorIndex = 3
    End If
    Loop
    End Sub