عبدالسلام ابوالعوافي

=IF(--LEFT(A2;2)=11;"مصري";IF(--LEFT(A2;2)=22;"سعودي";"يمني"))

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

حسب الاكواد.. ابدا في الشغل وان شاء الله لو واجهنا كود يحتاج تعديل او اختصار بخبرك ..

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

وايضا Sub Awafi() Dim i As Integer, ii As Integer, iii As Integer Dim s1 As String, s2 As String, s3 As String, s As String For i = 4 To 1000 s1 = "": s2 = "": s3 = "" If Cells(i, "g") = "" Then Exit For iii = Len(Cells(i, "g")) For ii = 1 To iii s = Mid(Cells(i, "g"), ii, 1) If s = " " Then s1 = s1 & s: s2 = s2 & s: s3 = s3 & s If s < "A" Then s3 = s3 & s ElseIf s > "z" Then s2 = s2 & s Else s1 = s1 & s End If Next ii Cells(i, "m") = Trim(s1) Cells(i, "n") = Trim(s2) Cells(i, "o") = Trim(s3) Next i End Sub

افتقدناك استاذ ياسر .. اليوم دبت الحياة في المنتدى من جديد ^_^ كود اخر لاثراء الموضوع Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer For i = 9 To 1000 If Cells(i, 2) & "" = "" Then Exit For Cells(i, 1) = i - 8 Next End Sub

نعم

جرب طباعة كل كود فى ورقة مستقلة ابو العوافى.rar

جرب هذا الكود لعله المطلوب Sub awafi() Dim i As Integer For i = 2 To 100 If Len(Cells(i, 2)) = 0 Then Exit For If WorksheetFunction.CountIf(Range("b2:b" & i), Cells(i, 2)) = 1 Then ActiveSheet.UsedRange.AutoFilter Field:=2, Criteria1:=Cells(i, 2) ActiveSheet.PrintOut ActiveSheet.UsedRange.AutoFilter Field:=2 End If Next i End Sub

جرب Sub Awafi() Dim i, ii, iii As Integer, sh As Worksheet Sheet6.Range("b:b").ClearContents iii = 3 For Each sh In Sheets If Not sh.Name = "Report" Then For ii = 3 To 200 If Len(sh.Cells(ii, 2)) = 0 Then Exit For If Application.WorksheetFunction.CountIf(Sheet6.Range("b3:b" & iii), _ sh.Cells(ii, 2)) = 0 Then _ Sheet6.Cells(iii, 2) = sh.Cells(ii, 2): Sheet6.Cells(iii, 1) = iii - 2 _ : iii = iii + 1 Next ii End If Next sh ActiveWorkbook.Worksheets("Report").Sort.Apply End Sub مع العلم اخي العزيز ياسر .. مانقدمه في الغالب هو فكرة الحل وليس الحل المتكامل .. فيمكنك اضافة اوتعديل على الاكواد بما يناسب عملك .. بالتوفيق

بعد اذن اخي سليم .. طريقة اخرى =MID(A4;9;FIND(" ";SUBSTITUTE(A4;"الصنف : ";"")))

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

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

السلام عليكم اخي الكريم .. قيمة الخلية الحقيقية هي 42440 وعند تغيير التنسيق الي تاريخ يقوم الاكسل بتغيير التنسيق الي 11/3/2016 التواريخ في الاكسل عبارة عن ارقام يعني 1 يساوي التاريخ 1/1/1900 2 يساوي التاريخ 2/1/1900 وهكذا لكن للتغلب علي هذه الاشكالية عليك ان تقوم بتغيير التنسيق الي نص ثم اكتب التاريخ .. بهذه الطريقة حتى لو غيرت التنسيق لاحقا الي تاريخ ثم ارجعته الى نص فلن يؤثر علي الخلية تحياتي

قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar

Data.rar

=IF(OR(--LEFT(A1)=3;--LEFT(A1)=2);"1";"0")

طلب عرض عدد المسجلين +نتائج البحث.rar

بالنسبة للصف الخامس عشر تمام .. لكن لم تظهر لي مشكلة الرقم كنص .. جرب Private Sub Modifier_Click() Dim LI As Integer Dim I As Byte Set O1 = Sheets("ARCHIVE") If Me.ListBox1.ListIndex = -1 Then Exit Sub LI = ListBox1.Column(0, ListBox1.ListIndex) For I = 1 To 8 O1.Cells(LI + 13, I + 1).Value = Me.Controls("TextBox_" & I): Me.Controls("TextBox_" & I).Value = "" Next I Me.ComboBox1.Value = O1.Cells(LI, 2).Value Call ComboBox_1 End Sub

اخي الفاضل .. لم ترفق لنا مثال لكي نطبق ونقوم بالتجربة .. لكن جرب الكود الاتي لعله يفي يحل المشكلة Private Sub Modifier_Click() Dim LI As Integer Dim I As Byte Set Ws = Sheets("ARCHIVE") If Me.ListBox1.ListIndex = -1 Then Exit Sub LI = ListBox1.Column(0, ListBox1.ListIndex) For I = 1 To 7 O1.Cells(LI, I + 14).Value = CInt(Me.Controls("TextBox" & I)): Me.Controls("TextBox" & I).Value = "" Next I End Sub

العفو العفو اخي الكريم عامر ... لو وزعت هذه الكلمات علي اعضاء المنتدى لكفتهم .. بارك الله فيك

تم تعديل الكود .. لاحظ الفرق في الصف الاول المظلل بالاصفر درجة القرار (5 درجات ).rar

KPI 2016 .rar

اخي اسامة .. لم افهم السؤال بشكل جيد .. لو فرضنا انه غاب في مادة وحضر في الباقي .. هل يحسب غياب يوم ام ماذا جرب هذه المعادلة .. لو لم تكن المطلوب . اتمنى ان توضح اكثر وترفق النتائج المتوقعة =5-SUMPRODUCT(عربي!B2:F2;دين!B2:F2;جغرافيا!B2:F2)

العفو اخي الكريم .. جرب الان بعد التعديل درجة القرار (5 درجات ).rar