If Column M is less than 15
 

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

If Column M is less than 15
 

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

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