كيفية استدعاء البيانات من اكثر من شيت

[مدريدي عمان]

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

طريقة كتابة كود استدعاء البيانات من اكثر منsheet او من اكثر من workbooks

فمثلا عندي شيت مبيعات الحاسب الالي في عام 2012 واخر في عام 2011 واخر في عام 2010 وهكذا... وعندي شيت اسمه احصائية مبيعات الحاسب الالي وعملت فيه ايقونة اختار منها العام و الشهر اريد استدعي مبيعات الحاسب الالي من كل الشيتات لذلك الشهر

ولو كان بدل الشيتات workbooks لكل سنة workbooks واردت استدعاء البيانات في workbooks اسمة احصائية مبيعات الحاسب الالي وعملت فيه ايقونة اختار منها العام و الشهر اريد استدعي مبيعات الحاسب الالي من كل workbooks لذلك الشهر

pc sales.rar

[رجب جاويش]

تفضل أخى

استدعاء البيانات من عدة شيتات

pc sales.rar

[رجب جاويش]

تفضل أخى

استدعاء بيانات من عدة ملفات workbooks

pc sales.rar

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

بارك الله فيك أخي رجب

عمل رائع

[رجب جاويش]

شكرا جزيلا أخى ياسر

جزاك الله كل خير على هذا التشجيع

[مدريدي عمان]

بارك الله فيك اخي رجب وزادك رب العباد علما ولطفا وسعادة ورزقك خير الدنيا والاخرة

شكرا ايضا اخي ياسر ووفقك الله لمل تحب وترضى

شكرا للجميع

دمتم بود

[رجب جاويش]

شكرا جزيلا أخى الفاضل

وجزاك الله كل خير على هذا الدعاء الطيب

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل رجب جاويش حفظك الله وعافاك

اللهم أعزه في الدنيا وأرفع درجاته في الجنة حتى يرضى.

أبو أنس

[رجب جاويش]

أخى الفاضل / أبو أنس حاجب

تشرفت بمرورك العطر

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

[ابومريم]

السلام عليكم

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

هل بالامكان عمل استدعاء البيانات تتم

من خلال مجرد اختيار من القائمة المنسدلة

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

تظهر النتائج من دون الضغط على زر امر

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

[رجب جاويش]

أخى / ابو سلام

بعد التحية

تفضل ما تريد

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("d3:e3")) Is Nothing Then

	Dim cl As Range

	Dim ws As Worksheet

	Application.ScreenUpdating = False

	On Error Resume Next

	y = ActiveWorkbook.Name

	x = ActiveWorkbook.Path & "\" & Cells(3, 4).Value & ".xls"

	Workbooks.Open Filename:=x

	For Each ws In ActiveWorkbook.Worksheets

		For Each cl In ws.Range("A2:L2")

			If ws.Name = Workbooks(y).Sheets("احصائية").Range("D3") And cl = Workbooks(y).Sheets("احصائية").Range("E3") Then

			Workbooks(y).Sheets("احصائية").Range("D6") = cl

			Workbooks(y).Sheets("احصائية").Range("E6") = cl.Offset(1)

			End If

		Next

	Next

	Workbooks(x).Activate

	ActiveWindow.Close

	Application.ScreenUpdating = True

End If

End Sub

pc sales.rar

[ابومريم]

السلام عليكم

جزاك الله خير اخي رجب وفي ميزان حسناتك ان شاء الله

هل بالامكان عمل استدعاء البيانات من عدة شيتات

عن طريق دوال الاكسل وليس بالكود

وربطها ايضا بالقائمتين المنسدلتين

وانا اطلب منك لاجل التعلم

انا اعرف اني اثقلت عليك بس ما لنا الا الخيرين امثالك

وبارك الله بيك

[رجب جاويش]

أخى الفاضل / ابو سلام

أعتقد أن ذلك ممكن بالمعالات

ولكن لم أجربة من قبل

ولكن ممكن تجربته والمحاولة فيه ثم الرد عليك

[أبو حنــــين]

السلام عليكم

و الله عمل احترافي فعلا اخي رجب

بارك الله فيكم و زادكم علما

[رجب جاويش]

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

شكرا جزيلا أخى / أبو حنين

شرف لى هذا المرور العطر

حفظكم الله وبارك فيكم

أخوك / رجب جاويش

[رجب جاويش]

الأخ الفاضل / ابو سلام

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

وهو تثبيت السنة أما الشهر فيتم اختيارة من القائمة المنسدلة

pc sales.rar

[ابومريم]

السلام عليكم

جزاك الله خير اخي رجب وفي ميزان حسناتك ان شاء الله

والله يزيدك علما وفهما

استفدنا من دالتيين جديدتيين وهي Index و MATCH

وشكرا لك

[gfranses]

بجد انا كل ما افتح المنتدى اتعلم كتير جدا من الاساتذه العباقرة امثالك أستاذ رجب

بجد اشكرك جزيلا

لانى استفدت من الملفات المرفقة

ولكن لو فكرت استدعى قيمة من خلية معينة داخل الملف فى عدة شيتات بدون ربط بمتغير معين .. ممكن لو مفيهاش تعب تشرحها لى وأكون شاكر جدا لتعبك

وهل يمكن شرح دالتين math & index وكيفية الاستفادة منهما

[رجب جاويش]

أخى الفاضل / ابو سلام

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

أخى الفاضل / gfranses

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

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

بالنسبة للطلب الثانى الخاص بشرح الدالتين math & index

هذا الرابط يحتوى على شرح الدالة index

http://www.officena....showtopic=37497

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

http://www.officena....ds&showfile=133

من اعداد الرائعين

الاستاذ / محمد يحياوى

والاستاذ / عيد مصطفى

[أبو ردينة]

اللهم أنفع أخي رجب جاويش و كل أحبتي بالعلم النافع و العمل الصالح - آمين

[رجب جاويش]

جزاك الله كل خير أخى الحبيب / أبو ردينة

[اوفيس 2003]

اكثر من راااااااااااااااااااااائع

[مهند 2002]

الاخ رجب

هذه اول كلمات لي في الموقع

اقول شكرا لجهودك وعطائك المميز ....

[رجب جاويش]

أخى الفاضل/ office 2003

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

أخى الفاضل/ مهند 2002

مرحبا بك أخا كريما فى هذا المنتدى الرائع بين أحبابك

وجزاك الله كل خير على كلماتك الرقيقة

[مدريدي عمان]

شكرا استاذ رجب ما شاء الله عليك الله يزيدك من فضله