cat101

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

العلامه عبد الله اضافة العنوان خراقي

روعه هل يمكن ان تضيف هذا العنوان في كود العشر اوائل

حتى يكتمل العملان

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

عمل عظيم جعله الله في كفة حسناتك

والله هذه الاعمال الطيبه جعلت العمل سهلا ودقيقا

بارك الله فيك استاذ عبد الله

بسم الله الرحمن الرحيم

وبه نستعين

إخوانى الاعزاء

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

بناءا على طلب أحد الزملاء الافاضل بهذا الصرح المبارك عبرالخاص

وحتى تعم الفائده للجميع أقدم لسيادته وللساده الاعضاء

هذا البرنامج وهو يصلح للسادة العاملين بمصانع القطاع الخاص

حيث تم ربط الاجر بالحضور والانصراف ويتم التسجيل هنا بصفة

يومية وعلى مدار شهرالاستحقاق لكل عامل

وهو مقسم على ثلاثة مراحل حسب وضع كل عامل بهذا المصنع

المرحلة الاولى مرتبطة بالاجر الاساسى الشهرى المتفق عليه وهو محدد بعدد الساعات الاصلية للعمل

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

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

يشمل البرنامج أيضا الجزاءات التى تقع على العامل ويمكن تعديلة حسب نظام كل شركة

يشمل البرنامج أيضا اأيام الغياب لكل عامل بالشركة ففى حالة سماح أيا من رصيد العامل

لآجازنه الاعتيادية أو أجازنه العارضة فلايتم خصم أية مبالغ من هذا العامل

إلا فى حالة نفاذ تلك الارصدة فتقع عليه أيام الغياب بالخصم

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

نسألكم الدعاء.... تقبوا وافر احترامى .... وجزاكم الله خيرا

برنامج مرتبات للقطاع الخاص - سعيد بيرم.rar 42.05K 12 عدد مرات التحميل

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

الله يجزيك الخيراستاذ زجب

عمل يستحق الشكر

نفسنا في برنامج حلو زي ده للابتدائي

نفسنا في برنامج حلو زي ده للابتدائي

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

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

هل جربتم اختيار اسم ؟

السلام عليكم

فعلا اخي ابو نصار هذا هو المطلوب

بارك الله فيك وفي استاذنا القدير خبور خير

لكم كل الاحترام والتقدير

الف شكر اخي العيداروس

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

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

هل جربت اختيار اسم ؟

الف شكر اخي العيداروس

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

نريد مسح الشيت من الخلية 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

العلامة العيداروس

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

تفضل

عرفت طلبك

من حل الأخ الفاضل cat101

وبعد اذنه

تفضل

Sub KH_Copy()

On Error Resume Next

Dim Last As Long

Dim Count As Integer

Count = 1

Count = Sheets("KHBOOR").Range("F9").Value

With ActiveSheet

	 A = .Cells(1, 1).End(xlDown).Offset(2, 0).Row

	 .Range(Cells(A, 1), Cells(Rows.Count, 5)).EntireRow.Delete

	 Last = .Range("A" & .Rows.Count).End(xlUp).Row

	.Rows(Last).Copy .Rows(Last + 1).Resize(Count)

	.Rows(Last + 1).Resize(Count).SpecialCells(xlConstants).ClearContents

End With

On Error GoTo 0

End Sub

السلام عليكم ورحمة الله اخي العلامه العيداروس

تستأذن مني وانت اعلم مني

حقا علامة فاضل

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

هذه اضافه فد تفي بالغرض

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

الخليه 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

وشكراا