Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
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
|Vlookup for in-between dates||4||37|
|excel 2016 program to loop through scripts to apply filename||2||19|
|Data in Rows to be converted into single row||9||39|
|Excel format formula for currency||15||22|