كود تسجيل أيام الغياب

[khairi ali]

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

أخواني الكرام كيف حالكم جميعا اريد كود لتسجيل أيام الغياب كما في الملف المرفق

الفياب.xlsm

[حسونة حسين]

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

=COUNTIF(F5:AJ5;"غ")

 

[khairi ali]

مشكور جدا وبارك الله فيك.... لكن اريد كود لكتابة الايام متلا ١_٢_٩_١١_٢٢

[lionheart]

Sub Test()
    Dim r As Long
    Application.ScreenUpdating = False
        For r = 5 To Cells(Rows.Count, 3).End(xlUp).Row
            Cells(r, 37).Value = JoinIf("-", Range("F4:AJ4"), Range("F" & r & ":AJ" & r))
        Next r
    Application.ScreenUpdating = True
End Sub

Function JoinIf(del As String, rngJoin As Range, rngCrit As Range) As String
    Dim c As Range, n As Long
    For Each c In rngCrit
        n = n + 1
        If c <> Empty And rngJoin.Cells(n) <> "" Then JoinIf = JoinIf & del & Day(rngJoin.Cells(n))
    Next c
    JoinIf = "'" & Mid(JoinIf, Len(del) + 1, Len(JoinIf))
End Function

 

[khairi ali]

بارك الله فيك ولكن لو سمحت أريد الايام بالعكس بمعنى 1-2-3-20-29 وليس كما في الصوة

[مصطفى محمود مصطفى]

شكرا للاستاذ الفاضلlionheart

بامكانك الضغط على الخلايا المطلوبة ثم من تنسيق خلايا ثم محاذاة وتختر من اليمين الى اليسار

[khairi ali]

لا اقصد المحادة بل كتابة الارقام من الاصغر الى الاكبر

[lionheart]

Just format the cells of results to from the icon (Left-to-Right Text Direction) and make it (Right-to-Left)

[alliiia]

ما شاء الله ملف جميل أخي خيري، لو تكرمت ممكن كود "أيام الغياب بالحروف" 

 

[khairi ali]

اشكر كل من مر على هذا الموضوع قد تم تعديل الكود ولكن مازالت هناك مشكلة واحدة وهي ترتيب الأرقام من الأصغر إلى الأكبر حيث أن الكود يقوم بالكتابة في الاسم الأول فقظ أما الباقي قهي معكوسة

كما في الصورة

[lionheart]

Just format the cells of results to from the icon (Left-to-Right Text Direction) and make it (Right-to-Left)

[khairi ali]

الرجاء التوضيح لم افهم

 

[lionheart]

[khairi ali]

بارك الله فيك استاذي الفاضل

[khairi ali]

لقد تم التعديل وأصبح الشيت جاهز للاستخدام أضعه بين يديك للاستفادة منه

1الفياب.xlsm