خزاني

السلام عليكم و رحمة الله و بركاته .. khezzaniprg64-3.rar

بارك الله فيك ...

جزاك الله خيراً وشكراً جزيلاً

بوركت أخي الكريمياسر فتحي

بارك الله فيك الأخ الحبيب ياسر فتحي

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

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

شكرا على كل المجهودات المبذولة

شكرا بارك الله فيك

شكرا جزيلا على المجهود

السلام عليكم و رحمة الله و بركاته .. khezzani64.rar

khezzaniprg64-2.rar

khezzaniprg64-1.rar

السلام عليكم و رحمة الله و بركاته .. جرب هذا اذا توفق مع نظام 64 بت khezzaniprg64.rar

السلام عليكم و رحمة الله و بركاته .. khezzaniprg.rar

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

السلام عليكم و رحمة الله و بركاته .. قائمة منسدلة.rar

السلام عليكم و رحمة الله و بركاته .. khezzanifiltre.rar

ادخل هذا الكود في موديل واضغط لتنفيذ وسوف يقوم عمل فرز في العمود a1 وقوم بفرز التاريخ الذي تريده ان يظهر Sub Macro2() Dim deb&, fin& Range("A2").FormulaR1C1 = "1/1/2015" Range("A2:A60").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _ xlWeekday, Step:=1, Trend:=False Range("A1") = "التايخ" deb = CLng(DateValue("01/01/2015")) fin = CLng(DateValue("31/12/2015")) Range("$A$1:$A$60").AutoFilter Field:=1, Criteria1:= _ ">=" & deb, Operator:=xlAnd, Criteria2:="<=" & fin End Sub

Private Sub ListFind_Click() Me.CommandButton5.Visible = IIf(Me.ListFind <> -1, True, False) End Sub Private Sub CommandButton5_Click() ActiveSheet.Unprotect (123) Application.ScreenUpdating = False Sheets("data").Rows(ListFind.ListIndex + 2).Delete ListFind.RemoveItem (ListFind.ListIndex) ListFind.List = Sheets("data").Range("A2:d500").Value Application.ScreenUpdating = True Me.CommandButton5.Visible = IIf(Me.ListFind <> -1, True, False) End Sub Private Sub UserForm_Initialize() ListFind.ColumnCount = 6 ListFind.List = Sheets("data").Range("A2:g500").Value End Sub

اخي طلعت محمد حسن كود يحذف عنصر من اللست بوكس فقط دون ان يحذفه نهائيا من ورقة العمل كود حذف عنصر من اللست بوكس فقط Me.ListFind.RemoveItem (Me.ListFind.ListIndex)

Sub CompteDemerite() Dim Demerite() As Double Dim LeJour As Date On Error Resume Next LeJour = InputBox("ادخل التايخ", "التاريخ") Range("A1").Select ActiveSheet.Range("A1:A500").AutoFilter Field:=1, Criteria1:="=" & LeJour, Operator:=xlAnd End Sub Khezzani FiltreDate.rar

بسم الله الرحمن الرحيم التصفيه حسب التاريخ Sub FiltreSurDate() Dim DLig As Long, StartDate As Long, EndDate As Long Application.ScreenUpdating = False With Sheets("ورقة1") .Activate DLig = .Range("A" & Rows.Count).End(xlUp).Row If .FilterMode = False Then .Range("A1:G1").AutoFilter Else .Range("A1:G1").AutoFilter Field:=6 End If StartDate = DateValue("01/01/2010") EndDate = DateValue("31/12/2010") .Range("A1:G1").AutoFilter Field:=6, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate .Range("A1:G" & DLig).Copy Destination:=.Range("A10") End With Application.ScreenUpdating = True End Sub

مشكور اخي على المجهودات و بارك الله فيك و في عملك

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