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

احسنت اخي حسين هذا ما عنيته جزاك الله خيرا تقبلوا تحياتي وشكري

الله اعلم هل هذا خلل بالكود ام ان ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده لا ليس خلل بالكود انما مثل ما ذكرت ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده لكن يمكنك اضافة نتائج البحث في متغير جدول (مصفوفة) وتستخدم الامر ادناه لاضافة الجدول الى اللست Me.ListBox1.Column = Ary او الامر Me.ListBox1.List = Ary تحياتي

السلام عليكم الله اعلم

السلام عليكم بهذه الطريقة لا يمكنك اضافة اكثر من عشرة اعمدة الى اللست بوكس المعنى هذه الاسطر لا تعمل Me.Controls("ListBox" & x).List(v, 10) = ws.Cells(i, 22).Value Me.Controls("ListBox" & x).List(v, 11) = ws.Cells(i, 24).Value Me.Controls("ListBox" & x).List(v, 12) = ws.Cells(i, 25).Value ولا يظهر الخطأ بسبب هذا السطر الذي يمرر الخطا On Error Resume Next تحياتي

السلام عليكم عمل رائع جدا اخي حسين............جزاكم الله خيرا فقط اثراءا للموضوع ولاني كنت اعمل على هذا المرفق قبل ان ارى مشاركتك اشارك بما لدي تنوعا للحلول المرفق 2010 تقسيم الشهر.rar

السلام عليكم جزاكم الله خيرا جمعة مباركة تقبلوا تحياتي وشكري

السلامعليكم ورحمة الله وبركاته الاخت الفاضلة /أم عبدالله...........حفظكم الله الف مليووووون مبروك والى الامام دوما........ تقبلوا تحياتي وشكري

عند الضغط على زر GO ينقلك الى الاسم فى شيت الاسماء المرفق 2003 Copy of عملاء201114.rar

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

السلام عليكم الشكرواصل للاخ حسين ........حفظه الله ائراءا للموضوع هذه دالة بالكود Option Explicit Function kh_EDateHijri(sDate, Months As Integer) Dim MyDate As Date Calendar = vbCalHijri '---------------------- MyDate = DateSerial(Year(sDate), Month(sDate) + Months + 1, 0) If Day(MyDate) = 1 Then MyDate = MyDate - 1 '---------------------- kh_EDateHijri = Format(MyDate, "dd/mm/yyyy") '---------------------- Calendar = vbCalGreg End Function المرفق 2003 الفترة لآخر الشهر بعدد اشهر معين (هجري(.rar

السلام عليكم اخي احمد الدالة IFERROR غير موجودة في 2003 والبديل ادناه =IF(ISERROR(VLOOKUP(B7;ٍٍٍSsheet!$B$8:$C$10000;2;0));"";VLOOKUP(B7;ٍٍٍSsheet!$B$8:$C$10000;2;0)) تحياتي

السلام عليكم الشكر واصل لاخي الحبيب ابو حنين هذا تعديل طفيف على الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A1").Value = Evaluate("SUM(" & Target.Address & ")") End Sub تحياتي

السلام عليكم جزاكم الله خيرا شاهد المرفق 2010 mzm1.rar

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

غير كود زر البجث بهذا Private Sub ButtonSerach_Click() Dim tb1 As Boolean, ib As Boolean Dim R As Long, c As Integer Dim MyFind, MySrch, MyVelue '''''''''''''''''''''' Me.ListFind.Clear If Len(Trim(Me.TextFind)) = 0 Then Exit Sub ''''''''''''''''''''' c = Me.BoxFind.ListIndex + 1 tb1 = CBool(Me.CheckFindDate.Value = True) If tb1 Then If Not IsDate(Me.TextFind) Then kh_SetDate Me.TextFind MyFind = CDbl(CDate(Me.TextFind)) Else MyFind = Me.TextFind.Value End If ''''''''''''''''''''''' With MyRngdate.Cells(2, Ar(c)) For R = 1 To ContRow If Len(Trim(.Cells(R, 1))) Then If tb1 Then MySrch = .Cells(R, 1).Value2 Else MySrch = .Cells(R, 1).Value ib = InStr(1, MySrch, MyFind, vbTextCompare) If ib Then MyVelue = .Cells(R, 1).Value If IsDate(MyVelue) Then MyVelue = Format(MyVelue, DtF) Me.ListFind.AddItem MyVelue Me.ListFind.List(Me.ListFind.ListCount - 1, 1) = R End If End If Next End With Me.LblFindCount = Me.ListFind.ListCount ''''''''''''''''''''''''' End Sub تحياتي

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

هكذا يحصل مع اي عمود فيه معادلات للحفاظ على المعادلة من التغيير.........!! تحياتي

شاهد المرفق 2003 تحويل التاريخ الهجري الى ميلادي.rar

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

استخدم الكود في المشاركة 14 تجياتي

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

السلام عليكم جرب هذا الكود لكتابة الحروف العربية فقط Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!أ-ي]" And ChrW(KeyAscii) <> " " Then KeyAscii = 0 End Sub تحياتي

السلام عليكم لاثراء الموضوع تبدا السنوات في القائمة من اول سنة حالية بواقع عشر سنوات شاهد المرفق 2003 تقويم هجري.rar

السلام عليكم اخي الفاضل حمادة باشا ...........حفظكم الله جهد رائع وكرم واسع .........جزاكم الله خيرا تقبلوا تحياتي وشكري

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