مطلوب مساعدة لتكملة الشيت

[تحيا مصر]

المطلوب من اساتذة الموقع وما اكثرهم    تكملة هذا الشيت 

عند ادخال كود العميل واليوم  واضافة البضاعة والاجمالى  يتم نقل اجمالى البضاعة وهو هنا 640  الى العميل رقم 1 يوم الاثنين 

وعند ادخال جديد يتم مسح البيانات  تمهيد لادخال جديد  بعد ان يتم ترحيل  الاجمالى الى الجدول الرئيسى جهة اليمين

 

وشكرا لكم 

Book1_2.rar

[تحيا مصر]

يا ريت حد من اساتذة الموقع  يساعدنى لاننى محتاج الشيت        وشكرا   

وانا عضو قديم بس دخلت باسم جديد  لاننى نسيت الرقم السري القديم 

[ياسر خليل أبو البراء]

أخي الكريم

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

لذا يجب دائماً التفصيل والتوضيح التااااااااااااام وإرفاق شكل النتائج المتوقعة بمثال أو أكثر ..

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

أرجو أن تطلع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لتعرف كيفية التعامل بشكل أفضل مع الموضوعات المطروحة

تقبل تحياتي

[تحيا مصر]

اخى شكرا  للتوضيح  

سيكون العمل فقط على ورقة 2 

من الخلية T11  نختار كود العميل وهنا فى المثال العميل رقم 2  

ونختار اليوم وهنا الاحد مثلا من U 11

ونضع البضاعة كما هو موضح بالمثال وهنا اجمالى البضاعة  640 جنيه  فى X17

المطلوب

يتم اضافة   المبلغ الموجود فى X17  الى الى العميل 2  ويوم الاحد وهنا  يتم الاضافة 

فى الخلية  H5  وهنا الاضافة هنا لصق  ويتم بعد لو تم التغير الى عميل اخر ويوم اخر يتم تكرار العمل 

مثلا لو غيرت  مثلا العميل رقم 3  ويوم الثلاثاء  يتم نقل قيمة  X17    الى  L6

ارجو ان اكون وفقت فى شرح المطلوب  واسف لتعبكم

 

تم تعديل يناير 10, 2016 بواسطه تحيا مصر

[ياسر خليل أبو البراء]

أخي الكريم تحيا مصر

جرب الكود التالي عله يفي بالغرض ..

Sub Test()
    Dim StrCode As String, StrDay As String
    Dim FoundCode As Range, FoundDay As Range
    Dim Col As Integer, Row As Integer
    
    StrCode = Range("T12").Value
    StrDay = Range("U12").Value
    
    On Error Resume Next
    
    Set FoundCode = Columns(1).Find(StrCode, LookIn:=xlValues, LookAt:=xlWhole)
    Set FoundDay = Range("E2:P2").Find(StrDay, LookIn:=xlValues, LookAt:=xlWhole)
    Row = FoundCode.Row: Col = FoundDay.Column + 1
    Cells(Row, Col).Value = Range("X17").Value
End Sub

تقبل تحياتي