الكتاب الدورى رقم (4) لسنة 2020 [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 2 ]       »     ! قانون الاستثمار 72 2017-1 [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 4 ]       »     ملخص و شرح قانون التأمينات الاجتماعية الجديد رقم 148 لسنة 2019 [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 5 ]       »     اختصارات لوحة المفاتيح في Excel [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 3 ]       »     دوال الاكسيل [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 5 ]       »     برنامج حساب الضريبة حتى سنة 2019 - البرنامج يقوم بحساب الضريبة حتى سنة 2019 [ الكاتب : khaled sawy - آخر الردود : noshymetwaly - عدد الردود : 8 - عدد المشاهدات : 4933 ]       »     الدليل الارشادي لأمين سر مجلس الإدارة [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 7 ]       »     الدليل الارشادي لإدارة الالتزام [ الكاتب : هشام حلمي شلبي - آخر الردود : هشام حلمي شلبي - عدد الردود : 0 - عدد المشاهدات : 8 ]       »     نموذج مذكرة دفاع للجنة الطعن ضرائب القيمة المضافة [ الكاتب : programgo - آخر الردود : عماد الخولى - عدد الردود : 15 - عدد المشاهدات : 25735 ]       »     اقوى واخف واسرع برنامج لحساب اقرارات المبيعات Excel 2007 [ الكاتب : ahmed07 - آخر الردود : saied0722 - عدد الردود : 19 - عدد المشاهدات : 8943 ]       »     نسخة pdf بالجداول والفهرس من القانون رقم 67 لسنة 2016 [ الكاتب : على أحمد على - آخر الردود : atef khalifa - عدد الردود : 5 - عدد المشاهدات : 8322 ]       »     أعرف كل شئ عن رد الضريبة [ الكاتب : أحمد فاروق سيد حسنين - آخر الردود : atef khalifa - عدد الردود : 1409 - عدد المشاهدات : 95037 ]       »     برنامج المحاسب المسلم 12 – الإصدار الثاني عشر [ الكاتب : حسام هداية - آخر الردود : walid elmsry - عدد الردود : 2066 - عدد المشاهدات : 149727 ]       »     الإقرارات الضريبية لسنة 2019 [ الكاتب : على أحمد على - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 605 ]       »     سلسلة المحاسب المتميز النسخة الالكترونيه المجانيه [ الكاتب : ahmed_tema - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 492 ]       »     شيتات اكسيل تكاليف جاهزة [ الكاتب : Abdelrahman89 - آخر الردود : atsco_2000 - عدد الردود : 23 - عدد المشاهدات : 38795 ]       »     دراسة جدوى مشروع مصنع ملابس [ الكاتب : salomaz - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 632 ]       »     كل ما يخص المساهمة التكافلية للتأمين الصحى [ الكاتب : على أحمد على - آخر الردود : sultanaccount - عدد الردود : 7 - عدد المشاهدات : 33249 ]       »     التجارة الإلكترونية والفكر المحاسبي [ الكاتب : ahmed_tema - آخر الردود : sultanaccount - عدد الردود : 1 - عدد المشاهدات : 401 ]       »     البرنامج المحاسبي الرائع quickbooks enterprise v 18 [ الكاتب : ahmed_tema - آخر الردود : islamelmarketer - عدد الردود : 3 - عدد المشاهدات : 7735 ]       »    


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

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

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

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

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

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

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


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