alliiia قام بنشر مارس 18, 2023 مشاركة قام بنشر مارس 18, 2023 السلام عليكم ورحمة الله وبركاته أعزائي الأساتذة الكرام الله يسعد أيامكم عندي هذا الملف: أحتاج عند ترحيل الغياب إلى شيت2 يتم عرضه على أيام الشهر في الشيت 3 وهذه صورة للمطلوب عمله طبعا استخدمت معادلات لكن الملف يصير بطيء جدًا، وحتى وقت الترحيل يأخذ وقت، لذلك أريد كود يقوم بعمل هذه العملية بضغطة زر كود الحضور والغياب - باقي الكشف.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر مارس 18, 2023 أفضل إجابة مشاركة قام بنشر مارس 18, 2023 (معدل) السلام عليكم و رحمة الله جرب هذا الكود Sub AbsData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, i As Long, j As Long Dim C As Range, Name As String, dat Set ws = Sheets("Sheet2") Set Sh = Sheets("Sheet3") LR = Sh.Range("C" & Rows.Count).End(3).Row i = 8 Do While i <= LR Name = Sh.Range("C" & i) For Each C In ws.Range("C2:C20") j = 4 Do While j <= 34 If C.Value = Name And C.Offset(0, 1) = "غ" _ And C.Offset(0, 2) = Sh.Cells(7, j) Then Sh.Cells(i, j) = "غ" End If j = j + 1 Loop Next i = i + 1 Loop End Sub تم تعديل مارس 18, 2023 بواسطه ابراهيم الحداد 3 رابط هذا التعليق شارك More sharing options...
alliiia قام بنشر مارس 20, 2023 الكاتب مشاركة قام بنشر مارس 20, 2023 ما أجملك وأروعك يا حبيبي أستاذ ابراهيم، سلمت يداك، وجزاك الله خيرا. رابط هذا التعليق شارك 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.