ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Another Filter Question (https://www.excelbanter.com/excel-programming/373470-another-filter-question.html)

GregR

Another Filter Question
 
Sorry started this problem in another thread and didn't realize
subject was the same. I have a sheet with a column ("T) that is
conditionally filtered, with this
filter =OR($T8-$S825000,$T8/$S8120%). I want to copy the cells that
meet this criteria to a new sheet. I can't quite work out the script
for the criteria. Your help is appreciated. TIA

Greg


Tom Ogilvy

Another Filter Question
 
If I understand you correctly, you already have column T filtered with a
Data=Filter =Autofilter where you have chosen True in the dropdown. then
On the chance that you don't know this:

Select all the data and do edit=copy, then goto the destination and do
Edit=paste

Only the visible rows will be pasted.

with code

Sub copyVisible()
Activsheet.Autofilter.Range.Copy Worksheets("Sheet2").Range("A1")
End Sub


--
Regards,
Tom Ogilvy


"GregR" wrote in message
oups.com...
Sorry started this problem in another thread and didn't realize
subject was the same. I have a sheet with a column ("T) that is
conditionally filtered, with this
filter =OR($T8-$S825000,$T8/$S8120%). I want to copy the cells that
meet this criteria to a new sheet. I can't quite work out the script
for the criteria. Your help is appreciated. TIA

Greg




GregR

Another Filter Question
 
Tom, sorry for the confusion, no I do not have them filtered already,
they are however conditionally formatted with the criteria. What I
would like, is code to copy the rows based on the conditionally
formatted data. Somehow, I've got to apply the conditionally formatted
criteria to a filtered criteria. TIA

Greg
Tom Ogilvy wrote:
If I understand you correctly, you already have column T filtered with a
Data=Filter =Autofilter where you have chosen True in the dropdown. then
On the chance that you don't know this:

Select all the data and do edit=copy, then goto the destination and do
Edit=paste

Only the visible rows will be pasted.

with code

Sub copyVisible()
Activsheet.Autofilter.Range.Copy Worksheets("Sheet2").Range("A1")
End Sub


--
Regards,
Tom Ogilvy


"GregR" wrote in message
oups.com...
Sorry started this problem in another thread and didn't realize
subject was the same. I have a sheet with a column ("T) that is
conditionally filtered, with this
filter =OR($T8-$S825000,$T8/$S8120%). I want to copy the cells that
meet this criteria to a new sheet. I can't quite work out the script
for the criteria. Your help is appreciated. TIA

Greg



Tom Ogilvy

Another Filter Question
 
Guess you threw me off when you said

column ("T) that is
conditionally filtered, with this


You just need to use the same condition to filter your data.

Dave gave you the instructions - however it appears he assumed that column T
is a dummy column. I believe based on your latest that you will have to
create a dummy column with your conditional formatting formula. Then apply
the filter to that column.

--
Regards,
Tom Ogilvy


--
Regards,
Tom Ogilvy



"GregR" wrote:

Tom, sorry for the confusion, no I do not have them filtered already,
they are however conditionally formatted with the criteria. What I
would like, is code to copy the rows based on the conditionally
formatted data. Somehow, I've got to apply the conditionally formatted
criteria to a filtered criteria. TIA

Greg
Tom Ogilvy wrote:
If I understand you correctly, you already have column T filtered with a
Data=Filter =Autofilter where you have chosen True in the dropdown. then
On the chance that you don't know this:

Select all the data and do edit=copy, then goto the destination and do
Edit=paste

Only the visible rows will be pasted.

with code

Sub copyVisible()
Activsheet.Autofilter.Range.Copy Worksheets("Sheet2").Range("A1")
End Sub


--
Regards,
Tom Ogilvy


"GregR" wrote in message
oups.com...
Sorry started this problem in another thread and didn't realize
subject was the same. I have a sheet with a column ("T) that is
conditionally filtered, with this
filter =OR($T8-$S825000,$T8/$S8120%). I want to copy the cells that
meet this criteria to a new sheet. I can't quite work out the script
for the criteria. Your help is appreciated. TIA

Greg




GregR

Another Filter Question
 
Tom, appreciate the answer that I was afraid of. Thanks again

Greg
Tom Ogilvy wrote:
Guess you threw me off when you said

column ("T) that is
conditionally filtered, with this


You just need to use the same condition to filter your data.

Dave gave you the instructions - however it appears he assumed that column T
is a dummy column. I believe based on your latest that you will have to
create a dummy column with your conditional formatting formula. Then apply
the filter to that column.

--
Regards,
Tom Ogilvy


--
Regards,
Tom Ogilvy



"GregR" wrote:

Tom, sorry for the confusion, no I do not have them filtered already,
they are however conditionally formatted with the criteria. What I
would like, is code to copy the rows based on the conditionally
formatted data. Somehow, I've got to apply the conditionally formatted
criteria to a filtered criteria. TIA

Greg
Tom Ogilvy wrote:
If I understand you correctly, you already have column T filtered with a
Data=Filter =Autofilter where you have chosen True in the dropdown. then
On the chance that you don't know this:

Select all the data and do edit=copy, then goto the destination and do
Edit=paste

Only the visible rows will be pasted.

with code

Sub copyVisible()
Activsheet.Autofilter.Range.Copy Worksheets("Sheet2").Range("A1")
End Sub


--
Regards,
Tom Ogilvy


"GregR" wrote in message
oups.com...
Sorry started this problem in another thread and didn't realize
subject was the same. I have a sheet with a column ("T) that is
conditionally filtered, with this
filter =OR($T8-$S825000,$T8/$S8120%). I want to copy the cells that
meet this criteria to a new sheet. I can't quite work out the script
for the criteria. Your help is appreciated. TIA

Greg





Dave Peterson

Another Filter Question
 
You're right.

I read "conditional filtered" as using data|filter|autofilter, not conditional
formatting.



Tom Ogilvy wrote:

Guess you threw me off when you said

column ("T) that is
conditionally filtered, with this


You just need to use the same condition to filter your data.

Dave gave you the instructions - however it appears he assumed that column T
is a dummy column. I believe based on your latest that you will have to
create a dummy column with your conditional formatting formula. Then apply
the filter to that column.

--
Regards,
Tom Ogilvy

--
Regards,
Tom Ogilvy

"GregR" wrote:

Tom, sorry for the confusion, no I do not have them filtered already,
they are however conditionally formatted with the criteria. What I
would like, is code to copy the rows based on the conditionally
formatted data. Somehow, I've got to apply the conditionally formatted
criteria to a filtered criteria. TIA

Greg
Tom Ogilvy wrote:
If I understand you correctly, you already have column T filtered with a
Data=Filter =Autofilter where you have chosen True in the dropdown. then
On the chance that you don't know this:

Select all the data and do edit=copy, then goto the destination and do
Edit=paste

Only the visible rows will be pasted.

with code

Sub copyVisible()
Activsheet.Autofilter.Range.Copy Worksheets("Sheet2").Range("A1")
End Sub


--
Regards,
Tom Ogilvy


"GregR" wrote in message
oups.com...
Sorry started this problem in another thread and didn't realize
subject was the same. I have a sheet with a column ("T) that is
conditionally filtered, with this
filter =OR($T8-$S825000,$T8/$S8120%). I want to copy the cells that
meet this criteria to a new sheet. I can't quite work out the script
for the criteria. Your help is appreciated. TIA

Greg




--

Dave Peterson

GregR

Another Filter Question
 
Dave, as I learn from you and Tom, maybe you could throw in some
english lessons as well. TIA

Greg
Dave Peterson wrote:
You're right.

I read "conditional filtered" as using data|filter|autofilter, not conditional
formatting.



Tom Ogilvy wrote:

Guess you threw me off when you said

column ("T) that is
conditionally filtered, with this


You just need to use the same condition to filter your data.

Dave gave you the instructions - however it appears he assumed that column T
is a dummy column. I believe based on your latest that you will have to
create a dummy column with your conditional formatting formula. Then apply
the filter to that column.

--
Regards,
Tom Ogilvy

--
Regards,
Tom Ogilvy

"GregR" wrote:

Tom, sorry for the confusion, no I do not have them filtered already,
they are however conditionally formatted with the criteria. What I
would like, is code to copy the rows based on the conditionally
formatted data. Somehow, I've got to apply the conditionally formatted
criteria to a filtered criteria. TIA

Greg
Tom Ogilvy wrote:
If I understand you correctly, you already have column T filtered with a
Data=Filter =Autofilter where you have chosen True in the dropdown. then
On the chance that you don't know this:

Select all the data and do edit=copy, then goto the destination and do
Edit=paste

Only the visible rows will be pasted.

with code

Sub copyVisible()
Activsheet.Autofilter.Range.Copy Worksheets("Sheet2").Range("A1")
End Sub


--
Regards,
Tom Ogilvy


"GregR" wrote in message
oups.com...
Sorry started this problem in another thread and didn't realize
subject was the same. I have a sheet with a column ("T) that is
conditionally filtered, with this
filter =OR($T8-$S825000,$T8/$S8120%). I want to copy the cells that
meet this criteria to a new sheet. I can't quite work out the script
for the criteria. Your help is appreciated. TIA

Greg




--

Dave Peterson



Dave Peterson

Another Filter Question
 
I don't think it would help. I read what I want--not what the user wrote.

(And I read a message that I posted earlier today and saw about 3 grammatical
errors in the first sentence. But now, I just shake my head and sigh--instead
of posting an "English" version of what I meant! <vbg)

GregR wrote:

Dave, as I learn from you and Tom, maybe you could throw in some
english lessons as well. TIA

Greg
Dave Peterson wrote:
You're right.

I read "conditional filtered" as using data|filter|autofilter, not conditional
formatting.



Tom Ogilvy wrote:

Guess you threw me off when you said

column ("T) that is
conditionally filtered, with this

You just need to use the same condition to filter your data.

Dave gave you the instructions - however it appears he assumed that column T
is a dummy column. I believe based on your latest that you will have to
create a dummy column with your conditional formatting formula. Then apply
the filter to that column.

--
Regards,
Tom Ogilvy

--
Regards,
Tom Ogilvy

"GregR" wrote:

Tom, sorry for the confusion, no I do not have them filtered already,
they are however conditionally formatted with the criteria. What I
would like, is code to copy the rows based on the conditionally
formatted data. Somehow, I've got to apply the conditionally formatted
criteria to a filtered criteria. TIA

Greg
Tom Ogilvy wrote:
If I understand you correctly, you already have column T filtered with a
Data=Filter =Autofilter where you have chosen True in the dropdown. then
On the chance that you don't know this:

Select all the data and do edit=copy, then goto the destination and do
Edit=paste

Only the visible rows will be pasted.

with code

Sub copyVisible()
Activsheet.Autofilter.Range.Copy Worksheets("Sheet2").Range("A1")
End Sub


--
Regards,
Tom Ogilvy


"GregR" wrote in message
oups.com...
Sorry started this problem in another thread and didn't realize
subject was the same. I have a sheet with a column ("T) that is
conditionally filtered, with this
filter =OR($T8-$S825000,$T8/$S8120%). I want to copy the cells that
meet this criteria to a new sheet. I can't quite work out the script
for the criteria. Your help is appreciated. TIA

Greg




--

Dave Peterson


--

Dave Peterson


All times are GMT +1. The time now is 11:19 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com