filter and copy rows into another sheet

[revozero]

Hi there

first time poster, very new to VBA

What im looking to do it writing a VBA procedure (not a function) to do an extraction job, where you first would set the Y/N field for each record manually, once the set is complete with Y/N's i want to then be able to press an active X button of some sort which then moves the records which are marked with a Y into another sheet, but i need to be able to factor in events where some records might be changed to N and then need to be moved back, is this possible? if so how would i write this code?

Thanks

 

[revozero]

Yeah, the only code i have in the workbook at the moment are codes to lock the scroll area of the first page and default open to the sheet aswell

 

[My Aswer Is This]

In post #3 you said it was putting the values in sheets 3 and 4
So that means you know how to install the script and it was working just to the wrong sheet.
So what is wrong with the second script I sent you.

In post #7 you said it did not work but did not explain what it did do.

And the value Y must be a capital Y like in your original post

 

[revozero]

Sorry, in post 3 I meant that I your code you put together for me didn't do anything, and that the relevant sheets are 3 & 4 (as I realised I didn't provide this information), I did get a code working (which I copy and pasted into post 3, i found this elsewhere and edited it abit) but its a very rough code and doesn't entirely do what I need, it copies stuff over to sheet 4 but deletes entries from the originating table in sheet 3

 

[My Aswer Is This]

I need you to follow these instructions and use this script and tell me if it works.

This is a modular script which gets put in a module.
1.Right click on any sheet tab.
2. Choose View Code
3. On the menu choose "Insert"
4. Choose Module
5. Paste in the code
6. Then to run the macro
7. Close that window
8. On the ribbon choose "view"
9. Choose macro and choose the macro named "Sub If_Equals_Y"
10. If you want you can make a button to run the script or a keyboard shortcut.
This script will say "Hello" and that's all.

Sub Hello()
MsgBox "Hello. This Works"
End Sub