About Us

Don Guillett

Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Learn-more" wrote in message
...
Hi Don,

It really works great

Thanks.

"Don Guillett" wrote:

I sent a workbook with

Sub getadvfilter()
On Error Resume Next
Sheets("sheet2").Range("a3:d100").ClearContents
With Sheets("sheet1")
lr = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:D" & lr).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("Sheet2").Range("A1:C2"), Unique:=True 'False
.Range("A2:D" & lr).SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Range("a3")
.ShowAllData
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a2:c2")) Is Nothing Then Exit Sub
getadvfilter
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
Send your workbook to my address below along with a complete
explanation

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Learn-more" wrote in message
...
Hi Don,
Finally got it work but need to have Row1 of Sheet1 (date) blank or
put
in a
heading, it will always display in Sheet2 or even mess up the display.
Not
sure why.

Thanks a lot.

"Don Guillett" wrote:

A B C
D
apple one 25
Apple one Mon 1
Apple one Thu 6
Apple one Sat 8
Apple one Mon 10

I set up the destination sheet as above with criteria on row 2.
Assigned
the
macro to a shape and fired from there. If all else fails, send your
workbook
to my address below.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Learn-more" wrote in message
...
Hi Don,
I think that's what I want, however, as my VBA knowledge is still
limited,
as I run the code, it come back with Run-time error "9", Subscript
out
of
range. I print out the help and tried a few things but still not
get
it
right.
Any idea why and how to fix it?

Thanks for helping.

"Don Guillett" wrote:

Data on sheet 1. Sheet 2 has headers on row 1 and criteria on row
2.
Fire
from sheet 2

sub getdatatoothesheet()
With Sheets("sheet1")
lr = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("a1:d" & lr).AutoFilter Field:=1, Criteria1:=Range("a2")
'
"Apple"
.Range("a1:d" & lr).AutoFilter Field:=2, Criteria1:=Range("b2")
'
"One"
.Range("a2:d" & lr).Copy Sheets("sheet2").Range("a3")
.Range("a1:d" & lr).AutoFilter
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Learn-more" wrote in
message
...
I know only a little about using VBA and now have a problem not
sure
how
to
work it out. I need to display some records in a new sheet
according to
some
criteria,

Example in Sheet A
A B C D
1 Apple one Mon 1
2 Banana two Tue 2
3 Apple two Wed 5
4 Apple one Thu 6

Say I need to display in Sheet B the records that satisfy
A=Apple
and
B=one
and also with a total for D

I know how to use ComboBox etc to crate the list but dont know
how
to
make
the selection and move to a new sheet.

Can anyone tell me how or show me some web site that I can find
some
examples.
Thanks so much.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Record dates based on criteria	HappyDaddy	Excel Worksheet Functions	7	August 9th 08 02:18 PM
Display of Record Set	Syed Haider Ali[_26_]	Excel Programming	3	October 19th 05 09:49 AM
Display unique record	BBTMAMA	Excel Discussion (Misc queries)	3	September 11th 05 03:40 PM
Mouse over Record Display	Fable[_18_]	Excel Programming	0	September 18th 04 07:09 AM
record of records count for display...	BruceJ[_2_]	Excel Programming	0	November 11th 03 10:06 PM

Menu

About Us