ابو منذر عبد الله

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

السلام عليكم اخواني ممكن المساعدة في دالة معرفة الاسماء المكررة اكثر من مرة و بارك الله فيكم takrir.xlsx

مشكور أخي جزاءك عند الله اتعبناك معنا لا أدري اين الخلل ممكن من هو ملون بالأصفر Dim r, i As Integer Private Sub CommandButton1_Click() For j = 1 To 8 Cells(r, j) = Controls("TextBox" & j).Text Next j ListBox1.List(i, 0) = TextBox2.Text End Sub Private Sub CommandButton2_Click() 'lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row 'For j = 1 To 8 ' Sheets(1).Cells(lrw + 1, j) = Controls("TextBox" & j).Text ' Next j ' For i = 1 To 8 ' Next i ' Controls("TextBox" & i).Text = "" ' ListBox1.AddItem ' ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(lrw + 1, 2).Value ' ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1 ' TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 'TextBox2.SetFocus Dim TotalRows As Long Dim Sh As Worksheet Set Sh = æÑÞÉ1 With Sh TotalRows = .Cells(Rows.Count, "A").End(xlUp).Row If TotalRows < 3 Then TotalRows = 3 Else TotalRows = TotalRows End If .Cells(TotalRows + 1, 1) = Me.TextBox1.Value .Cells(TotalRows + 1, 2) = Me.TextBox2.Text .Cells(TotalRows + 1, 3) = Format(TextBox3, "dd/mm/yyyy") .Cells(TotalRows + 1, 4) = Me.TextBox4.Value .Cells(TotalRows + 1, 5) = Me.TextBox5.Value .Cells(TotalRows + 1, 6) = Me.TextBox6.Value .Cells(TotalRows + 1, 9) = Me.TextBox14.Text .Cells(TotalRows + 1, 10) = Me.TextBox9.Value .Cells(TotalRows + 1, 11) = Me.TextBox10.Value .Cells(TotalRows + 1, 12) = Me.TextBox11.Value .Cells(TotalRows + 1, 13) = Me.TextBox13.Value .Cells(TotalRows + 1, 14) = Me.TextBox15.Value End With ClearForm TextBox2.SetFocus End Sub Private Sub CommandButton3_Click() If MsgBox("ÓíÊã ÇáÍÐÝ åá ÃäÊ ãÊÃßÏ¿", vbQuestion + vbYesNo) = vbYes Then Sheets(1).Cells(r, 1).EntireRow.Delete For Z = 1 To 8 Sheets(1).Cells(r, Z).Delete Shift:=xlUp Next Z Sheets(1).Cells(r, 1).Resize(r, 11).Delete Shift:=xlUp MsgBox "ÊãÊ ÚãáíÉ ÇáÍÐÝ ÈäÌÇÍ" For y = 1 To 8 Controls("Textbox" & y).Text = "" Next y ListBox1.Clear UserForm_Activate TextBox12 = "" End If End Sub Private Sub Label12_Click() End Sub Private Sub Label23_Click() End Sub Private Sub Label7_Click() End Sub Private Sub Label9_Click() End Sub Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then For j = 1 To 8 Controls("TextBox" & j).Text = Cells(ListBox1.List(i, 1), j) Next j r = ListBox1.List(i, 1) Exit For End If Next i End Sub Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) For i = 1 To 6 Controls("TextBox" & i).Text = "" Next i TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 TextBox2.SetFocus End Sub Private Sub TextBox12_Change() ListBox1.Clear For i = 1 To 8 Controls("TextBox" & i).Text = "" Next i If TextBox12 = "" Then Exit Sub Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each C In Range("B4:B" & ss) If C Like TextBox12.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(C.Row, 2).Value ListBox1.List(k, 1) = C.Row k = k + 1 End If Next C End Sub Private Sub TextBox6_Change() Me.TextBox7.Value = (Val(Me.TextBox5.Value) + Val(Me.TextBox6.Value)) / 2 'TextBox7 = Val((TextBox5 + TextBox6) / 2) End Sub 'Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'TextBox12.Value = "" 'ListBox1.Clear 'End Sub Private Sub UserForm_Activate() TextBox12.SetFocus For i = 4 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row ListBox1.AddItem ListBox1.List(i - 4, 0) = Cells(i, 2).Value ListBox1.List(i - 4, 1) = i Next i TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 TextBox2.SetFocus End Sub Sub ClearForm() For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then ctl.Value = vbNullString End If Next ctl End Sub

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

بارك الله فيكم و جزاكم كل خير

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

بوركت و زادك الله من علمه

بارك الله فيك استاذ منكم نتعلم و آسف على التكرار و لن اعيدها استاذ الماكرو يجلب 5 زبائن فقط

السلام عليكم أساتذتنا الكرام ممكن دالة ترحيل قائمة زبائن تضم اكثر من 1500 لفترة زمنية معينة و جزاكم الله خيرا من فضلك لا تكرر نفس المشاركات والا ستحذف جميع المشاركات كراء 1.xlsx

أخوكم في الله يريد مساعدتكم دوال حساب و ترحيل بيانات بتاريخ او بين تاريخين ل 1400 زبون و بارك الله فيكم مشاركة مكررة ... تــم بالفعل حذف المشاركة الأخرى , يكفيك كتابة للـــــرفع لطلب الرد ولا تقوم بفتح مشاركات جديدة لمشاركة قديمة موجودة بالفعل والا ستحذف جميع المشاركات وعليك الإطلاع على قواعد وقوانين الإشتراك بالمنتدى Classeur1 (2).xlsx

السلام عليكم أساتذنا ممكن مساعدة في المطلوب هو قائمة الزبائن الذين قامو بكراء السيارة في تاريخ اختاره انا مع عدد مرات الكرااء و ان امكن تحديد عدد الكراء ان كان في عدة ايام متتالية تم بالفعل حذف المشاركة الأخرى لأنها مكررة متابعة كراء.xlsx و بارك الله فيكم

اريد تكملة هذا المشروع البسيط حيث ممكن يصل عدد الزبائن الى 1400 زبون و بارك الله فيكم و اعانكم الله لفعل الخير و نشر العلم Classeur1 (2).xlsx

بارك الله فيك أخي و ان أمكن ممكن قائمة الزبائن حسب اليوم او الفترة ان أمكن مع الاحصاء و سأكون شاكرا للجميعClasseur1 (2).xlsx

دالة البحث عن رقم العمود من عدة اعمدة اريد مجموعه بشرط اسم راس العمود و جزاكم الله خيرا مشاركة مكررة ... تـــم بالفعل حذف المشاركة الأخرى , من فضلك لا تقوم برفع وتكرار نفس المشاركات بمشاركات جديدة ومنفصلة Classeur1.xlsx