Rcflife2335
New Member
- Joined
- Feb 15, 2024
- Messages
- 2
- Office Version
- 365
- 2021
- 2019
- Platform
- Windows
Sub MATH ( )
Dim LastROW As Integer Dim shODS As Worksheet
LastROW = Range ("K" & Rows. Count) . End (xlUp) . Row
Set shODS = ThisWorkbook-Worksheets ("ODS")
LastROW = shODS. Cells (Rows. Count, 1) . End (x1Up) .Row
For indx = 2 To LastROW
ShODS. Range ("K" & indx) .Formula = "=IFS (I = 0," & indx & Chr (34) & Chr (34) & ",H > I , "
indx & Chr (34) & "YES" & Chr (34) & ",1 = 1," & Chr (34) & "NO" & Chr (34) & ") "
Next
End Sub
Dim LastROW As Integer Dim shODS As Worksheet
LastROW = Range ("K" & Rows. Count) . End (xlUp) . Row
Set shODS = ThisWorkbook-Worksheets ("ODS")
LastROW = shODS. Cells (Rows. Count, 1) . End (x1Up) .Row
For indx = 2 To LastROW
ShODS. Range ("K" & indx) .Formula = "=IFS (I = 0," & indx & Chr (34) & Chr (34) & ",H > I , "
indx & Chr (34) & "YES" & Chr (34) & ",1 = 1," & Chr (34) & "NO" & Chr (34) & ") "
Next
End Sub