amending code filter & copy data based on dropdown and cells from sheet to another

[abdelfattah]

hello
first of all i have ever issueed this thread in this forum but nobody answer me so i hope here sombody help
bring all data of customers from sheet to another
here i have this code works very well (it brings the specific customer and specific dates ) in sheet "account" from sheet"data"custome = b1 choose customer and b2 from date b3 = to date first of all i would choose from b1 = "all" without choose dates then brings all customers and copy to sheet2 the second when i choose from dropdown "all" an specify dates so it gives me customers which are existed between two dates then copy to sheet2 the third when i choose from b1 the customer without specify dates so it copy all of process relating customer to sheet2
note: it should when i choose in sheet"account" from b1 show the result in sheet "account" before copy to sheet2 moreover ny condition in orginal code supposes staying as it

Sub sama1()
Dim LastR As Long
Dim SText As String
Dim StDate As Date
Dim EndDate As Date
Dim LastR1 As Long
Application.ScreenUpdating = False
Sheets("account").Range("A5:h10000").ClearContents

SText = Sheets("account").Range("B1")
If SText = "" Then SText = "*"
StDate = Sheets("account").Range("B2")
If StDate = 0 Then StDate = WorksheetFunction.Min(Sheets("DATA").Columns(2))
EndDate = Sheets("account").Range("B3")
If EndDate = 0 Then EndDate = WorksheetFunction.Max(Sheets("DATA").Columns(2))
LastR1 = Sheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("DATA").Range("A3:g" & LastR1).AutoFilter Field:=6, Criteria1:=SText
Sheets("DATA").Range("A3:g" & LastR1).AutoFilter Field:=2, Criteria1:=">=" & Format(StDate, "mm/dd/yy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(EndDate, "mm/dd/yy")
LastR = Sheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("DATA").Range("A3:g" & LastR).SpecialCells(xlCellTypeVisible).Copy
Sheets("account").Range("A5").PasteSpecial
Sheets("account").Range("A5").Select
Sheets("DATA").Range("A3:g3").AutoFilter
Application.ScreenUpdating = True
End Sub

thanks

 

[abdelfattah]

sheet "data"

client1.xlsm
	A	B	C	D	E	F	G
2
3	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
4	1	6/29/2020	18,780.00		CLIENT	ALI	INVOICE NO 12345
5	2	6/29/2020	7,500.00	0.00	CLIENT	AYMEN	INVOICE NO 12346
6	3	6/30/2020	18,800.00	0.00	CLIENT	AYMEN	INVOICE NO 12347
7	4	7/2/2020	1,500.00		CLIENT	IBRAHIM	INVOICE NO 12348
8	5	7/4/2020	480.00		CLIENT	MAHMOUD	INVOICE NO 12349
9	6	7/4/2020	37,600.00		CLIENT	AYMEN	INVOICE NO 12350
10	7	7/4/2020		15,000.00	CASH	AYMEN	CASH
11	8	7/8/2020	46,710.00		CLIENT	WALIED	INVOICE 12351
12	9	7/9/2020		20,000.00	CASH	HAMZAH	CASH
13	11	7/8/2020	28,080.00		CLIENT	HAMZAH	INVOICE NO 12352
14	12	7/9/2020	21,740.00		CLIENT	WALIED	INVOICE NO 12353
15	13	7/9/2020		1,550.00	CASH	IBRAHIM	CASH
16	14	4-Jul-20	4,500.00		CLIENT	HASSAN	INVOICE NO 12354
17	15	16-Jul-20	63,750.00		CLIENT	WALIED	INVOICE NO 12355
18	16	16-Jul-20		2,700.00	CASH	AYMEN	CASH
19	17	18-Jul-20		15,000.00	CASH	WALIED	CASH
data

sheet "account"

client1.xlsm
	A	B	C	D	E	F	G
1	NAME
2	FROM	28-Jun-20	FIRST OF DURITION	DEBIT	CREDIT	BALANCE
3	TO	31-Aug-20	0.00	249,440.00	54,250.00	195,190.00
4
5	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
6	1	6/29/2020	18,780.00		CLIENT	ALI	INVOICE NO 12345
7	2	6/29/2020	7,500.00	0.00	CLIENT	AYMEN	INVOICE NO 12346
8	3	6/30/2020	18,800.00	0.00	CLIENT	AYMEN	INVOICE NO 12347
9	4	7/2/2020	1,500.00		CLIENT	IBRAHIM	INVOICE NO 12348
10	5	7/4/2020	480.00		CLIENT	MAHMOUD	INVOICE NO 12349
11	6	7/4/2020	37,600.00		CLIENT	AYMEN	INVOICE NO 12350
12	7	7/4/2020		15,000.00	CASH	AYMEN	CASH
13	8	7/8/2020	46,710.00		CLIENT	WALIED	INVOICE 12351
14	9	7/9/2020		20,000.00	CASH	HAMZAH	CASH
15	11	7/8/2020	28,080.00		CLIENT	HAMZAH	INVOICE NO 12352
16	12	7/9/2020	21,740.00		CLIENT	WALIED	INVOICE NO 12353
17	13	7/9/2020		1,550.00	CASH	IBRAHIM	CASH
18	14	4-Jul-20	4,500.00		CLIENT	HASSAN	INVOICE NO 12354
19	15	16-Jul-20	63,750.00		CLIENT	WALIED	INVOICE NO 12355
20	16	16-Jul-20		2,700.00	CASH	AYMEN	CASH
21	17	18-Jul-20		15,000.00	CASH	WALIED	CASH
account

Cell Formulas
Range	Formula
C3	C3	=IFERROR(VLOOKUP(B1,'C:\Users\OSE\Downloads\[CLIENT.xlsm]Sheet1'!B2:C27,2,0),0)
D3	D3	=SUM(C5:C10000)
E3	E3	=SUM(D6:D10000)
F3	F3	=D3-E3

Cells with Data Validation
Cell	Allow	Criteria
B1	List	=sama1

sheet2: this the result in condition 1

client1.xlsm
	A	B	C	D	E	F	G
1	NAME	ALI
2	FIRST OF DURITION	DEBIT	CREDIT	BALANCE
3	0.00	1,195,510.00	730,910.00	464,600.00
4
5	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
6	1	6/29/2020	18,780.00		CLIENT	ALI	INVOICE NO 12345
7
8
9	NAME	AYMEN
10	FIRST OF DURITION	DEBIT	CREDIT	BALANCE
11	0.00	730,910.00	445,820.00	285,090.00
12
13	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
14	2	6/29/2020	7,500.00	0.00	CLIENT	AYMEN	INVOICE NO 12346
15	3	6/30/2020	18,800.00	0.00	CLIENT	AYMEN	INVOICE NO 12347
16	4	7/4/2020	37,600.00		CLIENT	AYMEN	INVOICE NO 12350
17	5	7/4/2020		15,000.00	CASH	AYMEN	CASH
18	6	16-Jul-20		2,700.00	CASH	AYMEN	CASH
19
20	NAME	IBRAHIM
21	FIRST OF DURITION	DEBIT	CREDIT	BALANCE
22	0.00	428,120.00	238,890.00	189,230.00
23
24	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
25	1	7/2/2020	1,500.00		CLIENT	IBRAHIM	INVOICE NO 12348
26	2	7/9/2020		1,550.00	CASH	IBRAHIM	CASH
27
28
29	NAME	MAHMOUD
30	FIRST OF DURITION	DEBIT	CREDIT	BALANCE
31	0.00	237,340.00	189,280.00	48,060.00
32
33	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
34	1	7/4/2020	480.00		CLIENT	MAHMOUD	INVOICE NO 12349
35
36
37	NAME	WALIED
38	FIRST OF DURITION	DEBIT	CREDIT	BALANCE
39	0.00	189,280.00	47,580.00	141,700.00
40
41	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
42	1	7/8/2020	46,710.00		CLIENT	WALIED	INVOICE 12351
43	2	7/9/2020	21,740.00		CLIENT	WALIED	INVOICE NO 12353
44	3	16-Jul-20	63,750.00		CLIENT	WALIED	INVOICE NO 12355
45	4	18-Jul-20		15,000.00	CASH	WALIED	CASH
46
47	NAME	HAMZAH
48	FIRST OF DURITION	DEBIT	CREDIT	BALANCE
49	0.00	32,580.00	24,500.00	8,080.00
50
51	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
52	1	7/9/2020		20,000.00	CASH	HAMZAH	CASH
53	2	7/8/2020	28,080.00		CLIENT	HAMZAH	INVOICE NO 12352
54
55	NAME	HASSAN
56	FIRST OF DURITION	DEBIT	CREDIT	BALANCE
57	0.00	4,500.00	0.00	4,500.00
58
59	ITEM	DATE	DEBIT	CREDIT	MAIN	MINOR	DESCRIBE
60	1	4-Jul-20	4,500.00		CLIENT	HASSAN	INVOICE NO 12354
sheet2

Cell Formulas
Range	Formula
A3,A57,A49,A39,A31,A22,A11	A3	=IFERROR(VLOOKUP(B1,'C:\Users\OSE\Downloads\[CLIENT.xlsm]Sheet1'!B2:C27,2,0),0)
B57:C57,B49:C49,B39:C39,B31:C31,B22:C22,B11:C11,B3:C3	B3	=SUM(C6:C10000)
D3,D57,D49,D39,D31,D22,D11	D3	=B3-C3

Cells with Data Validation
Cell	Allow	Criteria
B1,B9,B20,B29,B37,B47,B55	List	=sama1