فوائد البسلة على صحة الجسم [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 276 ]       »     المواعيد الإجرائية فى القانون المصرى نسخة pdf قابلة للطباعة [ الكاتب : على أحمد على - آخر الردود : على أحمد على - عدد الردود : 0 - عدد المشاهدات : 395 ]       »     جدول توزيع المعاش على المستحقين فية بعد وفاة صاحب المعاش ق 148 لسنة 2019 [ الكاتب : على أحمد على - آخر الردود : على أحمد على - عدد الردود : 0 - عدد المشاهدات : 407 ]       »     اعداد القوائم المالية ومراجعة الحسابات بالإكسل - مكاتب المحاسبة في مصر [ الكاتب : محمودحموده - آخر الردود : نور جبر - عدد الردود : 66 - عدد المشاهدات : 74726 ]       »     مشاهدة جميع إصدارات قسم محاسبة التكاليف [ الكاتب : eskandrany - آخر الردود : voodoo1969 - عدد الردود : 1986 - عدد المشاهدات : 124970 ]       »     هدية لجميع اعضاء المنتدى - ملف كامل عن محاسبة التكاليف باللغة الانجليزية [ الكاتب : sharpaccountant - آخر الردود : sultanaccount - عدد الردود : 149 - عدد المشاهدات : 37180 ]       »     اسباب تكون أورام منطقة الفخذ [ الكاتب : غاااوي نت - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 628 ]       »     أعراض وأسباب الإصابة بعسر الهضم [ الكاتب : غاااوي نت - آخر الردود : sultanaccount - عدد الردود : 2 - عدد المشاهدات : 978 ]       »     استثمار الوقت [ الكاتب : عبد الجبار علي - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 967 ]       »     عرض مبسط قانون 152 لسنة 2020 تنمية المشروعات المتوسطة والصغيرة ومتناهية الصغرpdf [ الكاتب : على أحمد على - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 1095 ]       »     دورة الاستيراد والتصدير الاطار التطبيقى لمحاسبة الاستيراد والتصدير أ.علاء رياض [ الكاتب : على أحمد على - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 793 ]       »     إليكم برنامج إكسل محاسب المستودعات وإمساك حسابات مبسطة [ الكاتب : حنظلة البغدادي - آخر الردود : islamzizo1611 - عدد الردود : 1725 - عدد المشاهدات : 122683 ]       »     اعراض للوذمة وتورم القدمين [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 1006 ]       »     إليكم البرنامج المحاسبي (صندوق المتجر) نسخته الرابعة الجديدة المطورة [ الكاتب : حنظلة البغدادي - آخر الردود : hsoumi - عدد الردود : 2415 - عدد المشاهدات : 259982 ]       »     القوانين الصادرة من يناير حتى مارس 2020 [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 1186 ]       »     حقيقية التدخين ينقل فيروس كورونا [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 1011 ]       »     قائمة بعناوين مكاتب السجل التجارى بجمهورية مصر العربية [ الكاتب : أحمد فاروق سيد حسنين - آخر الردود : hanyone - عدد الردود : 298 - عدد المشاهدات : 38950 ]       »     نموذج رواتب العمال مع الشرح بـ Excel 2003 [ الكاتب : توفيق السيد - آخر الردود : alaakamal - عدد الردود : 2288 - عدد المشاهدات : 131578 ]       »     ملف الضرائب بعد تعديل الاعفاءات والشرائح بالقانون رقم 96 لسنة 2015 [ الكاتب : على أحمد على - آخر الردود : asdawy - عدد الردود : 21 - عدد المشاهدات : 8817 ]       »     تعلم كل شئ عن حساب الضريبة علي المرتبات - payroll tax calculator [ الكاتب : محمودحموده - آخر الردود : asdawy - عدد الردود : 663 - عدد المشاهدات : 50489 ]       »    


إضافة رد
قديم 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 كيلوبايت, المشاهدات 32)
mostah غير متواجد حالياً  
رد مع اقتباس
قديم 12-28-2019, 05:08 PM
  #2
sultanaccount
 
تاريخ التسجيل: Jun 2008
العمر: 64
المشاركات: 1,525
افتراضي رد: بطاقة الصنف

مجهود مشكور عليه مأجور
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
العمر: 64
المشاركات: 1,525
افتراضي رد: بطاقة الصنف

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

أدوات الموضوع
انواع عرض الموضوع

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

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

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


الساعة الآن 04:08 AM