[حل شده] اداغام چند سلول متنی بر اساس یک شرط در یک سلول دیگر

[nima6223]

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

یک فایل دیتایی دارم که حدودا 2000 رکورد داره و من میخوام :
1-جمع هر کالا در یک شیت دیگر قرار گیرد
2-در یک سلول مقابل جمع در هر ردیف شماره کلیه درخواست کنندگان اون کالا درج بشود
نمونه فایل را پیوست کردم

[saed.rasa]

سلام

به انجمن محبوب اکسل ایران خوش آمدید!
پیوت تیبل پیشنهاد می شود

[nima6223]

سلام ممنون از محبت شما
خیلی تشکر میکنم از زحماتتون
در فایل بالا اگر امکانش هست با ماکرو یا کد راهنمایی بفرمایید
چون من میخواهم شماره پروژه ها برای هر کالا در یک سلول قرار گیرد
مثال برای بیل جمع تعداد کالا 25 تا و در سلول بعدی آن ردیف تمام شماره پروژه هایی که آن کالا را لازم دارند درج گردد

[nima6223]

سلام

به انجمن محبوب اکسل ایران خوش آمدید!
پیوت تیبل پیشنهاد می شود

سلام ممنون از محبت شما

خیلی تشکر میکنم از زحماتتون
در فایل بالا اگر امکانش هست با ماکرو یا کد راهنمایی بفرمایید
چون من میخواهم شماره پروژه ها برای هر کالا در یک سلول قرار گیرد
مثال برای بیل جمع تعداد کالا 25 تا و در سلول بعدی آن ردیف تمام شماره پروژه هایی که آن کالا را لازم دارند درج گردد

[iranweld]

با سلام

فایل پیوست را بررسی کنید

Sub test()

Dim list1 As New Collection

k1 = 0

k2 = 0

z1 = Sheets("data").Cells(Sheets("data").Rows.Count, "b").End(xlUp).Row

z2 = Sheets("out").Cells(Sheets("data").Rows.Count, "b").End(xlUp).Row

For j = 2 To z2

For i = 2 To z1

kk = Application.CountIf(Sheets("data").Range("B1:b" & z1), Sheets("data").Range("B" & i))


If Sheets("out").Range("a" & j) = Sheets("data").Range("c" & i) Then

list1.Add Sheets("data").Range("b" & i)

k2 = k2 + 1

If k2 = kk Then Exit For

End If

Next i

For k = 1 To list1.Count

If Len(xx) = 0 Then

xx = list1.Item(k)

Else

xx = xx & " " & list1.Item(k)

End If

Next k

Sheets("out").Range("c" & j) = xx

Set list1 = Nothing

xx = ""

Next j

Sheets("out").Select

End Sub 

[iranweld]

این فایل هم لیست بدون تکرار نام پروژه برای یک آیتم مشخص

[nima6223]

این فایل هم لیست بدون تکرار نام پروژه برای یک آیتم مشخص

سلام وقت بخیر
خدانگهدارتون باشه
واقعا دست مریزاد
کارتون خیلی عالیه ..ارزوی موفیقت براتون دارم

[saed.rasa]

سلام

اگر مشکل تان حل شده است در پست اول تیک سبز رنگ «حل شد» را بزنید لطفا
مرسی

[nima6223]

سلام

اگر مشکل تان حل شده است در پست اول تیک سبز رنگ «حل شد» را بزنید لطفا
مرسی

صمن تشکر ویژه از شما و همکاران وسایت خوبتون
فقط چند مورد عرض کنم به خدمت شما :
1- لیتس در حدود 5000 رکورد سرعت انجام کار با تابعی که حضرتعالی زحمت کشیدین یه مقداری پایین هست و سیستم هنگ میکندمحبت میکنید راهکاری بیان بفرمایید
2-اگر فایل ما دارای چندین ستون باشد و بخواهیم ستون های مورد نظر برای این هدف را در تابع معرفی نماییم به چه شکلی این کار را باید انجام داد
فایلی که برای شما فرستادم به صورت مثال و تعداد سه ستون بوده در حالیکه که فایل اصلی پروژه شاید بیش از 30 ستون باشد و ستون های هدف پشت سر هم نبوده
برای مثال فایل فرستاده شده برای شما کلا سه ستون دارد در حالی که ستون اول در فایل اصلی ممکن است ستون سوم و ستون دیگر در فایل اصی ستون 10 باشد و غیره
این را چطور آدرس دهی نمایم محبت میکنید راهنمایی بفرمایید