mustafa_aljhm قام بنشر أكتوبر 24, 2021 مشاركة قام بنشر أكتوبر 24, 2021 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 رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر أكتوبر 24, 2021 مشاركة قام بنشر أكتوبر 24, 2021 السلام عليكم ورحمه الله وبركاته وبها نبدأ اخى مصطفي ارفق ملف لمن يريد المساعده فهم المطلوب 1 رابط هذا التعليق شارك More sharing options...
mustafa_aljhm قام بنشر أكتوبر 24, 2021 الكاتب مشاركة قام بنشر أكتوبر 24, 2021 هذا هو المفلالمنتدى.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر أكتوبر 24, 2021 أفضل إجابة مشاركة قام بنشر أكتوبر 24, 2021 تفضل اخى الكريم 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 1 رابط هذا التعليق شارك More sharing options...
mustafa_aljhm قام بنشر أكتوبر 25, 2021 الكاتب مشاركة قام بنشر أكتوبر 25, 2021 بارك الله فيك اخى الكريم استفسار ما الافاده من الاعلان عن هذه المتغيرات Dim strDate As String, strTime As String رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر أكتوبر 25, 2021 مشاركة قام بنشر أكتوبر 25, 2021 هذه المتغيرات كانت في كودك ليس لها بالنسبه لي استخدام في الكود بهذا الشكل 1 رابط هذا التعليق شارك More sharing options...
mustafa_aljhm قام بنشر أكتوبر 26, 2021 الكاتب مشاركة قام بنشر أكتوبر 26, 2021 فعلا ي استاذنا الفاضل بارك الله فيك ولك ورزقك الخير كله رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر أكتوبر 26, 2021 مشاركة قام بنشر أكتوبر 26, 2021 الحمد لله الذي بنعمته تتم الصالحات وفيك بارك اخى الكريم رابط هذا التعليق شارك More sharing options...
محمد سعيد صابر قام بنشر نوفمبر 21, 2021 مشاركة قام بنشر نوفمبر 21, 2021 Application.DisplayAlerts = False اضف دى فوق اخى الحبيب وجرب الكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.