cat101

بارك الله فيكم

العلامه عبد الله اضافة العنوان خراقي روعه هل يمكن ان تضيف هذا العنوان في كود العشر اوائل حتى يكتمل العملان جزاك الله خيرا

عمل عظيم جعله الله في كفة حسناتك والله هذه الاعمال الطيبه جعلت العمل سهلا ودقيقا بارك الله فيك استاذ عبد الله

أدام الله عليك العافية ورزقك من حيث لا تحتسب وثبتك على طريق الحق والأيمان.

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

الله يجزيك الخيراستاذ زجب عمل يستحق الشكر نفسنا في برنامج حلو زي ده للابتدائي نفسنا في برنامج حلو زي ده للابتدائي نفسنا في برنامج حلو زي ده للابتدائي حلاوة الترقيه ...................

احسنتم الاختيار الاستاذ ابو نصار والاستاذ رجب من المميزين خلقا وعلما

ولكن عند اختيارك لاسم معين لايأتي وانما ياتي غيره هل جربتم اختيار اسم ؟

ولكن عند اختيارك لاسم معين لايأتي وانما ياتي غيره هل جربت اختيار اسم ؟

الف شكر اخي العيداروس ولكن عند اختيارك لاسم معين لايأتي وانما ياتي غيره

نريد مسح الشيت من الخلية A12 الى DK1000 وشكرا جزيلا مسح بدون المعادلات.rar

تقبل الله منك وأدامك على طاعته عمرة مقبولة بإذن الله وتعود لنا بألف سلامة

الاستاذ الفاضل العيداروس الكود الموجود بالمشاركة رقم 6 افضل لانها ليست محدودة بمعادلة الجمع في خلايا معينه فالمعادلات متغيرات في اعمدة متغيره واود منكم شرح هذه الجزئيه A = .Cells(1, 1).End(xlDown).Offset(2, 0).Row .Range(Cells(A, 1), Cells(Rows.Count, 5)).EntireRow.Delete

العلامة العيداروس لم اوفق في جعل عدد الصفوف الاجمالي مساوي للعددد الكتوب في صفحة خبور

السلام عليكم ورحمة الله اخي العلامه العيداروس تستأذن مني وانت اعلم مني حقا علامة فاضل

ممكن يكون هناك مع الاخوة العلماء حلول افضل من حلي

هذه اضافه فد تفي بالغرض ولكن لم اوفق في جعل عدد الصفوف الاجمالي مساوي للعددد الكتوب في صفحة خبور الخليه F9 KH_COPY.rar

موضوع رائع جزاك الله خيرا فورمة الرقم السري اضفها لنا العلامه الكبير عبد الله

Sub COPY_ALIDROOS() Dim W_ALI As Workbook, WB_ALI As Workbook, N_ALI$, CH_ALI$, SH_ALI As Worksheet Dim T%, R% Application.ScreenUpdating = 0 '============================================ ' هنا تحط مسار مجلد الملفات التي تريد جلب بياناتها CH_ALI = "C:\ALI\" '============================================ N_ALI = Dir(CH_ALI & "\*.xlsx") Set W_ALI = ThisWorkbook Do While N_ALI <> "" Set WB_ALI = Workbooks.Open(CH_ALI & "\" & N_ALI) For Each SH_ALI In WB_ALI.Worksheets R = SH_ALI.Cells(Rows.Count, 1).End(xlUp).Row W_ALI.Activate '============================================ '(A-E-F)هنا الاعمدة المراد جلب بياناتها هيا حسب طلبك هيا ' إبتداء من السطر الثالث Union(SH_ALI.Range("A3:A" & R), SH_ALI.Range("E3:E" & R), SH_ALI.Range("F3:F" & R)).Copy '============================================ T = Cells(Rows.Count, 1).End(xlUp).Row + 1 ThisWorkbook.Worksheets(1).Range("A" & T).PasteSpecial xlPasteValues Next SH_ALI N_ALI = Dir WB_ALI.Close 0 Loop End Sub Sub COPY_ALIDROOS() Dim W_ALI As Workbook, WB_ALI As Workbook, N_ALI$, CH_ALI$, SH_ALI As Worksheet Dim T%, R% Application.ScreenUpdating = 0 '============================================ ' هنا تحط مسار مجلد الملفات التي تريد جلب بياناتها CH_ALI = "C:\ALI\" '============================================ N_ALI = Dir(CH_ALI & "\*.xlsx") Set W_ALI = ThisWorkbook Do While N_ALI <> "" Set WB_ALI = Workbooks.Open(CH_ALI & "\" & N_ALI) For Each SH_ALI In WB_ALI.Worksheets R = SH_ALI.Cell... استسمحك ان تضع اكوادك الجميله في ملف حتى استطيع فهمها وشكرا لكم

حفظك ربنا ورعاك استاذ الحسامي الشهير بالعمدة ورحم والديك ووالدينا ورزقك ورزقنا بالذريه الصالحة يارب

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

الى متى التاخير اخي

جزاك الله كل خير هذا هو الملف منعا من الضياع Convert numbers into words.rar

استاذ جلال اعزك الله وبارك لك

الاستاذ المحترم جلال عملية الرصد تتم عبر الازرار الموجوده في الصفجة الرئيسه ولكن الافضل ان تكون هذه الازرار في صفحة الرصد نفسها ولذا ارجو ان تنقل هذه الاورار الى داخل صفحة total وشكراا