| 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 | |||
Hybrid Mode
