اذهب الي المحتوي
أوفيسنا

ام بسمه

عضو جديد 01
  • Posts

    49
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه ام بسمه

  1. Sub Macro1()
    Dim iNm As String
    Dim Lr As Long, i As Long
    Dim R As Integer
    Dim d1 As Double, d2 As Double
    
    
    iNm = Range("B1").Value
    
    d1 = Range("B2").Value2
    
    d2 = Range("B3").Value2
    
    
    Range("D5:L300").ClearContents
    
    Application.ScreenUpdating = False
    
    With Sheet4
    
      
        Lr = .Cells(.Rows.Count, "M").End(xlUp).Row
        
        For i = 4 To Lr
        
            If iNm = CStr(.Cells(i, "M")) Then
            
                Select Case .Cells(i, "H").Value2
                    Case d1 To d2
                    R = R + 1
                    
                    Cells(R + 4, "C").Value = R
                    
                    Cells(R + 4, "G").Resize(1, 4).Value = .Cells(i, "H").Resize(1, 4).Value
                    
                        Cells(R + 4, "D").Value = .Cells(i, "B").Value
                   
                    
                        Cells(R + 4, "E").Value = .Cells(i, "C").Value
                       
                        Cells(R + 4, "F").Value = .Cells(i, "D").Value
                    
                    
                        Cells(R + 4, "H").Value = .Cells(i, "L").Value
                      End Select
                      
    
    End If
    Next
    
    
    With Sheet6
    
     Lr = .Cells(.Rows.Count, "M").End(xlUp).Row
                For i = 4 To Lr
    
      If iNm = CStr(.Cells(i, "M")) Then
      Select Case .Cells(i, "O").Value2
                    Case d1 To d2
                    R = R + 1
                    
                        Cells(R + 4, "K").Value = .Cells(i, "N").Value
                    
                        Cells(R + 4, "L").Value = .Cells(i, "O").Value
                End Select
    Application.ScreenUpdating = True
    End If
    Next
    End With
    End With
    End Sub
    
    

    ممكن تعديل هذا الكود من حيث التسلسل لان مصدر البيانات sheet4&sheet6 وفى كشف الحساب يكمل تسلسل شيت6 بعد شيت4 وانا عايزة الشيتين يبداؤ من اول صف بداية الكشف

  2. الاخت ام بسمة

     شيت عام الهدف منه هو الحفاظ على البيانات فانتى تقومى بالتسجيل فى شيت ويرحل البيانات الى شيت عام فهنا يكون شيت عام بمثابة قاعدة بيانات وهذا افضل 

    ثانيا : وضحى اكتر اى تصفية تقصدى فى كشف الحساب وضحى الفكرة وان شاء الله نساعدك فيها

    ارجو من حضرتك ان يكون المشروع كما صممته ان امكن

    بالنسبة لكشف الحساب هو الان لا يعمل اريد ان يجلب معاملات العملاء التى بالاجل فعندما اكتب اسم العميل فمعناه انه بالاجل وعند جلب البيانات لنفرض  ان العميل 1 له اشترى ثلاث اصناف وعند عمل كشف حساب عميل 1 فعلا جلب الثلاث حركات وسوف يدفع مثلا نصف ما عليه اريد ان اسجل ذلك فى شيت كشف الحساب

    وشكرا على سعة صدرك

  3. انا عملت هذا النموزج بفضل الله ثم  معلمى وخبراء هذا المنتدى

    ولكن لدى بعض المشاكل واتمنى الحل ارجوكم

    1: النموزج بطئ فى اخذ الاوامر .الوقت لا يظهر مع التاريخ

    2:فى كشف الحساب اريد ان يخصم ما يدفعه العميل من حسابه او بعض ما يدفعه بعد ذالك انا عملت حاجه بس للاسف غلط لانها بتنطبق على كل العملاء فكيف الحل وان يظهر تاريخ الدفع عند دفع جزء او كل ما عليه

    ايضاالعميل 4 له ثلاث حركات وكشف الحساب يأتى باثنين فقط

    ارجو الافادة النموزج فى المرفقات

    ان شاء الله الاخير.rar

  4. اريد عمل كشف حساب للعملاء كما هو مطلوب فى النموزج .

    كنت بجلب الصنف بدلالة الكود اريد ان اجلب الصنف وسعر البيع.

    ان امكن عمل شيت مردودات مبيعات حيث  انه يؤثر على المخزون.

    الاخذ فى الحسبان النطاق عندى اكبر بكثير جدا عن النموزج .

    اتمنى ان يكون العمل بالاكواد

    ولكم كل الشكر ياهل هذا المنتدى العطاء

     

    ولا اعلم ان كان الموضع تكرر او لا حتى لا يتعرض للحذف

    نموزج تجربة.rar

  5. الف مبروك استاذنا القدير محمود الشريف على الترقيه فانت اهل لها

    فمجهودك وخبرتك وثقافتك وحلولك تدل على انك اكثر من خبــــــــير

    بـــــــــــــــــــــــارك الله فيك وجزاك عنا كل الخيــــــــــــــــــــــــير

  6.  

    أختنا فى الله

    الأستاذة // ام بسمه

    بارك الله فيكم على كلماتكم الطيبة فى حق أساتذة وأعضاء منتديات أوفيسنا

     

    فيما يختص بشرح القائمة المنسدلة 

    هذا ملف فيديو شرح لعمل القائمة المنسدلة وهو للأستاذ القدير // عبد الله المجرب

    ومرفق لكم نموذج به شرح لكيفية زيادة المدى أو نطاق القائمة المنسدلة

     

    وفيما يختص بكشف حساب العملاء فهو معمول بالكود 

    وتجدى الكود وشرحه داخل النموذج وللوصول للكود

    قم بالضغط على ALT+F11

    تجدى الكود داخل موديول وبه شرح للكود

    وتقبلوا منى وافر الاحترام والتقدير

     

     

    استاذى الجليل لك كل الشكر والتقدير وجزاء الله خيرا

    فانت منبع للعلم والثقه

    مهما قولت ووصفت فلن اعطيك حقك

     

  7. افضل منتدى تعاملت معه هو منتدى أوفيسينا

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

     

     

     

    حفظكم الله سبحان وتعالى من كل سوء

  8. استاذى / محمود الشريف

     تقبل من  كل التحية والاحترام والتقدير 

    انا فاهمة خط سير النموزج ولكن هناك امرين اتمنى ان تعلمنيهما :

    الاول: عمل القوائم المنسدلة (تفصيلى).

    الثانى: معادلات التى استخدمتها من باديه شيت العملاء وصلا الا كشف حساب العميل كل ما يحص حركة العملاء داخل النموزج.

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

     

     

    انا اريد ان اتعلم على ايدى افضل الاساتذة فى هذا المجال وهم انتم خبراء المنتدى ولكم كل الشكر والتقدير على مجهودكم وجعله الله فى ميزان حسناتكم (اريد العلم والتعلم لا المعرفة بالشئ)

  9.  

    وايضا هذا النموذج المرفق

    بعد اضافة شيت مستقل لعمل كشف حساب لكل عميل

    واضافة التاريخ والوقت بشيت المبيعات

    وكذلك السعر

    وتقبلوا منى وافر الاحترام والتقدير

     

    شكرا استاذى محمود الشريف على هذا المجهود الاكثر من رائع جعله الله فى ميزان حسناتك وتقبل منى كل الشكر

    ولكن لى طلب هو صعب شوية بس ان شاء الله سهل انا لا احب النسخ واللصق ومحبة لتعلم العلم لذلك انا كثيرة الاسئلة لو تكرمت استاذى بعمل شرح سريع لاهم النقاط فى هذا النموزج الاكثر من رائع  اعذروزنى لان بحب افهم

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

     

    http://www.officena.net/ib/index.php?showtopic=54116#entry341237

     

     

    http://www.officena.net/ib/index.php?showtopic=53957&hl=

     

    وقد قام الأستاذ محمود الشريف بتحويل الرد في المشاركة السابقة إلى رابط لنفس السؤال في أحد الموضوعات 

    وبعد إذن الأساتذة الأفاضل وفريق الموقع نأمل منك عدم تكرار الموضوعات والأسئلة 

    شكرا على تنبيهك استاذى ابو ايمان واسفة لتكرار الموضوع واتمنى ان تتقبلونى عضوة صغيرة فى هذا المنتدى الجميل

×
×
  • اضف...

Important Information