Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
What it does in this case is if I have a formual in h that is: =if(f10>g10, 1, 0). This formula is copied down the entire range.
Private Sub Worksheet_Calculate() Dim rngUpdate As Range Dim sFormula As String On Error GoTo NoRangeFound sFormula = "If('" & Me.Name & "'!H10:H1000=1,Row('" & Me.Name & "'!H10:H1000)&"":""&Row('" & Me.Name & "'!H10:H1000))" Set rngUpdate = Me.Range(Join(Filter(Application.Transpose(Evaluate(sFormula)), False, False), ",")) If Not rngUpdate Is Nothing Then Set rngUpdate = Union(rngUpdate, rngUpdate) Intersect(rngUpdate.EntireRow, Columns("I")).Value = 1 Set rngUpdate = Nothing End If NoRangeFound: End Sub
|onOpen. check dates in column, colour background||6||22|
|Input box prompt to specify column letter using VBA||4||16|
|How to hault or freeze parent form when a 2d form is open in vb6||3||20|
|Index Match not working on second pass||7||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!