ترحيل بيانات من شيت رئيسي إلى شيت آخر (بشرطين تاريخ اليوم - رقم الحساب -بمعادلات أو أكواد-)

[حسام مصطفي]

السادة الافاضل 

اساتذة المنتدي 

لي طلب بسيط بالنسبة لكم ( ان شاء الله ) احتاج الي مساعدة فيه وهو 

لدي عدد 2 شيت :

 Sheet1 هو الشيت الرئيسي للتسجيل ويتم تسجيل البيانات اليومية فيه من خلال فورم بشكل يومي ) 

و Sheet2 هو الشيت المطلوب الترحيل اليه ولكن بشرطين 

ان يتم الترحيل حسب تاريخ اليوم وكذلك حسب رقم الحساب  .. ولكن بالشكل الموجود في الملف 

( حاولت استخدام if  مع vlookup  )  ولكن لم اتوصل لنتيجة 

في انتظار ردودكم 

 

 

 

 

ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم النتيجة.xls

[سليم حاصبيا]

بعد اذن الاخ علي

هذا الكود

Option Explicit
Sub get_data()
Rem ====>> Created By Salim Hasbaya On 2/11/2019
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim tabL1 As Range
Dim i%, Ro%, x%

Set Sh1 = Sheets("Sheet1")
Set Sh2 = Sheets("Sheet2")
Set tabL1 = Sh1.Range("A1").CurrentRegion
    
 Sh2.Cells(9, 3).Resize(100, 500).ClearContents
 Ro = tabL1.Rows.Count
    
    For i = 3 To 95 Step 3
        tabL1.AutoFilter 1, Sh2.Cells(5, i)
        x = tabL1.SpecialCells(12).Count
      If x > 4 Then
         tabL1.Offset(1).Resize(Ro - 1) _
        .SpecialCells(12).Offset(, 1).Resize(, 3).Copy _
         Sh2.Cells(9, i)
      End If
    Next i
    
If Sh1.AutoFilterMode Then
Sh1.ShowAllData: tabL1.AutoFilter
End If
End Sub

الملف مرفق

tarhil.xlsm

[بن علية حاجي]

السلام عليكم 

بن علية حاجي 

ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة.xls

[حسام مصطفي]

السلام عليكم 

الاستاذ الفاضل / بن علية حاجي

جزاك الله خيرا علي مجهودك الرائع 

ولكن عذرا وسامحوني اساتذتي اصبحت أحس انني لحوح بعض الشئ .. فالتمس منكم العذر 

الملف المرفق من سيادتك بالتعديل يعمل بشكل رائع بالنسبة للبيانات الموجودة في الملف والتي تم العمل عليها من قبلكم 

ولكن عند اضافة يوم جديد في شيت1 مثلا يوم4 واضافة بعض الحسابات الجديدة أجد ان كل البيانات قد تم مسحها ولكن المعادلات موجودة 

وهذا موضح بالملف المرفق 

جزاكم الله خيرا 

 

ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

[بن علية حاجي]

السلام عليكم

تم تبديل المعادلات في الملف المرفق...

بن علية حاجي

ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

[سليم حاصبيا]

لاثراء الموضوع 

هذه المعادلة في الخلية C7

Ctrl+Shift+Enter

=IFERROR(INDEX(Sheet1!$D$2:$D$100,SMALL(IF(Sheet1!$D$2:$D$100<>"",IF($A7&"*"&C$5=Sheet1!$B$2:$B$100&"*"&Sheet1!$A$2:$A$100,ROW($A$2:$A$100)-ROW($A$2)+1)),COUNTIF($A$7:$A7,$A7))),"")

 

[حسام مصطفي]

استاذي الفاضل / بن عليه 

والله لا اعرف كيف اشكرك أنت واستاذي  / سليم حاصبيا 

بارك الله لكما وجزاكم الله خيرا 

اولا : لاهتمامكم لاكثر من مرة بالموضوع والعمل علي حل طلبي بالطريقة السليمه رغم ان الجميع يري ان الموضوع قد تم حله ولكن هذا لم يحدث معي حتي الآن ... فالعذر كل العذر 

ثانياً : علي تحملكم شخصي انا في طلبي الذي بدأت احس ان الخطأ لدي انا فعذرا ... رجاء لا تملوا مني 

  بالنسبه لهذا الملف استاذ  / بن عليه 

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

ويتم درجها لاي حساب في بدايه اليوم التالي 

برجاء مشاهدة ذلك واخباري بالنتيجه وهل الخطأ موجود لدي انا فقط علي جهازي ام ماذا ...

في انتظار رد سيادتكم 

جزاك الله خيرا 

[حسام مصطفي]

عذرا علي تكرار كلماتي التالية ولكنه حققكم بالفعل حتي وان لم يتم حل موضوعي 

استاذي الفاضل / سليم حاصبيا

والله لا اعرف كيف اشكرك أنت واستاذي  /  بن عليه 

بارك الله لكما وجزاكم الله خيرا 

اولا : لاهتمامكم لاكثر من مرة بالموضوع والعمل علي حل طلبي بالطريقة السليمه رغم ان الجميع يري ان الموضوع قد تم حله ولكن هذا لم يحدث معي حتي الآن ... فالعذر كل العذر 

ثانياً : علي تحملكم شخصي انا في طلبي الذي بدأت احس ان الخطأ لدي انا فعذرا ... رجاء لا تملوا مني 

  بالنسبه لهذا الطلب استاذ  /  سليم 

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

كما تم التسجيل في الشيت الرئيسي شيت 1 كقيم فقط لان اسماء وارقام الحسابات موجودة في شيت 2 والمطلوب يتم ترحيل القيم الخاصه بكل حساب في يومه 

========================

اما بالنسبه للمعادلة الاخيرة المرفقه من حضرتك فشاهد استاذي ماذا يحدث عندما اقوم بتنفيذها في الخليه C//7

تظهر هذه الرسالة بعد وضع المعادلة والضغط   Ctrl+Shift+Enter

[سليم حاصبيا]

ما هي دي نفس  المعادلات  شغالة زي الفل في الملف المرفق

 

book_s.xls

[حسام مصطفي]

استاذ / سليم 

المعادلة تعمل في الملف المرفق بشكل سليم ولكن القيم التي يتم ترحيلها ليست صحيحة .. راجعها بنفسك 

فمثلا المفروض ان       قيمه الحساب رقم 1120 باسم حساب 120 قيمته في يوم 1 هو 35

                             قيمه الحساب رقم 1120 باسم حساب 120 قيمته في يوم 2 هو 351.52 

ولكن المرحل بالمعادلة اليوم 1 صحيح واليوم الثاني خطا .... وهكذا باقي الحسابات 

جزاك الله خيرا استاذي 

 

[بن علية حاجي]

السلام عليكم ورحمة الله

أعتذر مرة أخرى للخطأ الذي وقع في ملفي المرفق الثاني، مع ملاحظة أن الخطأ مني وليس منك، وقد تم التصحيح في الملف المرفق (أرجو ذلك إن لم يظهر مشكل آخر)...

ملاحظة: تم إظافة رقم حساب للبيانات المرحلة "حساب رقم 44" المذكور في اليوم الثالث وغير موجود في جدول الترحيل...

بن علية حاجي

 

ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

[الـعيدروس]

السلام عليكم

اخ حسام النتائج صحيحة 

الظاهر انك بتعمل على ملف اخر

 

[حسام مصطفي]

 

السلام عليكم / استاذي العزيز بن عليه 

اعتذر عن التأخير في الرد بعد ان اثقلت عليكم والحاحي في الرد علي طلبي هذه 

ولكن عذرا والله كان هذا نتيجة لوعكه صحيه لم اتمكن معها من الاطلاع والرد علي حضرتك ... تقبل اعتذراتي 

جزاك الله خيرا بالفعل هذا هو ما اريده تماما 

اثابك اله كل الخير واعطاك ما تريد باذن الله  

ولكن هل لي ان اطمع في كرم حضرنك والاساتذة الكرام ... ( في الملف المرفق المعادلات تعمل بشكل أكثر من ممتاز وكما اريد تماما ) ولكن 

علي حسب فهمي لطريقة عملها انها تعمل بناءا علي اسم الحساب وبتغيير اي حرف من اسم الحساب ( لا تعطي المعادلات النتائج المطلوبه .. ) 

فهل من الممكن ان تعمل المعادلات علي اساس رقم الحساب وليس اسم الحساب  

[بن علية حاجي]

السلام عليكم ورحمة الله

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

بن علية حاجي

ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه (1).xls

[حسام مصطفي]

قبل ان اري المرفق استاذي لا اعرف كيف اقدم لك الشكر والعرفان ولا املك الا ان اقول لك

 

جزاك الله خيرا وجعله في ميزان حسناتك يوم القيامه

تقبل خالص وكل تحياتي

 

 

[الـعيدروس]

السلام عليكم

انشأت اوراق لأشهر وهمي

يشترط اذا ضفت اوراق اخرى لاشهر تسميها بنفس الطريقة 

وعمود ارقام الايام في Sheet1 تسجل التاريخ لليوم وليس ارقام الايام

كود بسيط اضافة الى حلول الاساتذه الافاضل

تفضل المرفق

 

 

 

ترحيل بيانات_1.xls

تم تعديل نوفمبر 15, 2019 بواسطه الـعيدروس

[حسام مصطفي]

السلام عليكم 

الاستاذ القدير الرائع / الـعيدروس

جزاك الله خيرا 

الكود اكثر من راااائع وبصورة اكثر من رائعة وجديدة 

وجاري تنفيذ الكود علي ملفي لانه سيغير لي طريقة الملف بالكامل علي حسب فهمي المبدئي للكود 

وارجو من الله ان يتسع صدرك لاي استفسار بخصوص الكود والتعديلات التي من الممكن ان احتاجها علي حسب وقتكم 

تقبل خالص تحياتي