إليكم البرنامج المحاسبي (صندوق المتجر) نسخته الرابعة الجديدة المطورة [ الكاتب : حنظلة البغدادي - آخر الردود : walid elmsry - عدد الردود : 2405 - عدد المشاهدات : 226950 ]       »     ( س و ج محاسبة ) هذه المشاركة لطرح اسئلتك او حالة عملية واجهتك في عملك والرد عليها [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 3123 - عدد المشاهدات : 452260 ]       »     اعداد القوائم المالية ومراجعة الحسابات بالإكسل - مكاتب المحاسبة في مصر [ الكاتب : محمودحموده - آخر الردود : mostafamagdi50 - عدد الردود : 62 - عدد المشاهدات : 63758 ]       »     سؤال بخصوص الكتب المحاسبية [ الكاتب : عبدالله محمد بكر - آخر الردود : عبدالله محمد بكر - عدد الردود : 0 - عدد المشاهدات : 254 ]       »     كتب دورية وتعليمات تنفيذية وورد من السنوات 2005 حتى 2018 [ الكاتب : على أحمد على - آخر الردود : باهوق - عدد الردود : 1 - عدد المشاهدات : 16035 ]       »     شرح وبيان قانون الضرائب العقاريه الجديد رقم 196 لسنة 2008 [ الكاتب : أحمد فاروق سيد حسنين - آخر الردود : صلاح الفاروق - عدد الردود : 14 - عدد المشاهدات : 12257 ]       »     مقارنة قانون مزاولة المهنة [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 350 ]       »     ملف يشمل بيان القوانين والقرارات الوزارية وقرارات مصالح الضرائب 2005 حتى 2018 [ الكاتب : على أحمد على - آخر الردود : melias - عدد الردود : 5 - عدد المشاهدات : 7148 ]       »     مشروع قانون مزاولة المهنة من موقع جمعية المحاسبين والمراجعين المصرية [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 356 ]       »     كتاب الضريبة على توزيعات الإرباح و الضريبة على أرباح بيع الحصص و الأوراق المالية [ الكاتب : على أحمد على - آخر الردود : رجب رسلان - عدد الردود : 2 - عدد المشاهدات : 3900 ]       »     مشروع قانون تنمية المشروعات المتوسطة والصغيرة ومتناهية الصغر [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 477 ]       »     استماره 2 فى قانون 148 طلب اشتراك منشأة أو إخطار تعديل بيانات المؤمن عليهم وأجورهم [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 615 ]       »     استماره 1 فى قانون 148 طلب اشتراك مؤمن عليه طبقا للقانون 148 لسنة 2019 [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 569 ]       »     قراءة القوائم المالية البورصة السعودية [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 607 ]       »     english قواعد [ الكاتب : هشام حلمي شلبي - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 737 ]       »     ملخص و شرح قانون التأمينات الاجتماعية الجديد رقم 148 لسنة 2019 [ الكاتب : هشام حلمي شلبي - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 733 ]       »     ! قانون الاستثمار 72 2017-1 [ الكاتب : هشام حلمي شلبي - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 747 ]       »     الكتاب الدورى رقم (4) لسنة 2020 [ الكاتب : هشام حلمي شلبي - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 741 ]       »     كتاب المائة كلمة في الادارة [ الكاتب : هشام حلمي شلبي - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 749 ]       »     مشاهدة جميع اصدارات الضريبة على المرتبات وما فى حكمها [ الكاتب : على أحمد على - آخر الردود : sultanaccount - عدد الردود : 3 - عدد المشاهدات : 2434 ]       »    


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

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

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

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

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

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

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


الساعة الآن 05:57 AM