عبدالله باقشير

السلام عليكم الاخ الفاضل/ خالد القدس-------- حفظه الله ولك امثال دعائك اضعاف مضاعفة تقبل شكري وتقديري ============================= الاخ الفاضل/ obad65-------- حفظه الله تقبل شكري وتقديري ============================= الاخ الفاضل/ احمد-------- حفظه الله ولك امثال دعائك اضعاف مضاعفة تقبل شكري وتقديري ============================= الاخ الفاضل/ قصي-------- حفظه الله تم التغيير بحيث انه يتم لصق البيانات بثلاثة معايير لصق عرض الاعمدة لصق التنسيقات لصق القيم يمكنك حذف مالا تريده ما عدى القيم طبعا في الكود التالي: Private Sub Kh_Start(iColumn As Integer) Dim RCount As Long, C As Integer C = Cells(iRow, Columns.Count).End(xlToLeft).Column + 1 With MyRng RCount = .Rows.Count .Cells(1, iColumn).Resize(RCount, 1).Copy ' لصق عرض الاعمدة Cells(iRow, C).PasteSpecial xlPasteColumnWidths ' لصق الفورمات Cells(iRow, C).PasteSpecial xlPasteFormats ' لصق القيم Cells(iRow, C).PasteSpecial xlPasteValues Application.CutCopyMode = False End With End Sub تقبل شكري وتقديري خبور خير اعداد تقرير حسب اختيار الاعمدة اتوماتيكيا1.rar

السلام عليكم شاهد الرابط التالي: http://www.officena.net/ib/index.php?showtopic=33614 خبور خير

السلام عليكم اعداد تقرير من نطاق معين اتوماتيكيا عن طريق فورم لاختيار رؤوس الاعمدة التي تريده في التقرير ما عليك سوى تغيير اسم الورقة والعمود الذي يعين آخر صف في النطاق والنطاق هنا: Private Sub kh_MyRngSet() Dim Last As Long '======================== ' تعيين النطاق ويشمل رؤوس الاعمدة With Sheets("قاعدة البيانات") Last = .Range("C" & .Rows.Count).End(xlUp).Row Set MyRng = .Range("A2:Z" & Last) End With '======================== Num = MyRng.Columns.Count End Sub وتعيين اول صف في ورقة التقرير هنا: '======================== ' اول صف للتقرير Const iRow As Integer = 3 '======================== خبور خير اعداد تقرير حسب اختيار الاعمدة اتوماتيكيا.rar

السلام عليكم الاخ الفاضل/احمد حفظه الله الاخ الحبيب /ابو عبدالله حفظه الله الاخ الفاضل/ قصي حفظه الله الاخ الفاضل/ كيماس حفظه الله شكرا لمروركم الكريم بارك الله فيكم تقبلوا تحياتي وشكري ==================================== الاخ الحبيب /عادل حفظه الله بارك الله فيك اخي الكريم شرح وافي ومفهوم جزاك الله خيرا تقبل تحياتي وشكري

======================== الاخ الفاضل / wael700 ========================

السلام عليكم بارك الله فيك اخي الحبيب عادل ولاثراء الموضوع تفضل المرفق خبور خير الموظفين.rar

======================== الاخ الحبيب/ الحسامي ========================

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

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

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

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

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

======================== الاخ الحبيب/ ابو عبدالله ======================== ======================== شهر كريم وكل عام والجميع بخير ========================

======================== الاخ الحبيب/ زيادعلي ======================== ملف رائع جداً جداً اكرمك الله و

السلام عليكم الشكر واصل للاخ الحبيب طارق تفضل المرفق ترحيل اسماء الطلبة على ثمان مراحل.rar

السلام عليكم شاهد المرفق DATA3.rar

السلام عليكم استخراج تاريخ الميلاد من الرقم القومي وهي طلب للاخ الحبيب الاستاذ محمدي عبد السميع يطريقتين : اولا : بالمعادلات =DATE(IF(LEFT($B6;1)="2";MID($B6;2;2);"20"&MID($B6;2;2));MID($B6;4;2);MID($B6;6;2)) ============================= ثانيا: بالكود بدالة Kh_MyDate Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالـــــــــــــــة ' استخلاص تاريخ الميلاد من الرقم القومي '========================================" '========================================" '----------------------------------------------------------------- Function Kh_MyDate(MyNumber As Variant) As Date Dim D As String, M As String, Y As String, TY As String On Error GoTo Err_Kh_MyDate D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) If TY = "2" Then Else Y = "20" & Y Kh_MyDate = DateSerial(Y, M, D) Exit Function Err_Kh_MyDate: Kh_MyDate = "" End Function جعلتها هنا لتعم الفائدة للجميع خبور خير دالة استخلاص تاريخ الميلاد من الرقم القومي.rar

السلام عليكم بحث بثلاثة معايير حسب الاختيار مع اضافة نتيجة البحث في الصف المحدد على الورقة النشطة طلب لاحدهم جعلته هنا لتعم الفائدة خبور خير بحث بثلاثة معايير مع نسخ بيانات1.rar

السلام عليكم تم تعديل السطر الثامن من الكود With Sheets("Sheet3").Cells(300, lastcol).End(xlUp) =============================================== Private Sub CommandButton4_Click() For lastcol = 1 To Sheet3.Cells(1, Sheet3.Columns.Count).End(xlToLeft).Column If Cells(1, lastcol).Value > "0" Then For x = 1 To Sheets.Count If Sheets(x).Name = "Sheet3" Then Exit For If Sheets(x).Name = Cells(1, lastcol).Text Then For r = 1 To Sheets(x).[a300].End(xlUp).Row With Sheets("Sheet3").Cells(300, lastcol).End(xlUp) .Offset(1, 0) = Sheets(x).Cells(r, 1) .Offset(1, 1) = Sheets(x).Cells(r, 2) End With Next r End If Next x End If Next lastcol End Sub شاهد المرفق استدعاء بيانات مع وضع البيانات المستدعاة اسفل المعيار الخاص بها.rar

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

السلام عليكم دالة استخراج اسم ولي الامر كاملا او الاسم الاول مفردا Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالة استخراج اسم ولي الأمر " '========================================" ' True = kh_First اذا كان " ' او اي رقم غير الصفر " ' تقوم باستخراج الاسم الاول " '========================================" ' يامكانية معالجة الاسم المركب الاول " ' تلقائياً حسب معايير معرفة لديها " ' Kh_Father_Replace في الدالة " ' ويمكنك اضافة اي معيار آخر " ' بجانب المعايير الموجودة " ' MyArray في المتغير " ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '========================================" '----------------------------------------------------------------- Function Kh_Father_Name(ByVal Name As String, Optional kh_First As Boolean) As String Dim KhString As String, Kh_Mid As String, Kh_Rep As String Dim KhMyNo As Integer On Error GoTo Err_Kh_Father_Name If IsEmpty(Name) Then GoTo Err_Kh_Father_Name KhString = Kh_Father_Replace(Trim(Name)) & " " KhMyNo = InStr(1, KhString, " ", 1) If kh_First Then Kh_Mid = Trim(Mid(KhString, 1, KhMyNo)) Else _ Kh_Mid = Trim(Mid(KhString, KhMyNo, Len(KhString))) Kh_Rep = Replace(Kh_Mid, "^", " ") Kh_Father_Name = Kh_Rep Exit Function Err_Kh_Father_Name: Kh_Father_Name = "" End Function Private Function Kh_Father_Replace(ByVal Kh_Sub As String) As String Dim MyArray, Ar Dim Sn As String, Re As String '==================================================== ' يمكنك اضافة اي معيار آخر هنا بجانب المعايير الموجودة MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله" _ , " الدين", " الإسلام", " الاسلام", " الحق") '==================================================== Sn = Kh_Sub For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next Kh_Father_Replace = Sn End Function خبور خير استخراج اسم ولي الامر كاملا او الاسم الاول مفردا.rar

======================== الاخ الحبيب/ ياسر خليل بصراحة ابداع بلا حدود جزاك الله خيراً و

======================== الاخ الفاضل / kemas ========================

======================== الاخ الحبيب/ ياسر خليل ======================== عمل وشرح رائع جداً جداً سلمت يداك و

السلام عليكم =MID(CELL("filename";'خبور خير'!$A$1);FIND("]";CELL("filename";'خبور خير'!$A$1))+1;256) شاهد المرفق استخراج اسماء الاوراق.rar