احمدزمان

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

اخي جمال

في المرفق

تم تعديل كامل ورقة خامس

سوف تكون البيانات متتالية في الورقة بدون فواصل
عند الطباعة سوف يظهر الصفوف الخمسة الأولى في كل ورقة

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

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

ويبقى نقل البيانات غدا ان شاء الله تعالى

مع التحية و التقدير

____________.rar

السلام عليكم

المرفق به ملفين
ملف اكسل بة مثال الطريقة الأخرى للبحث في ورقة جديدة مع استخراج جميع النتائج (من اعداد الأستاذ ابوتامر)
ملف وورد به شرح كامل مع الصور عن طريقة عمل صفحة بداية وعمل ماكرو و تحرير الماكرو و طريقة الحفظ بالماكرو وغير ذلك (للأستاذ القدير هادي سالم)
الملف الثاني ضروري جدا قرائته كاملا وسوف يغنيك عن الكثير من الأسئلة في الماكرو

مع التحية





saerch.rar

و هكذا افضل

New_Microsoft_Excel_Worksheet.rar

اخي الفاضل

لقد تم وضع الحل ب 3 طرق مختلف
وتم تجربته وهو شغال 100×100

ولقد تم وضعة في موضوع جديد لتعم الفائدة على الجميع

اضغط هنا للوصول الى الموضوع وبة الحل المطلوب

http://www.officena.net/ib/index.php?s=&am...st&p=125447

مع التحية و التقدير

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

الملف المرفق هو 2007 ولم استطع التعامل معه

ولكن لدي هذا الملف المرفق
تم استخدام valdation التحقق من صحة

جرب الأعمدة السبعة الأولى

آمل ان يكون هذا المطلوب


_____________________20.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏‏‏السبت‏، 29‏/12‏/1429هـ. الموافق ‏27‏/12‏/08م


استاذي aah_aah2008

الف الف شكر وتقدير
جزاك الله كل خير

وهذه فكرة اخرى ارجو ان تنال رضاكم

Invoice2.rar

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

هذا ماتعلمته من

الأستاذ الفاضل ابو تامر لإستخراج اكبر قيمة متغير عن طريق صفيفة

والأستاذ الفاضل خبور من دروس الترحيل

شاهد المرفق
آمل ان يكون به ماتريد

slr.rar

شاهد الملف المرفق

حول نفس الموضوع

هو قديم جدا
و
ولكن به افكار قد تنفعك مثل
تحديد قيمة ادنى قيمة لليومية بحيث لاتنقص عنها
تحديد قيمة الكيلو الزائد
تحديد مقدار الكيلو الزائد لليوم

وغير ذلك


________AG_c3.rar

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

اخي الفاضل

جرب المرفق ان شاء الله هو المطلوب

_______11.rar

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

تم تعديل الكود ليشمل الفرز عمود الأسماء كما هو في الطلب

الملف المرفق

Test.rar

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

الأخ علي
كما ذكرت لك سابقا
ولكن تم عمل حل مؤقة الى ان تصل الى ماتريد بالضبض

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

_______112.rar

السلام عليكم

الرمز مرفق
الرمز.rar

السلام عليكم و رحمة الله وبركاته
في الخلية M1
غير كلمة البيان الى نوع العملية
حيث ان الجدول لا يوجد به كلمة البيان
 
مع التحية
 

السلام عليكم و رحمة الله وبركاته
ضع الدالة
=SUM(N4;C5;K5)-SUM(G5;L5) ثم اسحبها للاسفل
مع التحية
 

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

 
Sub Add_One() Dim FR For FR = 10 To 50 Cells(FR, 3) = Val(Cells(FR, 3)) + 1 Next MsgBox "plus 1 add to all" End Sub  
زائد1.xlsm

و عليكم السلام و رحمة الله و بركاته
تقبل الله من الجميع
 
=INDEX(D3:M3;;MATCH(MAX(D5:M5);D5:M5;0))  
اعلى-ادنى.xlsx

اخي عبدالله كللامك مظبوط
يوجد خطاء تم تعديله
و كان الخطاء في الحلقة الدائرية للتاكد من خلو الخلية الهدف من اي بيانات للكتابه بها
سامحنا ... كل ابن آدم خطاء
البرنامج.xlsm

السلام عليكم و رحمة الله وبركاته
بالاضافة الى حل اخي الفاضل عبدالله جزاه الله خيرا
هذا حل آخر بطريقة اخرى
مع التحية
test01.xlsx

العفو
تم اضافة المسح للخلايا المرحلة
تم التعديل
المصنف1.xlsm

و عليكم السلام و رحمة الله وبركاته
بعد اذن الاستاذ نذار
اخي ابو جاسم
هذا حل بطريقة اخرى
تم اضافة عمود AM في ورقة المارينا لجلب البيانات الى ورقة تقرير
شاهد المرفق
غير التاريخ تظهر النتائج
و لكم تحياتي
june (1).xlsx

الله يكرمك و يوسع عليك
تم عمل الكود وهو يعمل بالترتيب التالي
فرز و تيب البيانات حسب العمود L التاريخ و الوقت
تثبيت قيم التاريخ و اليوم بحيث تصبح بدون دوال
اضافة الدوال للصفوف التي ليس بها دوال
Dim ER, RN1 As Range ActiveWindow.ScrollRow = 6 Range("A5:O6000").Sort Key1:=Range("L5"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal For Each RN1 In Range("L5:M6000") If RN1.HasFormula And RN1 <> "" Then _ RN1 = RN1.Value Next Range("L3:M3").Copy ER = Application.CountA(Range("A:A")) + 9 For FR = 5 To ER If Cells(FR, 12) = "" Then _ Cells(FR, 12).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Next 'FR Application.CutCopyMode = False مع التحية
Export--TAAM1.xls

السلام عليكم و رحمة الله وبركاته
بعد اذن الاخ هشام
في الملف المرفق
اكتب اي جزء من الاسم الذي تريدة
سوف تعمل التصفية تلقائيا على استخراج المطلوب
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then Dim ER, FF, RN1 As Range ER = ActiveSheet.UsedRange.Rows.Count + 9 Set RN1 = Range("A9:V" & ER) FF = Range("B5").Text If FF = "" Then RN1.AutoFilter Field:=2 Else FF = "*" & FF & "*" RN1.AutoFilter Field:=2, Criteria1:=FF, Operator:=xlOr, _ Criteria2:="=" End If Range("B5").Select End If End Sub حساب عدد ايام العمل (1).xlsm

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

مرفق الملف مع الاكواد
كود لمسح كامل النموذج
اضغط على الفرشاة للتنظيف
Range("J2:M2").ClearContents Range("A8") = "" Range("B8") = "" Range("C8") = "" Range("E8") = "" Range("B11:H319").ClearContents ActiveWindow.LargeScroll Down:=-99 كود للبحث
اضغط على البحث
تم اضافة خلايا جانبيه مع بعض الدوال لعمل الكود للبحث
Dim TC, RN1 As Range, RN2 As Range, RN3 As Range Range("J2:M2").ClearContents For TC = 10 To 13 If Cells(3, TC) = "" Then GoTo 9 Else Cells(2, TC) = Cells(3, TC).Value End If 9 Next 'tr Set RN1 = Sheets("DATA").Range("B5:J55555") Set RN2 = Sheets("Dates").Range("J1:M2") Set RN3 = Sheets("Dates").Range("B10:H555") RN1.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=False انظر المرفق
N BANK.xlsm

السلام عليكم ... جرب
يومية امريكية وميزان مراجعة.xlsm