پرسش به دست آوردن ترکیبی قیمت سه ستون با هم .

[jafar_palideh]

با سلام .
من یه شیت دارم که تشکیل شده از سه بخش . مواد a و موادb و مواد c
هر کدوم از مواد از یک تامین کننده خریداری میشه (البته فایل اکسل رو گذاشتم)
حالا من میخوام ترکیب قیمت مواد a+b+c رو به همراه قیمتش با نام کننده هاش داشته باشم .
دوستان میتونن راهنمایی کنن که باید چیکار کنم ؟
فایل اکسل رو ضمیمه کردم .

[iranweld]

با سلام

با توجه به قیمت های مختلف مواد a,b,c توسط عرضه کننده های مختلف ،جمع قیمت کدوم عرضه کننده محصول a,b,c بایستی حساب بشه؟
کمترین قیمتها مد نظره؟

[jafar_palideh]

من میخوام که جمع ترکیبی تمامیه تامین کننده هارو داشته باشم .
یعنی ترکیب قیمت تامین کننده ی مواد a با مواد b و c
و در آخر کمترین جمع قیمت هارو سورت شده همراه تامین کننده هاش نشون بده

[jafar_palideh]

دوستان کسی نیست راهنمایی کنه ؟

[iranweld]

سلام برادر

چرا هستیم ، درخواست شما در حد یک پروژه کلی وقت گیر هستش

در فایل پیوست کلیه داده های شما بصورت ستونی زیر هم قرار گرفت
و سپس با دستور vb بصورت از کم به زیاد سورت گردید
و سپس هر یک از داده های aوbوc از کم به زیاد در ستونهای مجاور لیست گردید

[jafar_palideh]

Iranweld عزیز بسیار سپاسگزارم .
ولی این یه گوشه از جدول من بود .
شما ساختار جدول رو بهم زدید و نامرتب شده .
راه دیگه ای سراغ دارید که شکل جدول به هم نخوره .
البته میتونید که مواد رو تویه شیت جداگونه بزارید و نتیجه رو هم در یک شیت جا بندازید .
ممنون

[iranweld]

بدون مشخص بودن اسامی برای بدست آوردن قیمت از کم به زیاد از فرمول ذیل استفاده کنید

=iferror(sum(small($h$4:$h$1000,row(l4)-3),small($e$4:$e$1000,row(l4)-3),small($b$4:$b$1000,row(l4)-3)),"") 

[jafar_palideh]

این که تعداد نتایجش غلط هست .
دقیقا باید به اندازه ی ضرب ستونها پاسخ داشته باشیم .
یعنی میشه 1232 حالت .

[sabertb]

سلام با کمک استاد گرامی آقای Iranweld این فایل رو تهیه کردم امید وارم به کارتون بیاد. 90% کارش و کل ماکرو هاش توسط استاد عزیز نوشته شده من یکم فرمول نویسی کردم فقط در تکمیل فرایند.
من خیلی شلوغش کردم امید وارم اساتید بتونن بهینه ترش رو برای شما بزارند.

[iranweld]

با سلام

ساده شده محاسبات در فایل پیوست ضمیمه شده است

Sub test()

Sheet2.Range("A1:B50000").ClearContents

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Z2 = Sheet1.Cells(Sheet1.Rows.Count, "D").End(xlUp).Row
Z3 = Sheet1.Cells(Sheet1.Rows.Count, "G").End(xlUp).Row

T = 2

Sheet2.Range("A" & 1).Value = "Name"
Sheet2.Range("B" & 1).Value = "Jam"

For i = 3 To Z1
For j = 3 To Z2
For k = 3 To Z3

Sheet2.Range("A" & T).Value = Sheet1.Range("a" & i).Value & " " & Sheet1.Range("D" & j).Value & " " & Sheet1.Range("G" & k).Value
Sheet2.Range("B" & T).Value = Sheet1.Range("B" & i).Value + Sheet1.Range("E" & j).Value + Sheet1.Range("H" & k).Value

T = T + 1

Next: Next: Next


Sheet2.Select

Macro1

End Sub