[حل شده] نحوه درج ردیفهای بزرگتر از صفر

[rjfri]

با سلام
جدولی حاوی ستونهای لیست مشتریان که ستونهای مربوط به کالاهای خریداری شده در مقابلش قرار داره دارم.
در شیت دیگر با روش data valid یک مشتری را انتخاب میکنم.
میخوام لیست کالاهای خریداری شده آن مشتری را در این شیت نمایش بده. و فقط برای کالاهایی خرید انجام شده و بعبارتی عدد مربوطه بزرگتر از صفر است
بنحوی که اسم کالای خریداری نشده را نیاورد
لطفا راهنمایی بفرمایید

[iranweld]

با سلام

ساختار جدول خود را تغییر دهید و با فیلتر کردن براحتی مقادیر صفر را حذف کنید. فیلم پیوست را ملاحظه کنید

[rjfri]

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

[iranweld]

در فایل پیوست با پیوت تیبل گزارشگیری انجام شده است

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

[iranweld]

و برای عدم نمایش مقادیر صفر در پیوت تیبل فیلم را ملاحظه کنید

[amir_ts]

با سلام
از فرمول آرایه ای زیر در فایل نمونه استفاده شده است.
ملاحظه کنید .

=IFERROR(INDEX(Sheet1!$A$1:$D$5;MATCH($G$4;Sheet1!$A$1:$A$5;0);SMALL(IF(OFFSET(Sheet1!$B$1;MATCH($G$4;Sheet1!$A$2:$A$5;0);;;3)>0;COLUMN(Sheet1!$B$1:$D$1));COLUMNS($H$4:H4)));"") 

[rjfri]

دوست عزیز با سپاس فراوان از شما
در آخرین فایلی که قرار دادید دقیقا منظورم همین بود اما با شکلی که در این فایل پیوست میباشد. در اینخصوص راهنمایی بفرمائید

[amir_ts]

دوست عزیز با سپاس فراوان از شما
در آخرین فایلی که قرار دادید دقیقا منظورم همین بود اما با شکلی که در این فایل پیوست میباشد. در اینخصوص راهنمایی بفرمائید

تغییرات لازم اعمال شد.

[rjfri]

لطفا در این فایل فرمول نویسی نمایید . ممنونم
در فایل قبلی وقتی تغییرات در فرمول انجام میشود جواب نمیدهد علاوه بر اینکه بر روی فرمول در حالت نمایش انتها و ابتدای آن علامت {} میاورد
بنحویکه بر روی فرمول کلید کنید و حتی هیچ تغییری هم ندهید بازم هم عمل نمیکند
لطفا روی فایل تست فرمول نویسی نمائید

[iranweld]

با سلام

فایل پیوست را بررسی کنید (در هنگام باز شدن Update Link را انتخاب کنید)

Sub TEST()

On Error Resume Next

T = 0

xx = Sheet1.Range("Table1[[#Headers],[äÇã]]").End(xlDown).Row

For I = 1 To xx

If Sheets("report").Range("D6") = Sheet1.Range("BH" & I) Then

Y = Sheet1.Range("BH" & I).Row

T = 1

Exit For

End If

Next

yy = Sheet1.Range("b4", Sheet1.Range("b4").End(xlToRight)).Count - 2

Sheets("report").Range("E10:F" & yy).ClearContents

K = 10

If T = 1 Then

For J = 2 To yy

If Sheet1.Cells(Y, J) > 0 Then

Sheets("report").Range("E" & K) = Sheet1.Cells(3, J)

Sheets("report").Range("F" & K) = Sheet1.Cells(Y, J)

K = K + 1

End If

Next

End If


End Sub 

[amir_ts]

لطفا در این فایل فرمول نویسی نمایید . ممنونم
در فایل قبلی وقتی تغییرات در فرمول انجام میشود جواب نمیدهد علاوه بر اینکه بر روی فرمول در حالت نمایش انتها و ابتدای آن علامت {} میاورد
بنحویکه بر روی فرمول کلید کنید و حتی هیچ تغییری هم ندهید بازم هم عمل نمیکند
لطفا روی فایل تست فرمول نویسی نمائید

با سلام
دوست عزیز برای حجم اطلاعات زیاد برای جلوگیری از خطا و خواناتر شدن فرمول ها از نامگذاری محدوده استفاده کنید.
در فرمول های آرایه ای باید بعد از نوشتن فرمول کلید های ctrl+Shift+Enter رو با هم فشار بدید که در صورتی که خطای ساختاری نداشته باشه علامت {} به ابتدا و انتهای فرمول اضافه میشود.

data=B1:BH109

name=BH1:BH109

=IFERROR(INDEX(data;MATCH($D$6;name;0);SMALL(IF(OFFSET(sheet1!$B$1;MATCH($D$6;name;0)-1;;;58)>0;COLUMN(sheet1!$B$1:$BG$58)-1);ROWS($F$10:F10)));"")

=IFERROR(INDEX(data;3;SMALL(IF(OFFSET(sheet1!$B$1;MATCH($D$6;name;0)-1;;;58)>0;COLUMN(sheet1!$B$1:$BG$58)-1);ROWS($F$10:F10)));"") 

[rjfri]

با سپاس از شما دوستان