احمد عبد الناصر

شكرا استاذ حمادة هذا حل بالمعدلات تحياتي Classeur1+.rar

شكرا لك استاذ حمادة بارك الله فيك

السلام عليكم جرب هذا الكود sheets("x").Range("c:c").SpecialCells(xlCellTypeConstants).Offset(0,-1).Copy sheets("y").[b1] ملاحظة : يعتمد علي ان العمود C لا يحتوي كتابة الا في حالة النجاح . تحياتي

السلام عليكم جرب المرفق =SUMPRODUCT(--($A:$A>=$E2),--($A:$A<=$F2),B:B) تحياتي ملف4+.rar

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

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

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

تحياتي لك ولكن هنيئا لي انا بهذا المنتدى و اعضاءه اصحاب الخلق الحميد و الجود و الكرم .

السلام عليكم جرب هذا علي حسب ما فهمت تحياتي نسخ التاريخ بالترتيب تصاعدياً+.rar

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

السلام عليكم بعد اذن استاذنا : طارق هذا محاولة تعتمد علي ان يكون اسماء رأس التقرير نفس اسماء رأس البيانات و بهذا بأمكانك تغير ترتيب الاعمدة كما تريد فقط بتغير اسم العمود او اضافة اعمده جديدة تحياتي كشف 12 د امتحانات5++.rar

السلام عليكم جرب هذا Private Sub ListBox1_Click() ComboBox1.ListIndex = ListBox1.ListIndex LASTROW = Sheets("DB1").Cells(Rows.Count, "A").End(xlUp).Row + 1 LASTROW2 = Sheets("DB2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Left(ComboBox1.Text, 1) = "a" Then For i = 1 To LASTROW2 F = Right(ComboBox1.Text, Len(ComboBox1.Text) - 1) If Sheets("DB2").Cells(i, 1) = Val(Right(ComboBox1.Text, Len(ComboBox1.Text) - 1)) Then For R = 2 To 5 Me.Controls("TextBox" & R).Value = Sheets("DB2").Cells(i, R).Value Next End If Next Else For i = 1 To LASTROW If Sheets("DB1").Cells(i, 1) = ComboBox1.Text Then For R = 2 To 5 Me.Controls("TextBox" & R).Value = Sheets("DB1").Cells(i, R).Value Next End If Next End If End Sub Private Sub TextBox1_Change() Dim LASTROW As Long Dim i As Integer, T As Integer Dim MYSH As Worksheet Dim v As Integer Dim M As String Dim q, F As String ListBox1.Clear ComboBox1.Clear M = TextBox1.Value Set DADA = Sheets("DB1") With DADA LASTROW = .Cells(.Rows.Count, "A").End(xlUp).Row Set q = .Range("B2:B" & LASTROW).Find(M) If Not q Is Nothing Then F = q.Address Do If Application.WorksheetFunction.Search(M, q, 1) = 1 Then ComboBox1.AddItem q.Offset(0, -1).Value ListBox1.AddItem q.Value ListBox1.List(v, 1) = q.Offset(0, 1).Value 'ListBox1.List(v, 2) = q.Offset(0, 2).Value ListBox1.List(v, 2) = q.Offset(0, 3).Value v = v + 1 End If Set q = .Range("B2:B" & LASTROW).FindNext(q) Loop While Not q Is Nothing And q.Address <> F End If End With Set DADA = Sheets("DB2") With DADA LASTROW = .Cells(.Rows.Count, "A").End(xlUp).Row Set q = .Range("B2:B" & LASTROW).Find(M) If Not q Is Nothing Then F = q.Address Do If Application.WorksheetFunction.Search(M, q, 1) = 1 Then ComboBox1.AddItem "a" & q.Offset(0, -1).Value ListBox1.AddItem q.Value ListBox1.List(v, 1) = q.Offset(0, 1).Value 'ListBox1.List(v, 2) = q.Offset(0, 2).Value ListBox1.List(v, 2) = q.Offset(0, 3).Value v = v + 1 End If Set q = .Range("B2:B" & LASTROW).FindNext(q) Loop While Not q Is Nothing And q.Address <> F End If End With End Sub تحياتي

حياك الله اخي حمادة

السلام عليكم استاذ حمادة تحياتي لك (جميلة حركة اضافة علامة + للملف المرفق ) لاثراء الموضوع هذا حل اخر Sub gooo() x = Sheets("PROFETS").Cells(Rows.Count, 1).End(xlUp).Row + 1 With Sheets("PROFETS") .Cells(x, 1) = "INV:" & Sheets("INVOICE").[h6].Value .Cells(x, 2) = Sheets("INVOICE").[h7].Value .Cells(x, 4) = Sheets("INVOICE").[i34].Value .Cells(x, 5) = Sheets("INVOICE").[i37].Value End With End Sub تحياتي

السلام عليكم جرب المرفق , لكن يجب فتح الملفين . تحياتي test+.rar

السلام عليكم جرب المرفق ملاحظة : مع وجود بيانات كثيرة الافضل جعل عملية البحث بزر , و الله اعلم تحياتي ابداء رائي ومساعدة في كود بحث للاسم الثلاثي+.rar

السلام عليكم جرب المرفق تحياتي +حساب مدة العمل.rar

السلام عليكم بعد اذن الاستاذ طارق هذه معادلة لاثراء الموضوع =IF(COUNT(O6:P6;I6)>0;IF(COUNT(O6:P6)>0;IF(I6="";"BALNNCE";"RONG");"STATEMENT");0) توضع في الخلية R6 تحياتي

السلام عليكم جرب هذا التعديل تحياتي Ad_4+-+.rar

السلام عليكم استاذ علي الجندي معذرة علي التاخر في الرد . كلمة المرور اكتب دحمور بينما لغة الكتابة الانجليزية تحياتي

السلام عليكم جرب هذه columns.AutoFit تحياتي

السلام عليكم استاذ هاني تحياتي لك استاذ ابراهيم هذه محاولة اخري جرب المرفق تحياتي Ad_4++.rar

السلام عليكم اخي علي جرب المرفق ملاحظة :طالما ترتيب ارقام الجلوس سيكون معناه ان المدارس ستكون مرتبة (اي لا تتداخل) , فلا بأس ,و لكن ان تداخلت فسوف يأتي بنتائج خطأ . تحياتي Natega+-+.rar

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

السلام عليكم بالنسبة لموضوع العمودين J و L , عدد الخلايا في اي صف تساوي 14 بينما عدد textboxs في الفورم تساوي 12 . جرب البحث عن 102 ستجد ان القيمتين 110 و 112 لا يظهران في الفورم . بالنسة للارقام المتكررة, هل من الممكن ان يكون 101 و a و 101 و a موجود مرتين في البيانات ام لا ؟! تحياتي