Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Referencing date column A & time column B to get info from column | Excel Discussion (Misc queries) | |||
Search for a column based on the column header and then past data from it to another column in another workbook | Excel Programming | |||
Based on a condition in one column, search for a year in another column, and display data from another column in the same row look | Excel Programming | |||
Based on a condition in one column, search for a year in another column, and display data from another column in the same row look | Excel Discussion (Misc queries) | |||
How can i have all alike product codes in column A be matched with like cities in column B and then add the totals that are in column C | Excel Programming |