إضافة رد
أدوات الموضوع
انواع عرض الموضوع
قديم 12-28-2019, 11:55 AM
  #1
mostah
مشارك مبتدئ
 
تاريخ التسجيل: Dec 2019
المشاركات: 4
افتراضي بطاقة الصنف

السلام عليكم و رحمة الله و بركاتة

ارجوا مساعدتي في اكمال الكود خاص ببطاقة الصنف
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 بطاقة الصنف


و لكم مني جزيل الشكر
الملفات المرفقة
نوع الملف: zip بطاقة الصنف.zip‏ (149.4 كيلوبايت, المشاهدات 376)
mostah غير متواجد حالياً  
رد مع اقتباس
قديم 12-28-2019, 05:08 PM
  #2
sultanaccount
 
تاريخ التسجيل: Jun 2008
العمر: 67
المشاركات: 2,250
افتراضي رد: بطاقة الصنف

مجهود مشكور عليه مأجور
sultanaccount غير متواجد حالياً  
رد مع اقتباس
قديم 12-28-2019, 05:28 PM
  #3
mostah
مشارك مبتدئ
 
تاريخ التسجيل: Dec 2019
المشاركات: 4
افتراضي رد: بطاقة الصنف

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

شكرا" على مرورك و ارجوا منكم تعديل الكود
mostah غير متواجد حالياً  
رد مع اقتباس
قديم 12-30-2019, 10:34 AM
  #4
mostah
مشارك مبتدئ
 
تاريخ التسجيل: Dec 2019
المشاركات: 4
افتراضي رد: بطاقة الصنف

اخواني الخبراء و الاعضاء انا ما زلت بانتظار تعديل الكود

جزاكم الله خير
mostah غير متواجد حالياً  
رد مع اقتباس
قديم 12-31-2019, 10:57 AM
  #5
sultanaccount
 
تاريخ التسجيل: Jun 2008
العمر: 67
المشاركات: 2,250
افتراضي رد: بطاقة الصنف

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


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


الساعة الآن 03:15 PM