If Column M is less than 15
Thanks Mike! This is ideal.
"Mike H" wrote:
Hi,
Dim NativeplumRow As Long
Dim NorthernCatalpa As Long
NativeplumRow = ActiveSheet.Cells(Rows.Count, "M").End(xlUp).Row
For NorthernCatalpa = NativeplumRow To 2 Step -1
If (Cells(NorthernCatalpa, "M") < 15#) Then
Cells(NorthernCatalpa, "L") = "M"
End If
Next NorthernCatalpa
Mike
"Teddy" wrote:
If a row in Column M is less than 15, I would like to put the letter €śM€ť in
the same row of Column L. Below I can delete rows from Column M if they are
less than 15, but I am not sure how to insert the letter €śM€ť in Column L,
without deleting the row. Might you be able to show me how?
Dim NativeplumRow As Long
Dim NorthernCatalpa As Long
NativeplumRow = ActiveSheet.Cells(Rows.Count, "M").End(xlUp).Row
For NorthernCatalpa = NativeplumRow To 2 Step -1
If (Cells(NorthernCatalpa, "M") < 15#) Then
Rows(NorthernCatalpa).EntireRow.Delete
Next NorthernCatalpa
|