ChristineJ
Well-known Member
- Joined
- May 18, 2009
- Messages
- 761
- Office Version
- 365
- Platform
- Windows
This is a short excerpt of code that relates to row 16. I need to repeat the same thing for other rows. The column letters will not change.
Is it possible to make the "16" throughout the code a variable so I can call the Review macro and enter in the row number?
Is it possible to make the "16" throughout the code a variable so I can call the Review macro and enter in the row number?
Code:
Sub Review()
Range("P16").ClearComments
Call Condo("P16", "CC16")
Range("P16").Offset(0, 3).Formula = "=FORMULATEXT(CF16)"
If Range("P16").Value = Range("CF16").Value Then
Range("P16").Offset(0, 1).Value = " " & ChrW(&H2713)
If IsNumeric(Range("P16").Formula) = True Then
Range("CG16").Value = "X"
Range("CE16").Value = 2
Else
If IsNumeric(Right(Range("P16").Formula, Len(Range("P16").Formula) - 1)) Then
Range("CG16").Value = "X" & vbCrLf & Range("CC16").Value
Range("CE16").Value = 2
Else
If InStr(Range("P16").Formula, "$") > 0 Then
Range("CI16").Value = "NO"
End If