Copy line if deletes my filter

[techker]

Hey guys, im going nuts on this lol
im an android programmer with litle experience in VBA..

i have a sheet called MONDAY that has a column(E) with a filter for status(working,off,vacation..)

i need to take the rows with status working to another sheet(copy paste)

it works..but it deletes the filter i have on the MONDAY page?

Please Login or Register  to view this content.

[karmapala]

Sorry if I'm not helping.
I just wonder what do you mean with this ?

it deletes the filter i have on the MONDAY page

Do you mean all the rows of data with status "working" gone ?

btw, have you checked in case the Monday sheet is still in filtering state ?

is it possible to add the sheet name before the paste? cause i have multiple status that i would paste in one sheet

If you mean create a new sheet and name this new sheet, I think it's possible.
But then you do it "on the go". So there is no Set wsO = Sheets("REPORT"), line.

Please Login or Register  to view this content.

What is the value of lrD ?

[dangelor]

You are turning the filter off with this line...

Please Login or Register  to view this content.

[techker]

You are turning the filter off with this line...

Please Login or Register  to view this content.

correct but the filter apply the name i need then stays if i try to look for another value it does not show since filter is activated with the last value?

[techker]

Sorry if I'm not helping.
I just wonder what do you mean with this ?

Do you mean all the rows of data with status "working" gone ?

btw, have you checked in case the Monday sheet is still in filtering state ?

If you mean create a new sheet and name this new sheet, I think it's possible.
But then you do it "on the go". So there is no Set wsO = Sheets("REPORT"), line.

Please Login or Register  to view this content.

What is the value of lrD ?

correct the sheet MONDAY has a field called status that you select what is the status of the employee.. like working , vaca...
oups forgot to add it

lrD = ws0.Cells(Rows.Count, "A").End(xlUp).Row

[dangelor]

Instead of the 2nd

Please Login or Register  to view this content.

try using

Please Login or Register  to view this content.

[techker]

cool il try is there a way to validate the

Please Login or Register  to view this content.

[dangelor]

Not sure what you mean by validate?

Please Login or Register  to view this content.

[techker]

script works.thx! validation is for if there is no workers on Vacation to show nothing...cause now it just copies all ..

[dangelor]

You're welcome. Glad to help!