اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

 

وشكرا لكم 

Book1_2.rar

رابط هذا التعليق
شارك

أخي الكريم

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

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

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

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

تقبل تحياتي

images.jpg.ee3557ac60717377bbfd5076ebe4a

رابط هذا التعليق
شارك

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

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

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

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

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

المطلوب

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

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

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

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

 

تم تعديل بواسطه تحيا مصر
رابط هذا التعليق
شارك

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

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

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

تقبل تحياتي

images.jpg.9d4d548fd502a4714eba57e3349b9

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information