طريقة لجمع بيانات من اوراق عمل مختلفة لورقة واحدة

[علي الخضر]

السلام عليكم. لدي سؤالين واريد الاجابة جزاكم الله خيرا بدون اكواد vba

الاول : كيف لي ان اجمع بيانات من اوراق عمل مختلفة تتشابه في الصف الاول - عنوان الاعمدة - بحيث تستجيب لاي تحديثات في الاوراق ؟

مرفق مصنف ان لم يكن سؤالي واضح والمطلوب جمع بيانات الاوراق الثلاثة في ورقة 4

الثاني : كيف لي ان اجعل مصنف يفتح على ورقة عمل بعينها مثلا مصنف يحتوي على 3 اوراق عمل 1 . 2 .3  اوريده يفتح على الورقة 2 دائما حتى وان لم تكن اخر مايغلق؟

رجاءا بدون اكواد vba

 

المصنف1.xlsx

[أحمد يوسف]

وعليكم السلام

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

أما بالنسبة لسؤالك الثانى فكيف يتم فتح الملف على صفحة بعينها بدون أكواد VBA -لا يمكن ذلك الا بالأكواد

[حسين مامون]

Private Sub Workbook_Open()
Sheets("ورقة1").Activate
End Sub

هذا  مثال لجواب السؤال الثاني

اما السؤال الاول كما اجابك الاستاذ احمد يوسف

تم تعديل أكتوبر 9, 2019 بواسطه حسين مامون

[علي الخضر]

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

المصنف1.xlsx

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

حرب هذا الماكرو

Option Explicit
Sub ALL_In_One()
Dim M As Worksheet
Dim sh As Worksheet
Dim my_rg As Range
Dim t%: t = 2

Set M = Sheets("ورقة4")
M.Range("A2", Range("D1").End(4)).ClearContents
For Each sh In Sheets
    If sh.Name <> M.Name Then
        Set my_rg = sh.Range("A1").CurrentRegion
       With my_rg
         M.Cells(t, 1).Resize(.Rows.Count - 1, _
          .Columns.Count).Value = _
          .Cells(2, 1).Resize(.Rows.Count - 1, _
          .Columns.Count).Value
        t = t + .Rows.Count - 1
      End With
    End If
Next
End Sub

الملف مرفق

book1_salim.xlsm

[علي الخضر]

شكرا لمجهود اريدها من غير vba

[أحمد يوسف]

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

أستاذ

علي الخضر

لا يمكن عمل ذلك والتوصل لكل هذه النتيجة الا بالأكواد ومن الصعب عملها وتنفيذها بدقة بالمعادلات

[علي الخضر]

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

[علي الخضر]

هذه هى طريقة الجمع اريد طريقة اسهل لو في؟

المصنف1.xlsx

[أحمد يوسف]

طالما انك لا تريدها بالأكواد فليس هناك أفضل من هذا