Count & Sum Data

[Panoos64]

Hi to everyone, i would to create a vba code so that to count the col "A" by "Terms of Stay" and "SUM in col. "B" for each type its accommodation as my below example. In schedule 1. are the original data and in schedule 2. is the expected result.

Many thanks in advance

Schedule 1.

A/P

A/P

A/P

B/B

B/B

H/B

H/B

H/B

H/B

H/B

H/B

O/T

O/T

<colgroup><col style="mso-width-source:userset;mso-width-alt:3474;width:71pt" width="95"> <col style="mso-width-source:userset;mso-width-alt:3949;width:81pt" width="108"> </colgroup><tbody>
[TD="width: 95"]Terms Stay[/TD]
[TD="width: 108"]Accomodation[/TD]

[TD="align: right"]1262[/TD]

[TD="align: right"]342[/TD]

[TD="align: right"]1400[/TD]

[TD="align: right"]855[/TD]

[TD="align: right"]957[/TD]

[TD="align: right"]1262[/TD]

[TD="align: right"]2304[/TD]

[TD="align: right"]342[/TD]

[TD="align: right"]1970[/TD]

[TD="align: right"]546[/TD]

[TD="align: right"]1274[/TD]

[TD="align: right"]1945[/TD]

[TD="align: right"]2025[/TD]

</tbody>

Schedule 2.

<colgroup><col style="mso-width-source:userset;mso-width-alt:3474;width:71pt" width="95"> <col style="mso-width-source:userset;mso-width-alt:3949;width:81pt" width="108"> </colgroup><tbody>
[TD="width: 95"]Terms Stay[/TD]
[TD="width: 108"]Accomodation[/TD]

[TD="class: xl65"]A/P 3 RMS[/TD]
[TD="align: right"]3004[/TD]

[TD="class: xl65"]B/B 2 RMS[/TD]
[TD="align: right"]1812[/TD]

[TD="class: xl65"]H/B 6 RMS[/TD]
[TD="align: right"]7698[/TD]

[TD="class: xl65"]O/T 2 RMS[/TD]
[TD="align: right"]3970[/TD]

</tbody>

 

[Jonmo1]

Try
=SUMIF($A$3:$A$15,LEFT(D3,3),$B$3:$B$15)

Book1
	A	B	C	D	E
1	Schedule 1.			Schedule 2.
2	Terms Stay	Accomodation		Terms Stay	Accomodation
3	A/P	1262		A/P 3 RMS	3004
4	A/P	342		B/B 2 RMS	1812
5	A/P	1400		H/B 6 RMS	7698
6	B/B	855		O/T 2 RMS	3970
7	B/B	957
8	H/B	1262
9	H/B	2304
10	H/B	342
11	H/B	1970
12	H/B	546
13	H/B	1274
14	O/T	1945
15	O/T	2025
Sheet1

Cell Formulas
Range	Formula
E3	=SUMIF($A$3:$A$15,LEFT(D3,3),$B$3:$B$15)
E4	=SUMIF($A$3:$A$15,LEFT(D4,3),$B$3:$B$15)
E5	=SUMIF($A$3:$A$15,LEFT(D5,3),$B$3:$B$15)
E6	=SUMIF($A$3:$A$15,LEFT(D6,3),$B$3:$B$15)

 

[Panoos64]

Hi Jonmo, the formula is right but it appears result (0) zero. However thanks for your support and your time spent for my project. Is there any VBA code? I think is going to be easier through VBA. Thanks again