أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الكلام بيضرب بعد تحويله الى بي دي إف اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





بطاقة الصنف للمستودع

السلام عليكم و رحمة الله و بركاتة ارفق لكم ملف اكسل خاص بالمستودع بدأت باتمام بطاقة الصنف بفضل من الله وبمساعدة أست ..



22-12-2019 10:04 مساء
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 109
الاعجاب : 0
 offline 
السلام عليكم و رحمة الله و بركاتة
 
 
ارفق لكم ملف اكسل خاص بالمستودع

بدأت باتمام بطاقة الصنف بفضل من الله وبمساعدة أستاذ ياسر  المدير المتميز – حفظه الله – الصيغة النهائية للبطاقة:و تم تجربة الموضوع و الحمدلله و تم اضافة زر البحث للبرنامج و يعمل بصورة جيدة و لكن هناك ملاحظتان
اولا" : لايتم مسح البيانات السابقة (اذا كان البحث السابق عن شاي مثلا" و اردت البحث عن القهوة بيانات الشاي يكون موجود في البطاقة )
ثانيا" : لا ياتي بالبند الوارد كاملا" فقط لحركة واحدة فقط

 

 

         
C8 D8 E8 F8 I11 من شيت بيانات الاصناف
B11 بداية السنة المالية و هو ثابت لجميع الاصناف
B12 الى E12 من شيت تقريرالوارد
B12 و F13 G13 H13 من شيت تقريرالوارد

أرجو مساعدتي في اكمال و تصحيح إعداد بطاقة الصنف للمستودع

 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


 
 
  Copy of Book2.zip   تحميل zip مرات التحميل :(6)
الحجم :(106.573) KB





22-12-2019 10:10 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25164
الاعجاب : 52
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
لا ياتي بالبند الوارد كاملا" فقط لحركة واحدة فقط
هذه النقطة غير واضحة بالنسبة لي .. ممكن توضح شكل النتائج المتوقعة (ضع صورة لشكل المتوقع)




22-12-2019 10:17 مساء
مشاهدة مشاركة منفردة [2]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 109
الاعجاب : 0
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
يعني فى الوارد يوجد صنف الشاي بتاريخ 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  بطاقة الصنف




22-12-2019 11:03 مساء
مشاهدة مشاركة منفردة [3]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 109
الاعجاب : 0
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
استاذ ياسر
تم تجربة هذا الكود و لكن يمسح التقرير على طول هل يمكن اضافة الشرط لو تم تغيير الرقم فى  C8 يتم المسح
 




23-12-2019 06:12 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25164
الاعجاب : 52
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
أخي الكريم 
بالنسبة لمسح البيانات فهذا أمر يسير يمكنك القيام به
قبل وضع النتائج الجديدة قم بالإشارة إلى النطاق أو الخلايا المراد مسحها ثم استخدم كلمة ClearContents
مثال:
نفترض أنك أشرت لورقة العمل باستخدام المتغير ws
وتريد مسح النطاق من الخلية A1 إلى الخلية C10
تقوم بالإشارة لورقة العمل ثم النطاق ثم تستخدم الكلمة ClearContents
ws.Range("A1:C10").ClearContents

نفس الكلام بالنسبة للخلايا المفردة ومثال آخر
ws.Range("K20").ClearContents




23-12-2019 02:50 مساء
مشاهدة مشاركة منفردة [5]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 109
الاعجاب : 0
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
Private Sub CommandButton1_Click()
    Dim v, x, y, wsItems As Worksheet, wsWared As Worksheet, wsSarf As Worksheet, sh As Worksheet, lr As Long
    
    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
  ws.Range("A1:C10").ClearContents
      Range("B12:H10000").ClearContents
     End Sub

 

محاولة غير ناجحة مع الكود حيث يمسح التقرير




23-12-2019 02:53 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25164
الاعجاب : 52
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
الرجاء وضع الأكواد بشكل مناسب لتكون أيسر في الإطلاع عليها
وعند نسخ الكود من الملف الخاص بك اجعل اتجاه اللغة بالعربية حتى يتم نسخ البيانات التي باللغة العربية في الكود بشكل صحيح
ويرجى وضع ما تمت إضافته للكود من قبلك للإطلاع عليه .. ووضح أي مشكلة بالصور لكي نرى المشكلة عن قرب 

** من المفترض أن عملية المسح تتم في أول الكود قبل وضع النتائج الجديدة وليس المسح بعد وضع النتائج ....




23-12-2019 09:29 مساء
مشاهدة مشاركة منفردة [7]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 109
الاعجاب : 0
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
استاذ ياسر 

ارفق لك استاذي الكود الخاص بك من احدى المنتديات و الخاص باستدعاء الفاتورة ( يمكن تطبيق نفس اسلوب و لكن هنا برقم الصنف)هل يمكن دمج هذا الكود مع الكود السابق الذي ارسلته مع العلم بان صفحة بيانات الصنف يعمل بشكل ممتاز c8 +d8+ e8+f8+ b11+i +i11

المطلوب هو من 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  بطاقة الصنف
اسال الله رب العرش العظيم في هذا اليوم  ان يرزقك من حيث لا تحتسب وان يفتح لك ابواب السعادة والراحة ويجعل البسمه والفرحه لا تغيب عن شفاتك ويجعل الطمانينه والسكينه تسكن قلبك وان يحقق لك جميع امنياتك واحلامك وان يجعلك ومن تحب في الفردوس الاعلى من الجنة


Sub FindAllBills()
    Dim WS As Worksheet, SH As Worksheet
    Dim Arr, I As Long
    Set WS = Sheets("فاتورة"): Set SH = Sheets("استدعاء فاتورة")
    
    If IsEmpty(SH.Range("A3")) Then MsgBox "أدخل كود العميل المطلوب استدعاء فواتيره", 64: Exit Sub
    SH.Range("A4:N1000").Clear
    
    Arr = Split(FindRange(SH.Range("A3"), WS.Columns("C:C")), ",")
    For I = LBound(Arr) To UBound(Arr)
        On Error Resume Next
        WS.Range(Arr(I)).CurrentRegion.Copy SH.Range("A" & SH.Cells(Rows.Count, 1).End(3).Row + 2)
    Next I
End Sub

Function FindRange(FirstRange As Range, ListRange As Range) As String
    Dim aCell As Range, bCell As Range, oRange As Range
    Set oRange = ListRange.Find(what:=FirstRange.Value, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

    If Not oRange Is Nothing Then
        Set bCell = oRange: Set aCell = oRange

        Do
            Set oRange = ListRange.Find(what:=FirstRange.Value, After:=oRange, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
            If Not oRange Is Nothing Then
                If oRange.Address = bCell.Address Then Exit Do
                Set aCell = Union(aCell, oRange)
            Else
                Exit Do
            End If
        Loop
        FindRange = aCell.Address
    Else
        FindRange = "Not Found"
    End If
End Function


 




24-12-2019 01:52 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25164
الاعجاب : 52
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
أخي الكريم 
أعتذر عن عدم القدرة على المشاركة لظروف خاصة وننتظر مشاركات الأخوة الأعضاء ، ويفضل أخي الكريم تناول نقطة واحدة محددة بدلاً من تكرار نفس الطلب بشكل متكرر .. بدون محاولة توضيح الصورة بشكل كامل
تناول الموضوع نقطة نقطة إذا أمكن ربما يكون هذا أيسر لي ولك ولجميع الأعضاء.




24-12-2019 10:56 صباحا
مشاهدة مشاركة منفردة [9]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 109
الاعجاب : 0
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
لا أدري كيف اشكرك استاذنا
ما قصرت معي
اسجل شكري و اعجابي بجهودك المباركة و اتمنى لك التوفيق  ولا أملك إلا الدعاء لك ولوالديك بالفردوس الأعلى من الجنة اللهم آمين


بانتظار الاعضاء لابداء ارائهم و اكمال الكود 




24-12-2019 11:32 صباحا
مشاهدة مشاركة منفردة [10]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 109
الاعجاب : 0
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع

الحمدلله بفضل الله و توفيقة  تم حل مشكلة مسح البيانات و المتبقى هو خطوة واحة فقط ان شاء الله و هو 
 من b9  الى I10000  بواسطة     D9   الى  D10000  تقريرالوارد  يتم وضعها  b9 الوارد في  b12 بطاقة الصنف   H9  و I9  تقريرالوارد في D12 و E12 بطاقة الصنف  رقم الفاتورة C9 الوارد في  C12 بطاقة الصنف
                   من b9  الى I10000  بواسطة     D9   الى  D10000  تقريرالصرف يتم وضعها  b9 الصرف في  b12 بطاقة الصنف   H9  و I9  تقريرالصرف في G12 و H12 بطاقة الصنف رقم الفاتورة C9 الصرف في  F12 بطاقة الصنف
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

 
بانتظار ردودكم




27-12-2019 09:53 مساء
مشاهدة مشاركة منفردة [11]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 109
الاعجاب : 0
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
اخوة الاعضاء لحتى الان لم احصل على النتيجة وما زلت بانتظار مشاركتكم




28-12-2019 02:35 مساء
مشاهدة مشاركة منفردة [12]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 391
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
قوة السمعة : 1508
الاعجاب : 1
 offline 
look/images/icons/i1.gif بطاقة الصنف للمستودع
السلام عليكم اخي الفاضل 
انا ممكن اساعدك بس بطريقة افضل من التصميم ده 
هيعطيك نفس النتيجة 
اذا طلبت انا تحت امرك  
الافضل تعملها بالماكرو 

 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
بطاقة الصنف و اكواد خاص بها mostah
18 352 YasserKhalil
مشكلة في الصورة - بطاقة مستفيد mohammad excel
4 622 YasserKhalil
لدي بيانات بطاقة شخصية على أعمدة الإيكسيل وأريد أن اصمّم بطاقة ورقية منها Mahmod
3 724 YasserKhalil

الكلمات الدلالية
بطاقة ، الصنف ، للمستودع ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:22 مساء

أعلن هنا
أعلن هنا
أعلن هنا