منتدى المحاسبين المصريين

منتدى المحاسبين المصريين (https://www.aliahmedali.com/forum/index.php)
-   قسم تطبيقات الأوفيس والبرامج المكتبية (https://www.aliahmedali.com/forum/forumdisplay.php?f=58)
-   -   بطاقة الصنف (https://www.aliahmedali.com/forum/showthread.php?t=42202)

mostah 12-28-2019 11:55 AM

بطاقة الصنف
 
1 مرفق
السلام عليكم و رحمة الله و بركاتة

ارجوا مساعدتي في اكمال الكود خاص ببطاقة الصنف
Private Sub CommandButton1_Click()
Dim v, x, y, wsItems As Worksheet, wsWared As Worksheet, wsSarf As Worksheet, sh As Worksheet, lr As Long
lr = [c10000].End(xlUp).Row
Sheets("ÈØÇÞÉ ÇáÕäÝ").Range("b12:i10000").ClearContents
Application.ScreenUpdating = False

Set wsItems = ThisWorkbook.Worksheets("ÈíÇäÇÊ ÇáÇÕäÇÝ")
Set wsWared = ThisWorkbook.Worksheets("ÊÞÑíÑÇáæÇÑÏ")
Set wsSarf = ThisWorkbook.Worksheets("ÊÞÑíÑÇáÕÑÝ")
Set sh = ThisWorkbook.Worksheets("ÈØÇÞÉ ÇáÕäÝ")
lr = Application.Max(12, sh.Cells(Rows.Count, 3).End(xlUp).Row + 1)


If sh.Range("C8").Value = "" Then Exit Sub

v = Application.Match(sh.Range("C8").Value, wsItems.Columns(2), 0)
If Not IsError(v) Then
sh.Cells(8, 3).Resize(1, 4).Value = wsItems.Cells(v, 2).Resize(1, 4).Value
sh.Range("I11").Value = wsItems.Cells(v, 6).Value
sh.Range("B11").Value = DateSerial(Year(Date), 1, 1)


End If

x = Application.Match(sh.Range("C8").Value, wsWared.Columns(1), 0)
If Not IsError(x) Then
sh.Cells(lr, 2).Resize(1, 2).Value = wsWared.Cells(x, 2).Resize(1, 2).Value
sh.Cells(lr, 4).Resize(1, 2).Value = wsWared.Cells(x, 8).Resize(1, 2).Value
End If

y = Application.Match(sh.Range("C8").Value, wsSarf.Columns(1), 0)
If Not IsError(y) Then
sh.Cells(lr, 6).Value = wsSarf.Cells(y, 3).Value
sh.Cells(lr, 7).Resize(1, 2).Value = wsSarf.Cells(y, 8).Resize(1, 2).Value


End If

Application.ScreenUpdating = True

End Sub



يعني فى الوارد يوجد صنف الشاي بتاريخ 20-12-2019 و 21-12-2019 و 22-12-2019 و الى اخره و كذلك فى الصرف تم صرف عدة مرات

و المطلوب هو من b9 الى I10000 بواسطة D9 الى D10000 تقريرالوارد يتم وضعها b9 الوارد في b12 بطاقة الصنف H9 و I9 تقريرالوارد في D12 و E12 بطاقة الصنف رقم الفاتورة C9 الوارد في C12 بطاقة الصنف
من b9 الى I10000 بواسطة D9 الى D10000 تقريرالصرف يتم وضعها b9 الصرف في b12 بطاقة الصنف H9 و I9 تقريرالصرف في G12 و H12 بطاقة الصنف رقم الفاتورة C9 الصرف في F12 بطاقة الصنف

على ان يتم مسح بيانات السابقة من البطاقة الصنف بمجرد تغيير الرقم في C8 بطاقة الصنف


و لكم مني جزيل الشكر

sultanaccount 12-28-2019 05:08 PM

رد: بطاقة الصنف
 
مجهود مشكور عليه مأجور

mostah 12-28-2019 05:28 PM

رد: بطاقة الصنف
 
اقتباس:

المشاركة الأصلية كتبت بواسطة sultanaccount (المشاركة 741919)
مجهود مشكور عليه مأجور


شكرا" على مرورك و ارجوا منكم تعديل الكود

mostah 12-30-2019 10:34 AM

رد: بطاقة الصنف
 
اخواني الخبراء و الاعضاء انا ما زلت بانتظار تعديل الكود

جزاكم الله خير

sultanaccount 12-31-2019 10:57 AM

رد: بطاقة الصنف
 
الابن الفاضل
اولا : لن اعتقد ان احد سيعدل لك الكود لأسباب كثيرة ليس هذا مكانه .
ثانيا : كما تعلمنا في البرمجه من اساتذتنا ( لا تتعب نفسك في تصحيح برنامج فالوقت الذي تضيعه في التصحيح تقدر تعمل برنامج جديد ) .
اعانك الله


الساعة الآن 04:01 PM

Powered by Nile-Tech® Copyright ©2000 - 2024