أبو سجده

هههههههه حبيبى ياحاج عبدالله أنار الله تعالى بصرك وبصيرتك وجزاكم الله خيرا

أخى الفاضل الحاج / عبدالله جزاكم الله خيرا على إستجابتكم المباركة وعلى هذا الجهد الطيب الذى أحتسبة عند الله تعالى فى ميزان حسنتاتكم هناك نقطة أخرى غاية فى الأهمية وهى ماذا لو أن البيانات التى سيتم نقلها أقل من 30 صف أوربما أقل من أويساوى 30 صف أعتقد أننا فى حاجة الى إضافة شرط من شأنه إستكمال عدد الصفوف المدرجة الى 30 صف ووضع التوقيعات أسفلها مباشرة برجاء تشغيل الكود ثم الإطلاع مرة أخرى على ورقة الإخراج المطلوب وتحديدا أخر صفحة ستجدها تحتوى على 10 صفوف فقط فكيف يمكن التغلب على هذة النقطة وأنا أسف جدا بشأن ذلك فربما لا أستطيع التعبير عن ذلك بشكل جيد لتوقف تفكيرى لكنى حاولت عدة مرات لتحقيق ذلك دون جدوى ***** نسأل الله عز وجل الرشاد والصواب ****** مرة أخرى جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته أرغب فى مساعدتكم فى إستكمال هذا الكود حيث يقوم بنقل بيانات أعمدة محددة من ورقة الى أخرى الكود يعمل بشكل جيد عند هذة المرحلة لكن توقف تفكيرى وتركيزى عند ثلاث نقاط أريد تحقيقهم بفضل الله أولا ثم بفضلكم النقطة الأولى هى إدراك صف واحد فارغ بدون حدود بعد كل 30 صف بداية من الصف الثامن النقطة الثانية سيتم إضافة بعض السلاسل النصية كتوقيعات ( توقيع أول / توقيع ثانى / توقيع ثالث ) أسفل الجدوال مباشرة النقطة الثالثة وهى ضبط فواصل الصثفحات الأفقية والرأسية تلقائيا وكذا منطقة الطباعة ال Print_Area و Print_Titles لمزيد من التوضيح يرجى الإطلاع على المرفق التالى لمعرفة ما أعنيه فى ورقة " الإخراج المطلوب " والإطلاع على معاينة الصفحات شكرا لطيب مساعدتكم الطيبة وجزاكم الله خير الجزاء ***** تقبلوا وافر التقدير والإحترام sample.xlsb.xlsm

السلام عليكم ورحمة الله وبركاته بعد إذن اخى واستاذى الفاضل / عبد الله بشير أعتقد ان الموضوع ليس بحاجة الى مرفق للعمل عليه فقد أوفيت وهذة مشاركة بسيطة للإفادة وبطريقة أخرى Sub test() Dim i As Long, lr As Long, ocol Dim ws1 As Worksheet, ws2 As Worksheet ocol = Array(1, 13, 14, 15, 24, 26, 27, 31, 32, 36, 47, 48) Set ws1 = Sheets("تسجيل بيانات") Set ws2 = Sheets("الرئيسية") Application.ScreenUpdating = False With ws1 lr = .Cells(Rows.Count, "A").End(xlUp).Row For i = 0 To 11 .Cells(1, i + 1).Resize(lr, 1).Copy ws2.Cells(1, ocol(i)) Next i End With Application.ScreenUpdating = False End Sub شكرا وجزاكم الله خيرا

هذه مساهمة متواضعة تحقق المطلوب وبعد إذن الأخ الفاضل / أبو أحمد أخى الفاضل / ناصر المصرى ضع هذه المعادلة للأعداد العشرية =IF(A4="الأول";MOD(100*TRUNC(SUM(C4;B4/100)*7%;2);100);MOD(100*TRUNC(SUM(C4;B4/100)*5%;2);100)) وهذه المعادلة للأعداد الصحيحة =IF(A4="الأول";INT(TRUNC(SUM(C4;B4/100)*7%;2));INT(TRUNC(SUM(C4;B4/100)*5%;2))) هذا وبالله التوفيق للجميع

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

السلام عليكم ورحمة الله وبركاته أعتذر للمداخلة وسؤالى للأخ الفاضل / هشام كامل ماهى علاقة الحالة الإجتماعية وعدد الأولاد بموضوع ضريبة الدخل على المرتبات سواء قطاغ حكومى أو خاص أو قطاع أعمال **** أعتقد أنه يجب إعادة النظر فى هذا الموضوع وفقا لنصوص المواد الخاصة بضريبة الدخل على المرتبات المسماه ضريبة الكسب ولكى تكون محاسب محترف فى مجال المحاسبة أخى الفاضل يجب عليك أولا حساب ضريبة الدمغه وفقا لقانون الدمغه رقم 111 لسنة 1980 وتعديلاته على إعتبار إن قيمة الدمغه العادية معفاه من ضريبة الدخل ويحكمها مادتين فقط أما عن ضريبة الدخل فيحكمها عدة نصوص وفقا لقانون رقم 91 لسنة 2005 وتعديلاته الأخيره وسأترك لك أخى الفاضل عملية البحث فى القانونين فربما يكون فيها الفائدة لك من الناحية العملية لا من الناحية الإرتجالية الخلاصة هناك جملة ايراد سنوى كلا حسب مسماه الوظيفى وهناك جملة إعفاءات مقررة سنويا بقوانين وهناك إعفاءات مقررة على صافى الدخل وتختلف من المعين العادى والمعين بنظام ال 5% " ذوى الهمم " والفرق بينهما هو المبلغ الخاضع لضريبة الدخل السنوى ومن ثم قسمتها على 12 شهر للحصول على الضريبة الشهرية نقطة أخيرة وهى بشأن الحالة الإجتماعية للذكر " متزوج / متزوج1 / متزوج2 / أعزب/ مطلق / أرمل" والأعزب / والمطلق / والأرمل لفظ يطلق على الذكر والأنثى أما الأنثى المتزوجة فهى متزوجه فقط حتى وإن كان لديها 10 ابناء أما عن الذكر المتزوج وإن كان لدية 10 أبناء فهو يا إما متزوج / متزوج+1 / متزوج+2 أى بحد أقصى إثنان فقط من الأبناء أعتذر مرة أخرى لهذة المداخلة لكنها من باب العلم بالصواب ***** برجاء إعادة النظر ***** وجزاكم الله خيرا

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

السلام عليكم ورحمة وبركاته أختلف مع حضراتكم فى الرأى بسبب أن هناك من هو متخصص فى البرمجة وهذا من صميم عمله الذى لا يؤثر الذكاء الإصطناعى على تكوين عقله كونه مبرمجا وهناك من لا علم له بعالم البرمجة وكل ما يريده هو الوصول لفكرة معينه سواء بإستخدام الصيغ أو إستخدام اى وسيلة أخرى ك ال vba لتحقيق هدفه أملاً فى الحصول على مساعدة الزملاء هنا من اجل سرعة الأداء فى مجال عمله ليس إلا وبالطبع قد تكون مساعدة الزملاء هنا تحتمل الصواب والخطأ من باب التخمين خاصة وأننا نتعامل مع بعضنا البعض عن بُعد وللحصول على إجابات صحيحة 100% من أول مرة يجب أن يكون وصف الموضوع المعروض يتسم بالدقة وفى الأخير ماهى إلا ملكات أنعم الله علينا بها كلاً وفقا لتكوين عقله مجرد رأى والله المستعان ***** تقبلوا زافر التحية والتقدير

بصراحة ياحاج مجدى الموضوع غاية فى الأهمية لقد حصلت على موضوع من خلال chatgpt وجاءت النتائج بكل دقة أهم مافى الموضوع سواءاً كنت متحدثاً باللغة العربية أو متحدثاً باللغة الإنجليزية يجب أن تعطيه وصفاً دقيقاً لما تريد تحقيقه لكى تصل لما تريده وهذه بمثابة نصيحة للسادة الأخوة هنا والأهم من هذا أن يبقى معك حتى الوصول لهدفك من فكرة الوضوع تحياتى من غمراوى يعشق تراب بورسعيد أخيكم / سعيد بيرم أبو سلمى وعبد الرحمن وسجدة

وعليكم السلام ورحمة الله وبركاته مساكم الله بالخير تمت التجربة والإفادة شكرا جزيلا على وقتكم الثمين وجزاكم الله خيرا

حبيبى فى الله اخى وأستاذى / عبدالله بداية جزاكم الله خيرا على صبركم وإهتمامكم بهذا الموضوع نظرا لوجود خانتين للقرش والجنية فى ورقة المصدر " الرئيسية " إضظررت وللأسف لعمل توسيط لرؤوس الأعمدة فى الصفين 6 و 7 كما هو موضح فى المرفق الذى تم نشره فى المشاركة الأولى لقد قمت بحذف الثلاثة أوراق المراد نقل الأعمدة إليهم **** ثم رجاءاً قم بتشغيل هذا الكود المرفق بهذا الملف لملاحظة ما أعنيه Option Explicit Sub test() ' ******************* Dim wsMain As Worksheet Dim wsSheets As Variant Dim colArr As Variant Dim i As Long Set wsMain = Sheets("Source") ' ************** wsSheets = Array("First", "Second", "Third") ' ******************* Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim colsArr() As Variant colsArr = Array( _ Array(1, 4, 6, 28, 29), _ Array(1, 2, 3, 4, 5, 6, 46), _ Array(1, 4, 6, 17, 18, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45) _ ) For i = LBound(wsSheets) To UBound(wsSheets) Abdullah_Basheer wsMain, Sheets(wsSheets(i)), colsArr(i) ' ************ ' ///////////////////////////////////////////// Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Sub Abdullah_Basheer(wsSource As Worksheet, wsTarget As Worksheet, cols As Variant) ' //////////////////////////////// Dim lastRow As Long Dim i As Long Dim colNum As Integer lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row For i = LBound(cols) To UBound(cols) colNum = cols(i) wsTarget.Columns(colNum).ClearContents Next i For i = LBound(cols) To UBound(cols) colNum = cols(i) wsSource.Range(wsSource.Cells(1, colNum), wsSource.Cells(lastRow, colNum)).Copy wsTarget.Cells(1, colNum).PasteSpecial Paste:=xlPasteValuesAndNumberFormats wsTarget.Cells(1, colNum).PasteSpecial Paste:=xlPasteFormats Next i Application.CutCopyMode = False End Sub لأنه هو الأفضل من حيث السرعة ومن حيث نسخ التنسيقات بما فيهم نسخ رؤوس الأعمدة بإستثناء الأعمدة الخاصة بخانتين القرش والجنيه فهل من سبيل لتعديل هذا الكود لعمل توسيط لرؤوس الأعمدة الخاصة بخانتين القرش والجنية أما عن الأعمدة ذات القيم النصية فيمكن عمل Auto Fit لها كملائمة تلقائية ضمن هذا الكود المتميز بحول الله تعالى ***** أعتذر للإطالة وجزاكم الله خيرا ****** والله المستعان نقل أعمدة محددة من ورقة الى أكثر من ورقة+222222.xlsm

السلام عليكم جميعا ورحمة الله وبركاته أخى عبدالله شكرا جزيلا لإهتمامكم فى ايجاد خل لهذا الموضوع فجزاكم الله تعالى خير الجزاء بداية الكود الثانى هو بالفعل أسرع من الكود الأول لذا أرفقت هذا الملف مع الكود الثانى أعلم جيدا أخى الفاضل أن الخلايا المدمجة قد تكون سبب فى بعض المعوقات فى تنفيذ الكود نظرا لتصميم الشيت ولكن اللى لربنا سبحانه وتعالى سيكون يسيرا بحوله وقوته الكود يقوم بنقل الأعمدة المطلوبه ولكن بطريقة غير متجاورة للأعمدة ولرؤية ما أقصده برجاء الإطلاع على المرفق التالى والله المستعان وجزاكم الله خيرا نقل أعمدة مع الكود الثانى - عبدالله بشير.xlsm

بسم الله الرحمن الرحيم عليه نتوكل وبه نستعين نحمده سبحانه كما ينبغي أن يحمد ونصلي ونسلم على رسوله محمد وعلى آله وصحبه والتابعين السادة الأعزاء الكرام السلام عليكم ورحمة الله وبركاته أطمع وبحول الله تعالى وقوته فى ضرب ثلاثة عصافير بطلقة واحدة أى بكود واحد VBA من شأنه القيام بنقل أعمدة محددة من ورقة المصدر " الرئيسية " إلى ثلاثة أوراق عمل " الأولى / الثانية / الثالثه " على هذا النحو الأعمدة أرقام 1 و 4 و 6 و 28 و 29 من الورقة الرئيسية إلى الورقة الأولى الأعمدة أرقام من 1 إلى 6 والعمود رقم 46 من الورقة الرئيسية إلى الورقة الثانية الأعمدة أرقام 1 و 4 و 6 و 17 و 18 والأعمدة من 28 إلى 45 من الورقة الرئيسية إلى الورقة الثالثه مع مراعاة فضلا نقل هذة الأعمده بنفس تنسيقات ورقة المصدر " الرئيسية " كلصق قيم نظرا لإحتواء الملف الأصلى على العديد من الصيغ ونظرا لأننى اتعامل مع كميات كبيرة من الصفوف لذلك أتطلع الى طريقة مرنه وسريعة لتحقيق ذلك بفضل الله تعالى أولا ثم بفضلكم جميعا والله ولى الصابرين ***** أخيكم / سعيد بيرم أبو سجدة برجاء الإطلاع على المرفق وجزاكم الله خيرا نقل أعمدة محددة من ورقة الى أكثر من ورقة.xlsm

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