Move Row to another Sheet if Specific Cells have Values.

[noveske]

Just want to move an entire row to another sheet once multiple cells have a value.
Sheet 1 - Has the item. Let's say cells H-I have date, method and person.

Once H-1 has values in it, then move to Sheet 2. Into the next blank cell.

If that's not possible, could be if H has a value, then move. To be done manually with a button.

 

[noveske]

Correction: Once H-1 has values in it, then move to Sheet 2. Into the next blank cell.
Should be H-I not H-1.

 

[SQUIDD]

Hi

So you want to copy a row from "sheet1" to "sheet2" if column H has data put in it?

try the below as a start

it copies the row where H has had data put in it.

please be aware though, it will keep copying the same data everytime you change that cell, unless we code in a trap

right click sheet 1 tab and paste this code in it, test on a copy dataset

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
    If Target.Cells > "" Then Rows(Target.Row).Copy Sheets("sheet2").Rows(Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
End Sub

 

[noveske]

Hi

So you want to copy a row from "sheet1" to "sheet2" if column H has data put in it?

try the below as a start

it copies the row where H has had data put in it.

please be aware though, it will keep copying the same data everytime you change that cell, unless we code in a trap

right click sheet 1 tab and paste this code in it, test on a copy dataset

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
    If Target.Cells > "" Then Rows(Target.Row).Copy Sheets("sheet2").Rows(Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
End Sub

Ah. It would be for H2 and on.
It's for tracking an action. H would be a date or who completed it.
So the sheet would have an inventory.

Let's say H5 gets an input of completion.

A5:H5 would be moved to Sheet 2. Entire row.

 

[SQUIDD]

Ah. It would be for H2 and on.
It's for tracking an action. H would be a date or who completed it.
So the sheet would have an inventory.

Let's say H5 gets an input of completion.

A5:H5 would be moved to Sheet 2. Entire row.

I just tested my code, input something into H5 and it copied row 5(entire row) to sheet 2

is that not waht you wanted?

Is your data made up of formula?

Dave

 

[noveske]

I just tested my code, input something into H5 and it copied row 5(entire row) to sheet 2

is that not waht you wanted?

Is your data made up of formula?

Dave

Tested it. Added to move the line. Just need to figure out how to make it when multiple cells contain values. 12, 13, 14.

Tried adding and statements. Failed.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 14 Then
    If Target.Cells > "" Then Rows(Target.Row).Copy Sheets("sheet2").Rows(Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
    Target.EntireRow.Delete
End If
End Sub

 

[SQUIDD]

Tested it. Added to move the line. Just need to figure out how to make it when multiple cells contain values. 12, 13, 14.

Not sure i understand, are you not manually adding the data into the column(changed from 8-14 by the looks)

you want a code to check each row on sheet 1 and move it all over as bulk job to sheet 2 with a button?

 

[SQUIDD]

oh, you man if column 12,13,14 change?

 

[SQUIDD]

you could use

If Target.Column = 14 Or Target.Column = 15 Or Target.Column = 16 Or Target.Column = 17 Then

or

If Target.Column > 13 And Target.Column < 18 Then