Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert new ROW if cell equals value
Any guidance would be greatly appreciated. Im trying insert a row if a cell
value is equal to a number, and then copy that value to a cell in the new row .. For example: if A1=x then insert a row between row 1 and 2 and copy the value of A1 into B2 of the inserted row. Thank you very much whoever can help! A B C D 1 x datae .25 0 <Insert new row here 2 stuff moredata .20 2.1 3 other pcs 2.1 0 Ive got this code thus far: Sub testme() Dim FirstRow As Long Dim LastRow As Long Dim iRow As Long Dim wks As Worksheet Set wks = Worksheets("sheet1") With wks FirstRow = 1 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For iRow = LastRow To FirstRow Step -1 If LCase(.Cells(iRow, "A").Value) = LCase("x") Then .Rows(iRow + 1).EntireRow.Insert End If Next iRow End With |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert new ROW if cell equals value
Hi,
Inserting the rows is explained well enough but I'm confused about what and where to paste. Try this for a start:- Sub inserrows() x = 9 mycolumn = "A" For i = Cells(Rows.Count, mycolumn).End(xlUp).Row To 1 Step -1 If Cells(i, mycolumn) = 9 Then Rows(i + 1).Insert Cells(i, mycolumn).Offset(1, 1).Value = x End If Next i End Sub "Jeremn" wrote: Any guidance would be greatly appreciated. Im trying insert a row if a cell value is equal to a number, and then copy that value to a cell in the new row . For example: if A1=x then insert a row between row 1 and 2 and copy the value of A1 into B2 of the inserted row. Thank you very much whoever can help! A B C D 1 x datae .25 0 <Insert new row here 2 stuff moredata .20 2.1 3 other pcs 2.1 0 Ive got this code thus far: Sub testme() Dim FirstRow As Long Dim LastRow As Long Dim iRow As Long Dim wks As Worksheet Set wks = Worksheets("sheet1") With wks FirstRow = 1 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For iRow = LastRow To FirstRow Step -1 If LCase(.Cells(iRow, "A").Value) = LCase("x") Then .Rows(iRow + 1).EntireRow.Insert End If Next iRow End With |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert new ROW if cell equals value
Hi Mike,
Thank you for your reply, let me try and explaine again. Now that i've inserted a row based on a specific value in column A, how can I copy that vaule into the new row in column B? Does this make sense? Thanks again for your help!!! "Mike H" wrote: Hi, Inserting the rows is explained well enough but I'm confused about what and where to paste. Try this for a start:- Sub inserrows() x = 9 mycolumn = "A" For i = Cells(Rows.Count, mycolumn).End(xlUp).Row To 1 Step -1 If Cells(i, mycolumn) = 9 Then Rows(i + 1).Insert Cells(i, mycolumn).Offset(1, 1).Value = x End If Next i End Sub "Jeremn" wrote: Any guidance would be greatly appreciated. Im trying insert a row if a cell value is equal to a number, and then copy that value to a cell in the new row . For example: if A1=x then insert a row between row 1 and 2 and copy the value of A1 into B2 of the inserted row. Thank you very much whoever can help! A B C D 1 x datae .25 0 <Insert new row here 2 stuff moredata .20 2.1 3 other pcs 2.1 0 Ive got this code thus far: Sub testme() Dim FirstRow As Long Dim LastRow As Long Dim iRow As Long Dim wks As Worksheet Set wks = Worksheets("sheet1") With wks FirstRow = 1 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For iRow = LastRow To FirstRow Step -1 If LCase(.Cells(iRow, "A").Value) = LCase("x") Then .Rows(iRow + 1).EntireRow.Insert End If Next iRow End With |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert new ROW if cell equals value
Sorry Mike,
That worked perfectly!! "Jeremn" wrote: Hi Mike, Thank you for your reply, let me try and explaine again. Now that i've inserted a row based on a specific value in column A, how can I copy that vaule into the new row in column B? Does this make sense? Thanks again for your help!!! "Mike H" wrote: Hi, Inserting the rows is explained well enough but I'm confused about what and where to paste. Try this for a start:- Sub inserrows() x = 9 mycolumn = "A" For i = Cells(Rows.Count, mycolumn).End(xlUp).Row To 1 Step -1 If Cells(i, mycolumn) = 9 Then Rows(i + 1).Insert Cells(i, mycolumn).Offset(1, 1).Value = x End If Next i End Sub "Jeremn" wrote: Any guidance would be greatly appreciated. Im trying insert a row if a cell value is equal to a number, and then copy that value to a cell in the new row . For example: if A1=x then insert a row between row 1 and 2 and copy the value of A1 into B2 of the inserted row. Thank you very much whoever can help! A B C D 1 x datae .25 0 <Insert new row here 2 stuff moredata .20 2.1 3 other pcs 2.1 0 Ive got this code thus far: Sub testme() Dim FirstRow As Long Dim LastRow As Long Dim iRow As Long Dim wks As Worksheet Set wks = Worksheets("sheet1") With wks FirstRow = 1 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For iRow = LastRow To FirstRow Step -1 If LCase(.Cells(iRow, "A").Value) = LCase("x") Then .Rows(iRow + 1).EntireRow.Insert End If Next iRow End With |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert new ROW if cell equals value
How do I set "X" to any value greater than 0? I tried x = not null and X 0
but neither worked??? "Jeremn" wrote: Sorry Mike, That worked perfectly!! "Jeremn" wrote: Hi Mike, Thank you for your reply, let me try and explaine again. Now that i've inserted a row based on a specific value in column A, how can I copy that vaule into the new row in column B? Does this make sense? Thanks again for your help!!! "Mike H" wrote: Hi, Inserting the rows is explained well enough but I'm confused about what and where to paste. Try this for a start:- Sub inserrows() x = 9 mycolumn = "A" For i = Cells(Rows.Count, mycolumn).End(xlUp).Row To 1 Step -1 If Cells(i, mycolumn) = 9 Then Rows(i + 1).Insert Cells(i, mycolumn).Offset(1, 1).Value = x End If Next i End Sub "Jeremn" wrote: Any guidance would be greatly appreciated. Im trying insert a row if a cell value is equal to a number, and then copy that value to a cell in the new row . For example: if A1=x then insert a row between row 1 and 2 and copy the value of A1 into B2 of the inserted row. Thank you very much whoever can help! A B C D 1 x datae .25 0 <Insert new row here 2 stuff moredata .20 2.1 3 other pcs 2.1 0 Ive got this code thus far: Sub testme() Dim FirstRow As Long Dim LastRow As Long Dim iRow As Long Dim wks As Worksheet Set wks = Worksheets("sheet1") With wks FirstRow = 1 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For iRow = LastRow To FirstRow Step -1 If LCase(.Cells(iRow, "A").Value) = LCase("x") Then .Rows(iRow + 1).EntireRow.Insert End If Next iRow End With |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert new ROW if cell equals value
Hi,
Not tested but this should do it Sub inserrows() x = 9 mycolumn = "A" For i = Cells(Rows.Count, mycolumn).End(xlUp).Row To 1 Step -1 If Cells(i, mycolumn) 0 Then Rows(i + 1).Insert Cells(i, mycolumn).Offset(1, 1).Value = Cells(i, mycolumn).value End If Next i End Sub Mike "Jeremn" wrote: How do I set "X" to any value greater than 0? I tried x = not null and X 0 but neither worked??? "Jeremn" wrote: Sorry Mike, That worked perfectly!! "Jeremn" wrote: Hi Mike, Thank you for your reply, let me try and explaine again. Now that i've inserted a row based on a specific value in column A, how can I copy that vaule into the new row in column B? Does this make sense? Thanks again for your help!!! "Mike H" wrote: Hi, Inserting the rows is explained well enough but I'm confused about what and where to paste. Try this for a start:- Sub inserrows() x = 9 mycolumn = "A" For i = Cells(Rows.Count, mycolumn).End(xlUp).Row To 1 Step -1 If Cells(i, mycolumn) = 9 Then Rows(i + 1).Insert Cells(i, mycolumn).Offset(1, 1).Value = x End If Next i End Sub "Jeremn" wrote: Any guidance would be greatly appreciated. Im trying insert a row if a cell value is equal to a number, and then copy that value to a cell in the new row . For example: if A1=x then insert a row between row 1 and 2 and copy the value of A1 into B2 of the inserted row. Thank you very much whoever can help! A B C D 1 x datae .25 0 <Insert new row here 2 stuff moredata .20 2.1 3 other pcs 2.1 0 Ive got this code thus far: Sub testme() Dim FirstRow As Long Dim LastRow As Long Dim iRow As Long Dim wks As Worksheet Set wks = Worksheets("sheet1") With wks FirstRow = 1 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For iRow = LastRow To FirstRow Step -1 If LCase(.Cells(iRow, "A").Value) = LCase("x") Then .Rows(iRow + 1).EntireRow.Insert End If Next iRow End With |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert new ROW if cell equals value
Hey Mike,
Thanks again for your wisdom! It's very much appreciated. Happy Holidays. Regards, JereH "Mike H" wrote: Hi, Not tested but this should do it Sub inserrows() x = 9 mycolumn = "A" For i = Cells(Rows.Count, mycolumn).End(xlUp).Row To 1 Step -1 If Cells(i, mycolumn) 0 Then Rows(i + 1).Insert Cells(i, mycolumn).Offset(1, 1).Value = Cells(i, mycolumn).value End If Next i End Sub Mike "Jeremn" wrote: How do I set "X" to any value greater than 0? I tried x = not null and X 0 but neither worked??? "Jeremn" wrote: Sorry Mike, That worked perfectly!! "Jeremn" wrote: Hi Mike, Thank you for your reply, let me try and explaine again. Now that i've inserted a row based on a specific value in column A, how can I copy that vaule into the new row in column B? Does this make sense? Thanks again for your help!!! "Mike H" wrote: Hi, Inserting the rows is explained well enough but I'm confused about what and where to paste. Try this for a start:- Sub inserrows() x = 9 mycolumn = "A" For i = Cells(Rows.Count, mycolumn).End(xlUp).Row To 1 Step -1 If Cells(i, mycolumn) = 9 Then Rows(i + 1).Insert Cells(i, mycolumn).Offset(1, 1).Value = x End If Next i End Sub "Jeremn" wrote: Any guidance would be greatly appreciated. Im trying insert a row if a cell value is equal to a number, and then copy that value to a cell in the new row . For example: if A1=x then insert a row between row 1 and 2 and copy the value of A1 into B2 of the inserted row. Thank you very much whoever can help! A B C D 1 x datae .25 0 <Insert new row here 2 stuff moredata .20 2.1 3 other pcs 2.1 0 Ive got this code thus far: Sub testme() Dim FirstRow As Long Dim LastRow As Long Dim iRow As Long Dim wks As Worksheet Set wks = Worksheets("sheet1") With wks FirstRow = 1 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For iRow = LastRow To FirstRow Step -1 If LCase(.Cells(iRow, "A").Value) = LCase("x") Then .Rows(iRow + 1).EntireRow.Insert End If Next iRow End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
If a cell equals _, at the next row that equals _, return value fr | Excel Worksheet Functions | |||
If cell is left blank, or equals zero, then cell equals a different cell | Excel Discussion (Misc queries) | |||
Insert rows (1 to 4) if the cell value equals a fixed word | Excel Discussion (Misc queries) | |||
custom filter does not work when selecting 'equals' X AND 'equals' | Excel Discussion (Misc queries) | |||
Can I change the Insert Function button to an equals sign? | Excel Discussion (Misc queries) |