blinking using conditional format

still learning · Dec 26, 2018

Hi,
I am using conditional format to alert me when cell A1 is greater than 0. The cell is a result of a formula

Code:

=if(B1>B2,"More","Less")<b2<b2,"more","less")<b2,"more","less")
<b2,"more","less")

I have the format change to red and bold, from default (black and non bold)

Code:

=A1>0

I'm wondering if there is any way to have the cell also blink. Either with Conditional format or a macro

Mike

</b2,"more","less")
</b2<b2,"more","less")<b2,"more","less")

Yongle · Dec 26, 2018

when do you want to be alerted that A1 is greater than 0?
- when the cell changes to a value greater than 0 ?
- after any change is made to the sheet and A1 value is greater than 0 ?
- continuously?
- are values in the sheet amended manually or auto-amended (eg from Internet etc) ?

still learning · Dec 26, 2018

Hi Yongle

Merry Christmas and Happy New Year

I am using A1 and B1 and B2 and C1 to make it easier to test

A1 should start blinking when the user enters a date in C1

A1 is the result of an if statement after data is entered in B1 and B2

I would like it to blink 8 or 9 times.

The sheet is added to manually every few days.

If needed, I can make up an example sheet and attach it

>>>>I have a macro to start at the first empty cell in the column and row for the user to start his input..the first empty cell is around row 421. again, i'm using a1,b1,c1 for ease

mike

Yongle · Dec 27, 2018

Merry Christmas

Try something like this

Paste code in sheet module (right-click on sheet tab \ select View Code \ paste code \ go back to Excel with {ALT}{F11})

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then
    Application.EnableEvents = False
    Dim a As Long
        With Range("A1")
            For a = 1 To 5
                .Interior.Color = 5287936
                Application.Wait (Now + TimeValue("00:00:01"))
                .Interior.Color = xlNone
                Application.Wait (Now + TimeValue("00:00:01"))
            Next a
        End With
    Application.EnableEvents = True
    End If
End Sub

still learning · Dec 27, 2018

Perfect

Thank you

Mike

still learning · Dec 27, 2018

Hi Yongle

I changed your script a little.

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("c1:c20")) Is Nothing Then
    Dim a As Long
        With Range("difference")
            For a = 1 To 5
                .Font.ColorIndex = 2
                Application.Wait (Now + TimeValue("00:00:01"))
                .Font.ColorIndex = 3
                Application.Wait (Now + TimeValue("00:00:01"))
            Next a
        End With
    Application.EnableEvents = True
    End If
End Sub

Now I'm wondering if I can use this and where to put it?

Code:

If Range("difference").Value = "MORE" Then
'[COLOR=#ff0000]run the blinking script[/COLOR]

Mike

Its' holiday time

Yongle · Dec 27, 2018

try (untested)
replacing

Code:

If Not Intersect(Target, Range("c1:c20")) Is Nothing Then

with

Code:

If Range("difference").Value = "MORE" And Not Intersect(Target, Range("c1:c20")) Is Nothing Then

or perhaps (untested)
below this line

Code:

With Range("difference")

insert this line

Code:

If .Value <> "MORE" Then Exit Sub

still learning · Dec 27, 2018

I tried the first one and >>>PERFECT<<<

Thank you again

This calls for another drink

mike

Yongle · Dec 27, 2018

agreed

blinking using conditional format

still learning

Well-known Member

Excel Facts

Yongle

Well-known Member

still learning

Well-known Member

Yongle

Well-known Member

still learning

Well-known Member

still learning

Well-known Member

Yongle

Well-known Member

still learning

Well-known Member

Yongle

Well-known Member

Similar threads

Forum statistics

Share this page

blinking using conditional format

Well-known Member

Excel Facts

Well-known Member

Well-known Member

Well-known Member

Well-known Member

Well-known Member

Well-known Member

Well-known Member

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock