طارق عبد الحكيم

السلام عليكم

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

ما عليك فقط هو الذهاب Module1 في السطر

    vartimer = Format(Now + TimeSerial(0, 0, 3), "hh:mm:ss")

(0.0.3) الأول (0) ساعات والثاني(0) دقائق والثالث (3) ثواني

بالتوفيق

الذهاب الى صفحة بعد مدة معينة - تجربة1.rar

السلام عليكم

أخي الكريم أعتقد أن طلبك يستوجب الدالة : CONCATENATE وتكون بالشكل التالي

=CONCATENATE(A2;"";B2)

=CONCATENATE(A2;"";B2;"";E2;"";F2;"";G2;"";H2;"";I2;"";J2;"";K2;"";L2;"";M2;"";N2;"";O2)

بالتوفيق

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

في بادئ الأمر يجب أن أشكر هذا المنتدى والقائمين عليه حيث تعلمنا ولا زلنا نتعلم منهم الكثير , فلأفضالكم علينا لا تنتهي

واليوم جئتكم طامعا في معونتكم وعونكم :

حيث انه عندي جدول لمدرسة واريد ملأ النماذج حسب معطيات مسبقة بعد ان أقوم بتوزيع الحصص على المدرسين والأقسام ( يدويا )

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

1: 1ج آ1 دراسات

2: 1ج آ1 دراسات

3: 1ج آ2 دراسات

4: 2آف عربية

5: 1ج ع1 عربية

6: 1ج ع2 تربية فنية

- نموذج جدول الأقسام . ( حسب الخطة الموزعة كمثال ) بالجدول المرفق في الورقة أساسية

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

طلب الجدول.rar

السلام عليكم

هذه محاولة مني أخي الكريم ارجوا أن أكون وفقت في ايصالك للمطلوب

ويبقى اجتهاد

H.rar

السلام عليكم

هذا كود للانتقال بين الصفحات ( الأوراق ) .... لاحظ ندما تضيف ورقة جديدة سوف تجدها في الزر الإنتقال إلى

هذا والله أعلم

السلام عليكم

وهذه محاولة مني أخي الكريم والله الموفق

قوائم جديد.rar

مشكور اخي هو المطلوب

السلام عليكم

ابطالنا الأشاوس اريد مساعدتكم في ترتيب عمود بالنسبة لبيانات معينة

الشرح موجود بالمرفق

ولكم جزيل الشكر

دالة ترتيب.rar

سلام

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

السلام عليكم

بالنسبة لي لقد جربت فتحه في عدة اجهزة وعلى نسخ متعددة حتي اوفيس 2003 وهو عادي

كما انني ممتن لكم جميعا فالحقيقة تقال تعلمت منكم الكثير ولازلت ..

رغم عدم حصولي عن ضالتي

احمدزمان شكرا جزيلا

بدون تعليق ؟؟؟؟؟؟؟؟

السلام عليكم

لقد تم حفظه بصيغة أوفيس 2007 وفتحته

لا اعرف المشكل ... اين

المطلوب باختصار : دالة للبحث بشرطين عن هدف معين

Book2.rar

الرجاء المساعدة

السلام عليكم

اولا شكرا على التجاوب وعلى الاهتمام

ثانا المطلوب موجود بالورقة جداول

- مواقيت الاقسام :

عند تغيير المعطيات في خانة القسم يتم ملأ معطيات الجدول ( مواقيت الأقسام ) حسب الموجود بالورقة التوقيت

- في العمود اسم الأستاذ : يتم استدعاء الاستاذ المناسب للمادة التي يدرسها الفوج

- مع مراعات أنه قد يكون لنفس المادة استاذان وكما أن الأستاذ قد يقوم بتدريس اكثر من مادة ( ورقة أساسية )

- مواقيت الاساتذة :

عند تغيير المعطيات في خانة اسم الاستاذ يتم ملأ معطيات الجدول ( مواقيت الأساتذة ) حسب الموجود بالورقة التوقيت بالاعتماد على اسم الاستاذ

- حيث يقوم بالبحث في جدول التوقيت عن أفواج " فصول" الأستاذ ووضعها حسب الحصص ومادة التدريس ومن الورقة اساسية يتم جلب مادة التدريس في العمود مادة التدريس بالاعتماد على الفوج / الفصل

Book2.rar

السلام عليكم

اخواني لدي مشكل بهذا الملف الذي احتاجهاكثر مما تتصورون

فيه شبه من الجداول المدرسية : حيث اننه واجهتني مشكلة في تحديد الاستاذ المعين للفصل ذاته ولم افلح بدالة VLOOKUP لان البحث متشعب ومتعدد ل\ا ارجوا منكم مساعدتي واملي فيكم كبير

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

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

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

Book2.rar

النت ضعيفة آسف جدا

السلام عليكم

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

1 - في صفحة ServisPro يتم استدعاء البيانات حسب رقم معين وهو يتم بالفعل لكن المشكلة الفراغات حيث انني اريد تخطي الخلايا الفارغة بحيث يتم ترتيت البيانات تحت بعض

2 - في الصفحة BDonne اريد ربط قائمة منسدلة باخري بحيث يجلب افواج الاستاذ المعين فقط ...

اخيرا : عندي سؤال عن الدالة If المتعددة حيث حاولت تطبيقها ولكن هناك خطأ

=IF(EL25=0;EL26;IF(EL26=0;EL27;IF(EL27=0;EL25)))

=IF(EL25=0;EL26;IF(EL26=0;EL27;IF(EL27=0;EL25)))

ا>ذ اني اريد :

- اذا كانت الخلية1 = 0 اظهر الخلية 2 واذا كانت الخلية 2 =0 اظهر الخلية 3 واذا كانت الخلية 3 = 0 اظهر0

- اذا كانت الخلية1 واذا كانت الخلية 2 =0 اظهر الخلية 3 والا الخلية 1 أو 2

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

السلام عليكم

اشكرك اخي عبد الله على الاهتمام كما اشكرك اخ nono2011 على الرد وسرعة التجاوب

هو كما قال nono2011 :

يضع الاسم الثاني تحته الاسم الأول ولكن بعد تجميع بانات الأول وهكذا

اقصد يضع الاسم الثاني بعد الخلية التي ينتهي بها تجميع معلومات الاسم الاول

لنفترض أن للاسم الاول 7 معطيات يعني يكون الاسم الثاني في السطر 8 وتقابله معلوماته وهكذا دواليت

السلام عليكم

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

واعانكم الله على فعل الخير وتيسر الامور ....

اخوكم في زنقة مع الاكسل ... رغم انني استفدت منكم وتعلمت الكثير لكنني لست خبيرا او ضليعا بالاكواد Vb او الماكرو

ولكن الحمد لله لوجود منتداكم ونحن نتعلم

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

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

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

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

وأجركم على الله

تسوية.rar

السلام عليكم اخي علي ...

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

الى ان وصلت لحل على طريقتي .... ولكن طريقتك طبعا احسن وايسر ... بدون مجاملة

فانني اتشرف بان تنظر لطريقتي وتعطيني رايك فيها

بقيت لديا مشكلة واحدة وهي بسيطة :

عندما تكون الخلية A3 =2 أريد ان يتم مسح محتوي الخلايا : G10,L10

أما إذا كانتA3 =1 أريد ان يتم مسح محتوي الخلايا : E11;L12 - I10;L10

وعلي كل حال فاني اشكرك من صميم قلبي ... واتمني منك ان تطلع على محاولتي وتوجيهي

addoraمن إحصائية شهرية.rar

السلام عليكم

أخ علي شكرا على التجاوب منك ... وشكرا لهذا المنتدي الرائع الذي منه نتعلم كثيرا

ولكن عندي مشكل بهذا الكود لو تطلع عليه :

Sub Ab1_Ahmed()


If Range("F5") = 1 Then

Range("d18:d114,f18:f114,h18:h114").ClearContents

For I = 5 To 6

For x = 1 To Cells(10, I).Value

				  Cells(Range("d10000").End(xlUp).Row + 1, 4) = Cells(9, I)

For m = 5 To 12

For k = 1 To Cells(11, I).Value

				  Cells(Range("d10000").End(xlUp).Row + 1, 4) = Cells(9, I)

For n = 5 To 12

For l = 1 To Cells(12, I).Value

				  Cells(Range("d10000").End(xlUp).Row + 1, 4) = Cells(9, I)


Next x

Next I

Next k

Next m

Next l

Next n

  Else


Range("d18:d114").ClearContents

For I = 5 To 8

For x = 1 To Cells(10, I).Value

				  Cells(Range("d10000").End(xlUp).Row + 1, 4) = Cells(9, I)


Next x

Next I

   End If

End Sub

- اخي الكريم المطلوب موجود بالمرفق وفي الورقة رقم 02

وشكرا سلفا وانا بدوري احاول ان اجد الحل

من إحصائية شهرية.rar

السلام عليكم ....

أولا اشكر الجميع على هذا الموضوع لكن لاحظت مشكل بسيط لو تكرمتم بحله...

مع العلم أنني احاول بدوري لايجاد حل له...

- المشكل هو :

- في حالة ترك خانة فارغة " مثلا : الصف الثالث غير موجود " , يحدث خلل في التوزيع ولا تكمل العملية

لذا نطلب منكم اخوتي الحل : يعني لو نترك صف فارغ أو "0" يتم توزيع الذي قبله والذي بعده

السلام عليكم

أخي الكريم جرب المرفق عسي يكون حلك

موجود به

نموذج.rar

السلام عليكم

اخي علي لم انتبه وآسف للازعاج

المطلوب موجود في الورقة رقم 2 لو تكرمت

إحصائية شهري3ة.rar

السلام عليكم

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

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

وشكرا سلفا

إحصائية شهري3ة.rar

السلام عليكم

أخي الكريم شوف المرفق أنا عدلت لك فيه

وأنشاء الله يكون المطلوب

rrr.zip