How to copy a row from one sheet to another if the number a column D1 greater than 0

So you want all rows from the sheets other than Stock, Staff ID and Scan Sheet to be copied to Kit Outstanding? Any other sheets to be excluded?

Try this code -

Please Login or Register  to view this content.

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

1. Once the kit numbers have been changed to 0 the line in kit outstanding remains with 0 but it would be great if the row was deleted from kit outstanding when the number in the other sheet is changed to 0.

In this case, it will be good that you re-run the macro each time changes are done to the sheets.

I have put a condition stating that if the cell in column D in the sheets is not blank, then move it to the KIT O/S sheet. Should i change it to if the cell is not = 0?

Can the ranges be moved easily so that i can add an initial column in A and move the original columns to B,C,D and E respectively.

Which ranges are you talking about? The one in Kit O/S sheet or in the other sheets?

Updated code

Please Login or Register  to view this content.

I have put the condition that it should check if the cell is not equal to 0 and not blank too. I found a blank cell in sheet JG so i put it in. Let me know if you need it removed.

I removed the part checking for blank. Updated code above.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.