'گردش انبار

**DOLFIN** · 2014/11/10, 14:13

دوستان من خیلی گشتم اگه کسی راهنمایی کنه ممنون میشم.

**Ali Parsaei** · 2014/11/10, 15:41

سلام جناب dolfin،
يک مقدار بيشتر توضيح دهيد، اگر کارکرد فايلتان را بهتر بفهميم راهنمايي بهتري مي توانيم بکنيم، يک چيزهايي جاي سوال دارد، مثلا" اگر دوبار يک "گزارش سند" کليک شود چه اتفاقي بايد بيافتد؟ مقادير انتقالي قبلي پاک شود و مجددا" بررسي و انتقال يابد؟ کلا" يک مقدار توضيح بيشتري بدهيد، البته براي اعمال اين روش که "گزارش سند انتخاب و مقادير انتقال يابد" احتياج به ماکرو نويسي و کد نويسي است، ولي اگر توضيح بيشتري دهيد شايد بشود کل ساختار جدول بندي ها را به صورتي تغيير داد که خيلي ساده تر به نتيجه برسيد.

**DOLFIN** · 2014/11/11, 10:39

سلام به روی چشم آقای پارسا.
به طور کلی هدف این فایل یک سیستم گزارش دهی جامع است به این صورت که همون طور که توی فایل مشخص شده ابتدا توی شیت ثبت سند اطلاعاتی واردی میشه که این اطلاعات نباید حذف بشه و باید ثابت بمونه و توی شیت دوم که گزارش گردش هستش با استفاده از piovttable و sumifs یک گزارش جامع از ورودی ها و خروجی های یک کالا جمع میشه و قابل مشاهده هست تا اینجا کار همه چی درسته اما....
توی شیت سوم می بایست فاکتور یا کاردکس هر کالا در قالب یک فرمت ارائه بشه و معلوم کنه از یک کالا مثلا H1077 در چه تاریخی ورودی و در چه تاریخی خروجی داشته و به چه میزانی بوده که این اطلاعات در شیت ثبت سند موجوده و این نکته ام باید در نظر گرفته بشه که که ایجاد یک کاردکس لازمش اینه که روی نام اون کالا توی شیت گزارش گردش کلیک بشه.
به طور خلاصه هم کار سیستم به این صورته که توی یک شیت اطلاعات پایه چندین کالا وارد میشه که این اطلاعات ثابته ، توی شیت بعدی گزارش جامع اون کالا ها مشخصه و سیستم قابلیت اینو داره که جزئیات گزارش جامع یک کالا رو نشون بده.
در صورت دو بار کلیک هم اتفاقی نمی افته و امیدورام بشه که این کارو با تعریف تابع انجام داد هر چند هر روشی بشه باز هم عالیه.
ممنون از توجهتون.من در خدمتم

**DOLFIN** · 2014/11/12, 10:22

دوستان دوباره سلام
من هنوز نتونستم با توابع این کارو انجام بدم اگه کسی بلده لطفا راهنمایی کنه

**DOLFIN** · 2014/11/12, 10:58

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

Sub Copy_Row()
a = Application.InputBox("Enter value to find and copy")
Sheets("DATABASE").Select
With Sheets("DATABASE").Range("A1:A10000")
Set c = .Find(a, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Rows(Sheets("DATABASE").Range(c.Address).Row).Copy Destination:=Sheets("REPORT").Rows(Application.Cou ntA(Sheets("REPORT").Range("A1:A50000")) + 1)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Worksheets("REPORT").Select
End Sub

**DOLFIN** · 2014/11/16, 13:18

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

**Ali Parsaei** · 2014/11/17, 14:31

نوشته اصلی توسط DOLFIN

اگه ام جواب نمی دید حداقل بگید که ما چشم انتظار نمونیم.با تشکر از همکاری خوبتون

راستش چيزهايي که براي پاسخ به سوال شما به ذهنم مي رسيد زياد دلچسب خودم نبود، از اين جهت گفتم شايد دوستان ديگر راه حل هاي بهتري بتوانند ارائه کنند. شرمنده ام که توضيح بيشتر خواستم ولي بعد جواب ندادم! .....

**Ali Parsaei** · 2014/11/17, 17:44

درباره انجام کار با تابع بايد از چندين ستون کمکي در صفحات استفاده کرد، البته رويه سايت ارائه فايل آماده نيست، بايد خودتان زحمت بکشيد و اگر جايي مشکل داشتيد کمکتان کنيم.
ولي اين دفعه از روش مهندسي معکوس استفاده مي کنيم! من يک فايل مي فرستم ولي زحمت فهميدن فرمول نويسي اش را شما بکشيد!

روش کارش اين است که در صفحه گزارش گردش شما هر موردي که خواستيد گزارش سندش را انتخاب مي کنيد و بقيه کار خود به خود انجام مي گردد. فقط نکته اش اين است که نبايد دو تا گزارش سند را هم زمان با هم انتخاب کنيد.

فایل های پیوست شده