عمل كود فرز الاسماء

[رجب مرسي]

الاخوة الافاضل مرفق ملفابجدة.rarابجدة.rar اكسل اريد عمل كود ابجدة الاسماء  من الالف الى الياء ثم  كود اخر يتم عمل فرز ولكن لا يتضمن عمود المحموع عند الطباعة

[عبدالفتاح في بي اكسيل]

انت  لست  جديد على  هذا  المنتدى  لذلك  يجدر بك ان تسال سؤال واحد 

 

جرب  هذا  الشي بخصوص الفرز  

كليك يمين على ورقة  العمل ثم اظهار التعليمات البرمجية ثم لصق 

Option Explicit

Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("a7:h" & lastrow).Sort key1:=Range("b7:b" & lastrow), order1:=xlAscending, Header:=xlNo
End If
End Sub

  بالنسبة لكود  الطباعة

sub hidcol
Range("C:C").EntireColumn.Hidden = True
 ActiveSheet.PrintOut
 Range("C:C,").EntireColumn.Hidden = False
end sub

 

1طباعة.xlsm

تم تعديل نوفمبر 10, 2021 بواسطه عبدالفتاح في بي اكسيل
اضافة ملف

[رجب مرسي]

الاستاذ عبد الفتاح جربت ما ضبط معي الرجاء تطبيقة على الملف المرفق  جزيت الجنة

كود الابجدة لا يضبط معي

كود الطباعة يعمل ممتاذ

  اعمل على اوفيس 2013

تم تعديل نوفمبر 10, 2021 بواسطه رجب مرسي

[عبدالفتاح في بي اكسيل]

راجع الملف

[رجب مرسي]

اسف شغلت حضرتك جعل ذلك في ميزان حسناتك 

كود الابجدة لا يعمل

[عبدالفتاح في بي اكسيل]

الكود  يعمل  اكتب  اسم  احمد في  اي  صف  باستثناء الاول  سيتم  وضعه  في  الاول  قبل علي

[alliiia]

ولعل هذه تنفعك إن شاء الله، للأستاذ الكبير محمد الريفى حفظه الله.

ابجدة الاسماء.xlsx