Blinking Conditional formatting in excel | Make cell to blink in excel in hindi

Blinking Conditional formatting in excel | Make cell to blink in excel in hindi

Download VBA Code File - Cllick here

Copy VBA Code of Blinking Conditional Formatting below:

Private Sub Worksheet_Change(ByVal Target As Range) Dim StockValue As Range Dim StockField As Range Set StockField = Range("B2", Range("A2").End(xlDown)) Dim StockTarget As Range Set StockTarget = Range("E1") Dim CellsToBlink As Range Dim I As Byte 'Only run the code below if either the Stock or Stock Target values are changed If Not Intersect(Target, Union(StockField, StockTarget)) Is Nothing Then StockField.Interior.Color = vbWhite 'Reset all cell background colours in column B to white For Each StockValue In StockField 'For each Stock figure in the Stock field If StockValue <= StockTarget Then 'If the Stock value has met the target If CellsToBlink Is Nothing Then ' and if the CellsToBlink variable is empty ' store the current StockValue in the CellsToBlink Variable Set CellsToBlink = StockValue Else 'if the CellsToBlink variable is not empty, 'add the new StockValue to the CellsToBlink variable Set CellsToBlink = Union(StockValue, CellsToBlink) End If End If Next StockValue 'Now all the eligible cells have been added to the CellsToBlink variable 'Change the cells's background colour to red then white with a 1 second interval For I = 1 To 5 'do this five time CellsToBlink.Interior.Color = vbRed Application.Wait Now + TimeValue("00:00:01") CellsToBlink.Interior.Color = vbWhite Application.Wait Now + TimeValue("00:00:01") Next I 'Once the blinking is over change any eligible cell's background colour to red CellsToBlink.Interior.Color = vbRed End If End Sub

Download VBA Code File - Cllick here