گزارش خاص از Table

[hosein.mirjalili]

با سلام و عرض ادب
در فایل پیوست Table داریم که اطلاعات آن با توجه به شرایط تغییر می کنه حال ما گزارش خاصی از Table می خوایم که با Pivot قابل دستیابی نیست یعنی در گزارش جمع گروه بندی شده مقدار موجودی کالا را بر اساس کد انبار و مقدار ثبت شده را بر اساس کد کالا بدون گروه بندی فقط در هر دو صورت مقدار شرط باید برابر 1 باشد و در گزارش مقدار شرط صفر آورده نشود . [با ماکرو می خوایم این اطلاعات بدست بیاد]
ممنون از راهنماییتون

[iranweld]

با سلام

فایل پیوست را ملاحظه بفرمایید
هر چند با پیوت تیبل تهیه گردید، ببنید مطابق خواسته شماست؟

[hosein.mirjalili]

با سلام و تشکر از زحمتتون
بعلت اینکه تعداد ستونهای حاوی اطلاعات زیاده و جواب باید پشت سر هم باشه امکان استفاده از پیوت نیست بنظرم فقط با ماکرو قابل حله البته من روشش رو نمیدونم

[iranweld]

یک حالت دیگر تغییر ساختار در دیتای table شما میباشد

این حالت رو بررسی کنید تا دوستان ماکروی مناسب رو کدنویسی کنند

[hosein.mirjalili]

با سلام و تشکر دوباره بخاطر وقتی که می زارین
بررسی کردم ولی متاسفانه امکان تغییر تیبل وجود ندارد و با توجه به حجم بالای کالاها فکر کنم فقط بهین راه حل استفاده از ماکرو است ممنون میشم کمکم کنید

[iranweld]

این هم کد ماکرویی که اصرار داشتید

Private Sub CommandButton1_Click()

Columns("K:L").ClearContents

Dim list1 As New Collection
Dim list2 As New Collection

On Error Resume Next

Dim cell, rng As Range

Set rng = Range("d3:d12")

For Each cell In rng

If cell = 1 Then

list2.Add cell.Offset(, -2), CStr(cell.Offset(, -2))

list1.Add cell.Offset(, 1), CStr(cell.Offset(, 1))


End If

Next

k = 3

For i = 1 To list1.Count

Range("k" & k) = list1.Item(i)
Range("l" & k) = "=SUMIFS(Table2[x],Table2[ÔÑØ],1,Table2[˜Ï ÇäÈÇÑ],K" & i + 2 & ")"

k = k + 1

Next

For i = 1 To list2.Count

Range("k" & k) = list2.Item(i)

Range("l" & k) = "=SUMIFS(Table2[y],Table2[ÔÑØ],1,Table2[˜Ï ˜ÇáÇ],K" & k & ")"
k = k + 1

Next


End Sub 

[hosein.mirjalili]

متشکر و ممنونم
اگر خواسته باشیم در ستون J کد حساب ثبت شده بالای کد انبار و کد بالای ستون y ثبت شود چه کدی باید اضافه کنیم

[hosein.mirjalili]

با سلام حل شد

Range("J" & K) = Range("E1").Value 

[rjfri]

دوست عزیز
چنانچه مشکل حل شد لطف کنید تیک حل شده است رو بزنید تا سایر دوستان در صورت درخواست مشابه با توجه به حل مسئله ، از مطالبش استفاده کنند
با سپاس