عصام مسعد

في 27‏/2‏/2024 at 01:34, حسونة حسين said:

بارك الله فيك وجعله الله في ميزان حسناتك 

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

في 27‏/2‏/2024 at 08:03, spyhearts said:

جزاك اللله كل خير اخي

جزانا واياكم اخي الكريم

في 27‏/2‏/2024 at 15:58, أبومروان said:

جزاك الله خير وبارك فيك @عصام مسعد

ممكن تشرح القانون كيف يتم خصم الضريبه علي الدخل

جزانا واياكم 

نزل القانون pdf وشوف المعادلات اللي في ملف الاكسل وان شاء الله هتعرف بتتخصم اذاي.

2 ساعات مضت, Ali Mohamed Ali said:

بارك الله فيك وزادك الله من فضله

 ربنا يحفظك ويبارك فيك 

في 26‏/7‏/2023 at 06:52, كريم نظيم said:

عمل اكثر من رائع

جزاك الله خيرا ❤️❤️❤️🌹

جزانا واياكم ... ربنا يحفظك ويبارك فيك

في 15‏/7‏/2023 at 15:04, ِAhmed Hemdan said:

المفروض يكون فى خانة اكتب فيها المرتب

قصد حضرتك خانه للمرتب والتامينات ... الخ ؟

منذ ساعه, ِAhmed Hemdan said:

اين يتم ادخال البيانات

جزانا واياكم ربنا يحفظك ويبارك فيك 

ضريبه الدخل المصرى 2017.xlsm

استاذنا الفاضل  / ياسر خليل

جزاك الله خير 

الكود شغال تمام التمام

مع الشكر 

السلام عليكم

عندى كود يقوم يحفظ الملف SAVE AS فى نفس مكان الملف الاصلى

ويحفظ الملف بنفس اسم الموجود  فى خانه A1  

ولكن عندى مشكله ان الكمبيوتر عندى 32 bit  وعند تنفيذ المايكرو يعطينى خطا

وتم ارفاق صوره من الرساله الخطا

TT = Range("A1").Value
Dim Path As String
Path = Application.ActiveWorkbook.Path

    fname = TT
  ActiveWorkbook.SaveAs "path & " \ " & fname"
            
 Application.ActiveWorkbook.SaveAs Filename:=Path & "\" & fname, FileFormat:=52

End Sub

فبرجاء تعديل او عمل 

مع الشكر

New Microsoft Word Document.rar

في 10/8/2016 at 12:48, سليم حاصبيا said:

ارفع نموذجاً عما تريد 30 <<<10 سطر

تم رفع الملف فهل يوجد كود لمثل هذا

مع الشكر

منذ ساعه, سليم حاصبيا said:

ارفع نموذجاً عما تريد 30 <<<10 سطر

تم رفع ملف به مثال لما هو مطلوب مع العلم  انه مطلوب عمل حوالى 70 سطر 

وجزاك الله خير

مثال لما هو مطلوب.rar

السلام عليكم

اريد ان اقوم بتحديد اكثر من سطر متفرقين  مثلا 1 و10 و 15 وهكذا  ثم بعد ذلك اعمل Copy ثم  insert copied cells

مع العلم ان الملف حجمه كبير  فلو يوجد كود ليس به حلقات تكراريه يببقى افضل 

وجزاكم الله خير

9 دقائق مضت, عبدالسلام ابوالعوافي said:

كود اسرع

Sub AAA()
    Dim i As Integer

    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For i = 1 To 5000
        Cells(i, 1) = Null
    Next
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With

End Sub

 

احييك على ذكائك والف الف شكر وربنا يجعله فى ميزان حسناتك - هو ديه المطلوب 

منذ ساعه, سليم حاصبيا said:

جرب هذا الكود

Sub del_rg()
With Sheets("123")
.AutoFilterMode = False
.Range("a1:a5000") = ""
End With
End Sub

 

جميل بس كنت محتاج كود ميفكش الفلتر لاننى عامل الفلتر فى مكان غير المطلوب مسحه بمعنى اننى عامل فلتر فى B واريد ان امسح A . وشكرا جزيلا للاهتمام

شكرا للاستاذ سليم  حاصبيا  وشكرا ايضا للاستاذ عبدالسلام ابو العوافى 

وبالفعل الكود الخاص بالاستاذ  عبدالسلام ابو العوافى  هو ما كنت ابحث عنه 

ولكن هل يوجد كود اخر يكون اسرع من ذلك حيث ان الجدول الخاص بى يحتوى على حوالى 5000 سطر

مع الشكر وجعله الله فى ميزان حسناتكم

السلام عليكم عندى كود وهو

Sub AAA()

Sheets("123").Range("A1:A500").ClearContents

End Sub
ولكنه لا يمسح الخانات اللى بها فلتر 

فأنا اريد يمسح جميع الخانات حتى المخفيه 

مع الشكر

2 دقائق مضت, محمد حسن المحمد said:

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

أخي الكريم عصام مسعد

 

نرحب بكم في جامعتنا أوفيسنا على الرحب والسعة

أسميته جامعة لأنه يجمع القلوب والعقول

ليحدث تلك الطفرة الإيجابية في مجتمعنا العربي الفقير

 

تقبل تحياتي العطرة

انا اسميه بيت الصدقات الجاريه . ربنا يتقبل منكم جميعا

ما احلى هذا الكلام  الجميل ربنا يحفظكم ويحببكم فى بعض كمان وكمان .

  جزاك الله خير  استاذ مختار محسن 

الكود شغال الف شكر

سؤال - عن معرفه حجم كل شيت فى ملف الاكسل عن طريق اكواد VBA 

KB + MB

مع الشكر

في 12/14/2015 at 21:21, essammosaad said:

السلام عليكم

احتاج الى كود يتم التحكم فيه عن طريق الزرار وهذا الكود يقوم بتشغيل 

Calculation Automatic 

لمده 10 ثوانى فقط ثم بعد ذلك يقوم بعمل

Application.Calculation = xlManual

مع الشكر

اتمنى ان اجد  حل لذلك الموضوع

السلام عليكم

احتاج الى كود يتم التحكم فيه عن طريق الزرار وهذا الكود يقوم بتشغيل 

Calculation Automatic 

لمده 10 ثوانى فقط ثم بعد ذلك يقوم بعمل

Application.Calculation = xlManual

مع الشكر