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

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


إذهب إلى أفضل إجابة Solved by الـعيدروس,

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

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

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

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

لدي عدد 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

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

السلام عليكم 

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

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

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

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

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

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

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

 

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

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

السلام عليكم

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

بن علية حاجي

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

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

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

هذه المعادلة في الخلية 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))),"")

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

salem-1.jpg.c886847310d5dc5460521ac975ad985d.jpg

salem-2.jpg

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

استاذ / سليم 

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

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

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

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

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

 

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

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

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

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

بن علية حاجي

 

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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

 

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

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

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

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

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

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

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

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

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

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

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

بن علية حاجي

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

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

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

 

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

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

 

 

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

  • أفضل إجابة

السلام عليكم

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

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

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

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

تفضل المرفق

 

 

 

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

تم تعديل بواسطه الـعيدروس
  • Like 3
  • Thanks 2
رابط هذا التعليق
شارك

السلام عليكم 

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

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

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

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

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

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

 

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

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information