Aynı stok kodlu olup farklı fiyattan satılan ürünlerin toplanması ve ortalamasının alınması

[yusufeyldz]

Merhaba arkadaşlar,

Aynı stok kodu ile farklı tarihlerde ve farklı fiyatlarda satış yapılmış kodları toplayıp, toplam satış adetini ve ortalama satış tutarını nasıl bulabilirim? Bazı kodlardan 5 farklı fiyatla bazı kodlardan 2 farklı fiyatla satış yapılmış. Ekteki dosyada örnek görebilirsiniz. Şimdiden hepinize çok teşekkür ediyorum

KOD	Adet	Fiyat	Toplam Fiyat
21380488	218	18,5	4033
21380488	80	18,5	1480
21693755	3	75,4	226,2
21834199	4	50,4	201,6
21834205	20	56,95	1139
21834205	30	53,3	1599
21834205	30	53,3	1599
21834210	10	49,7	497
21891328	20	44,5	890
21964429	2	59	118
21983651	50	72,35	3617,5
21983651	300	67	20100
21983655	50	72,35	3617,5
21983655	191	67	12797
22279234	1	390	390
22480372	90	15,5	1395
22480372	90	15	1350
22480372	70	12	840
22480372	10	11	110
22827991	20	195	3900
22827993	20	187	3740
22827993	20	187,76	3755,2
22827995	2	205	410
22827995	3	205	615
22877306	3	200	600
22877307	5	210,25	1051,25
22988765	48	17,3	830,4
23307414	6	28	168
23307414	2	28	56
23385011	48	17,9	859,2
23385011	20	17,9	358
23385011	50	17,9	895
23515329	10	10,5	105
23658092	500	9,65	4825
23841586	7	60,64	424,48
23841586	1	60,64	60,64
23841586	5	45	225
23879441	250	24	6000
23879441	30	24	720
23879451	10	35,25	352,5
23880105	40	18,85	754
23880105	80	18,85	1508
23880105	50	18,85	942,5

 

[yanginci34]

İncelermisiniz.

İndir toplam adet ortalama

Dosyayı indir toplam adet ortalama

dosya.co

 

[yusufeyldz]

İncelermisiniz.

İndir toplam adet ortalama

Dosyayı indir toplam adet ortalama

dosya.co

Sana bu akşam bi dua edeyimde gör Çok teşekkürler.

 

[yanginci34]

Rica ederim kolay gelsin.

 

[Haluk]

VBA ile alternatif;

Sub Test()
    'Haluk - 21/07/2023
    'sa4truss@gmail.com
    
    Dim adoCN As Object, RS As Object
    Dim myFile As String, strSQL As String
    
    myFile = ThisWorkbook.FullName
    
    Set adoCN = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.Recordset")
    
    adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
    adoCN.Properties("Data Source") = myFile
    adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=Yes; IMEX=1"
    adoCN.Open
    
    strSQL = "Select [KOD], Sum([Adet]), Sum([Toplam Fiyat])/Sum([Adet]) From [Sheet1$] Group By [KOD]"
    
    RS.Open strSQL, adoCN
    
    Sheets("Sheet2").Range("A2").CopyFromRecordset RS
    
    Set RS = Nothing
    Set adoCN = Nothing
End Sub

Veriler Sheet1 isimli sayfadaysa, sonuçlar Sheet2 isimli sayfada listelenir...

.