لدى كود يعمل بشكل صحيح ولكن بطىء جدا جدا هل من امكانيه لجعله يعمل بشكل اسرع

[mustafa_aljhm]

 Dim strDate As String, strTime As String
  Dim filePath As String
 Dim ws As Worksheet
  Dim i As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
  For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) = True Then
  For Each ws In ThisWorkbook.Worksheets
  For Each f In ws.Range("a2:a10000")
  If f = ListBox1.List(i, 0) Then
  ws.Select
  f.Select
  Exit For
  End If
  Next f
  Next ws
 ActiveCell.Offset(0, 3).Value = "ايقاف"
   ActiveCell.Offset(0, 4).Value = Date
  End If
  Next i
  i = Empty
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

 

[حسونة حسين]

السلام عليكم ورحمه الله وبركاته 

وبها نبدأ اخى مصطفي

ارفق ملف لمن يريد المساعده فهم المطلوب

[mustafa_aljhm]

هذا هو المفلالمنتدى.xlsm

[حسونة حسين]

تفضل اخى الكريم 

 Dim strDate As String, strTime As String
 Dim filePath As String
 Dim ws As Worksheet
 Dim i As Long
 Application.ScreenUpdating = False
 Application.EnableEvents = False
 Application.Calculation = xlCalculationManual

  For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) = True Then

  For Each ws In ThisWorkbook.Worksheets

    For Each f In ws.Range("a2:a" & cells(Rows.Count, "A").End(xlUp).Row)

       If f = ListBox1.List(i, 0) Then
         f.Offset(0, 3).Value = "ايقاف"
         f.Offset(0, 4).Value = Date

       Exit For
       End If
     Next f
  Next ws
  End If
  Next i
  i = Empty

 Application.Calculation= xlCalculationAutomatic
 Application.EnableEvents = True
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True

 

 

[mustafa_aljhm]

بارك الله فيك اخى الكريم
استفسار 
ما الافاده من الاعلان عن هذه المتغيرات
Dim strDate As String, strTime As String

[حسونة حسين]

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

[mustafa_aljhm]

فعلا ي استاذنا الفاضل بارك الله فيك ولك ورزقك الخير كله 

[حسونة حسين]

الحمد لله الذي بنعمته تتم الصالحات 

وفيك بارك اخى الكريم 

[محمد سعيد صابر]

Application.DisplayAlerts = False
اضف دى فوق اخى الحبيب وجرب الكود