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

السلام عليكم غير رؤووس الاعمدة التي تريدها في كود اظهار الفورم مثلا هذا التغيير حسب ملفك Sub kh_Show_UFormChang2() On Error GoTo 1 With UFormChang .kh_SetAddrss "سجل الدخول والخروج", "B1:Q1", "A1" .Show End With 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End Sub هذا تعديل على الملف السابق شاهد المرفق 2003 مشروع سجل الدخول والخروج.rar

السلام عليكم لقد اخبرتك ان الترتيب يتم تلقائيا في الكود عن طريق المتغير M لهذه ليس هناك علاقة للمستخدم في الترتيب ولكن اذا تريد اظهار الترتيب في الخلية (c5) ادخل المعادلة التالية في هذه الخلية =MAX(الأرشيف!A:A)+1 تحياتي

السلام عليكم اخي لا تكرر المواضيع لنفس الطلب سيتم دمج الموضوعين

السلام عليك جرب المعادلة التالية بعد وضعها في الخلية C3 =IF(ISERROR(VLOOKUP(A3;$D$3:$E$1000;2;0));"غير موجود";IF(VLOOKUP(A3;$D$3:$E$1000;2;0)=B3;"مطابق";"غير مطابق")) تحياتي

لكن لا يتم توثيق التسلسل عن طريق هذه الخلية وانما التسلسل يتم تلقائيا بالمتغير M

وعليكم السلام M = .Cells(.Rows.Count, "A").End(xlUp).Row هذا السطر يعطيك رقم آخر صف في العمود A .Cells(M + 1, 1).Resize(1, 12).Value = Ary نقل القيم في الضفيف Ary الى الصف الاخير زايدا واحد في العمود A بمقدار صف واحد و12 عمود في امان الله

السلام عليكم شاهد المرفق 2003 برنامج لجنة شؤون الحلقات1.rar

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

السلام عليكم ما هو عمود معيار التكرار ؟

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

السلام عليكم لعلي فهمت الطلب جرب المعادلة التالية بعد وضعها في الخلية C3 =IF(AND(A3=D3;B3=E3);"مطابق";"غير مطابق") تحياتي

السلام عليكم ضع الكود التالي في موديل الورقة التي تعمل عليها Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F5:F100,H5:H100,J5:J100,L5:L100")) Is Nothing Then If Target = "" Then Target.Offset(0, 1).Value = "" Else Target.Offset(0, 1).Value = Date End If End If End Sub المرفق 2003 اقساط عميل.rar

السلام عليكم جرب المعادلات التالية معادلة اليوم =MOD(MOD(DAYS360(F4;H4);360);30) معادلة الشهر =INT(MOD(DAYS360(F4;H4);360)/30) معادلة السنة =INT(DAYS360(F4;H4)/360) المرفق 2010 date1.rar

السلام عليكم جرب الكود التالي Sub kh_trheel() Dim Ary Dim M As Long With ورقة4 M = .Cells(.Rows.Count, "A").End(xlUp).Row Ary = Array(M, [E14], [C11], [J11], [D12], [I12], [G13], [D15], [J15], [I17], [A20], [J20]) .Cells(M + 1, 1).Resize(1, 12).Value = Ary End With End Sub واشعرنا بالنتيجة

انا شغلته على اوفيس 2003 و2010 وهويعمل تمام لا ادري المشكلة عندك وقد جاءك تاكيد من الاخ dah_med

الكود يعمل تمام التمام تاكد انت من تفعيل الماكرو او من صحة اختياراتك للفصول الموجودة في الملف ARCHIVE تحياتي

السلام عليكم اولا يجب عدم تكرار المواضيع ======================= بالنسبة للطلب يجب فتح الملف ARCHIVE ' عدد الاعمدة Private Const Cont As Integer = 7 Sub kh_Find() Dim sh As Worksheet Dim Ary() Dim Lr As Integer, R As Integer, RR As Integer Dim Txt As String Lr = Cells(Rows.Count, "E").End(xlUp).Row If Lr > 9 Then Range("E10:K" & Lr).ClearContents On Error GoTo 2 Set sh = Workbooks("ARCHIVE").Sheets("Feuil1") Txt = [H7] With sh Lr = .Cells(.Rows.Count, "A").End(xlUp).Row ReDim Ary(1 To Lr, 1 To Cont) For R = 2 To Lr If CStr(.Cells(R, "G")) = Txt Then RR = RR + 1 Ary(RR, 1) = RR Ary(RR, 2) = .Cells(R, "B").Value Ary(RR, 3) = .Cells(R, "C").Value & " " & .Cells(R, "D").Value Ary(RR, 4) = .Cells(R, "H").Value Ary(RR, 5) = .Cells(R, "K").Value Ary(RR, 6) = .Cells(R, "J").Value Ary(RR, 7) = .Cells(R, "I").Value End If Next End With If RR Then Range("E10").Resize(RR, Cont).Value = Ary 2: Set sh = Nothing Erase Ary End Sub شاهد المرفق 2003 ALMO3IN.rar

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

الكود في موديل الورقة ويتم التشغيل عند اختيار الفصل من القائمة في الخلية F2 ورقم العمود في الخلية A1 ويتعامل الكود مع النطاق data Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer, RR As Integer, CC As Integer If Target.Address = Range("F2").Address Then CC = [A1] Application.ScreenUpdating = False Range("A10:A300").ClearContents With ThisWorkbook.Names("data").RefersToRange For R = 1 To .Rows.Count If CStr(Target) = CStr(.Cells(R, CC)) Then RR = RR + 1 Range("A10").Cells(RR, 1).Value = R End If Next End With Application.ScreenUpdating = True End If End Sub شاهد المرفق 2003 دادموني1.rar

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

نعم ...في نهاية الكود

السلام عليكم استخدم هذا With Me.ListBox1 If .ListCount Then .ListIndex = 0 .SetFocus End If End With تحياتي

السلام عليكم ضع المعادلة التالية في الخلية J7 واسحبها على باقي الخلايا =RANK(I7;$I$7:$I$10) تحياتي

السلام عليكم تم استبدال المعادلة بمعادلة خفيفة الحجم =MATCH($F$2;OFFSET(ةالفصل;$A9;;ROWS(ةالفصل)-$A9);0)+$A9 وتم استبدل المعادلات في الجدول بمعادلات خفيفة الحجم جرب الملف واشعرني بالنتيجة شاهد المرفق2003 دادموني.rar

=DATE(YEAR(TODAY());1;1) تحياتي