ياسر خليل أبو البراء

أ / حكيم الأخ غسان العبيدي الأخ محمد حسن بارك الله فيكم ومشكور على مروركم العطر بالموضوع ..جزيتم خير الجزاء تقبلوا تحياتي :fff:

أخي محمد حسن أبو يوسف أحب أقولك فيه كتير جداً عندهم درجة عالية من الاحترافية ، لكن للأسف مشكلتنا في الوطن العربي إننا لا نشكل فريق واحد .. بل كل يعمل بمفرده ... العمل الجماعي أفضل بكثير من العمل الفردي كل منا له نقاط قوة ولو اجتمعت نقاط القوة في فريق واحد متعاون سيحقق المستحيل وربنا ييسر أمور المسلمين

إضافة في منتهى الجمال والروعة تسلم يا مستر أسامة .. شكلك هتبدع في المنتدى في انتظار المزيد من إبداعاتك

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

تمام يا مستر علي .. أخيراً الحمد لله لقيت اللي يشيل عني شوية بارك الله لنا فيك وجزيت خيراً وأكلت لحم طيرٍ (كنت مفكرني هقول طيراً) ..عندي فكرة بردو باللغة العربية تقبل تحياتي

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

بارك الله فيك أخي المتألق النجم الساطع أسامة البراوي OB ملحوظة من أخوك ياسر خليل YK بالنسبة لورقة العمل Sheet6 (تجميعي) في هذا السطر x = Sheet6.[b1000].End(xlUp).Row سؤالي هل قمت بإظهار العمود ورؤية محتواه ..المحتوى في العمود غير كامل لآخر البيانات ..متوقف عند الطالب رقم 28 ومن ثم فهناك بيانات أخرى لم يتم التعامل معها أردت فقط التنويه ..حيث أنني عندما هممت بالعمل على الملف لاحظت تلك النقطة ، فانتظرت لربما يوضح الأخ الكريم عبد السلام الأمر ، وفي النهاية نسيت (زهايمر ...)

أخي الفاضل جرب هذا الكود Private Sub CommandButton1_Click() On Error Resume Next x = ComboBox1.Value Sheets(x).Activate Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value = TextBox1.Value Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1).Value = TextBox2.Value Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).Value = TextBox3.Value If ComboBox1.Value = "" Then MsgBox "لم يتم تحديد ورقة العمل" End If TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox1.SetFocus End Sub

الأخ الكريم أبو مرمر ما هي الخطوة التي تعثرت فيها ؟ هل طبقت الشرح كما في الفيديو

أخي الكريم أنيس عدوان أهلا ومرحباً بك في المنتدى ونورت بين إخوانك وآنست يا كبير إليك خطوات الحل ... حدد النطاق A5:L28 ..روح للتبويب Home واختار Conditional Formatting أي التنسيق الشرطي (ملوش علاقة بالشرطة .. الشرطة في خدمة أوفيسنا) اختار من القايمة المنسدلة كلمة New Rule ومن النافذة اللي هتطلع لك اختار آخر اختيار اللي هو اسمه Use a formula to determine which cells to format لحد كدا تمام ..قول تمام الحمد لله في المستطيل اللي على يمينه سهم أحمر هتكتب المعادلة البسيطة دي =$A5=$G$1 خلااااااااويص ..لسه دوس على كلمة Format عشان تنسق الخلايا بالشكل اللي إنت عايزه ..ادخل على التبويب Fill واختار اللون اللي يريحك وبعدين أوك وكمان مرة أوك .. بس خلاص أرجو أن تكون استوعبت الخطوات جرب تغير التاريخ الموجود في الخلية G1 وشوف الإبداع اللي إنت عملته :yes: وإليك الملف المرفق به الحل وأخيراً تقبل تهنئتي بدخولك لمجتمع أوفيسنا Conditional Formatting.rar

الأخ الفاضل يرجى تغيير اسم الظهور للغة العربية بارك الله فيك أخي الحبيب الغالي سليم حاصبيا إثراءاً للموضوع هذا حل آخر بالأكواد .. Sub AddDataToSheets() Dim Cell As Range, Header As Range, Rng As Range, EndRng As Range Dim row As Long, NextRow As Long Dim Wks As Worksheet, SH As Worksheet Set Wks = Worksheets("ورقة1") Set Header = Wks.Range("A10:P12") Set Rng = Wks.Range("A13:M13") Set EndRng = Wks.Cells(Rows.Count, "M").End(xlUp) If EndRng.row > Rng.row Then Set Rng = Rng.Resize(EndRng.row - Rng.row + 1) Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.DisplayAlerts = False For Each SH In Worksheets If SH.Name <> Wks.Name Then SH.Delete Next SH For row = 1 To Rng.Rows.Count Set Cell = Rng.Cells(row, "M") If Not IsEmpty(Cell) Then On Error Resume Next Set Wks = ThisWorkbook.Worksheets(Cell.Text) If Err = 9 Then Worksheets.Add After:=Worksheets(Worksheets.Count) Set Wks = ActiveSheet Wks.Name = Cell.Text Header.Copy Wks.Paste Wks.Cells(1, 1) End If NextRow = Wks.Cells(Rows.Count, "M").End(xlUp).row + 1 Rng.Rows(row).Copy Wks.Rows(NextRow) On Error GoTo 0 End If Next row Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub تقبل تحياتي Create Sheets Based On Values In Range YasserKhalil.rar

جرب المعادلة بهذا الشكل =IF(SUM(A1:D1)=0,"صفر",SUM(A1:D1))

في الخلية E1 ضع المعادلة التالية =SUM(A1:D1) أو إذا لم يكن المطلوب وضح أكثر

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

دا مثل يا مستر سامي كل السبل تؤدي إلى روما وروما لا تأبه لأحد .. ومتزعلش يا مستر سامي كل السبل تؤدي إلى أوفيسنا وأوفيسنا (مستني أقول لا تأبه لأحد) .. لأ هقولك أوفيسنا تأبه لكل أحد تقبل تحياتي

السلام عليكم أخي جزاكم الله خيراً ((الخط مناسب أم أقوم بتصغيره أكثر)) تمام أخي الفاضل أحمد الرشيدي تقبل تحياتي

أخي الفاضل الحمد لله أن تم المطلوب على خير ، بفضل الله وحده يرجى مراجعة التوجيهات لمعرفة كيفية التعامل مع المنتدى من خلال الرابط التالي http://www.officena.net/ib/index.php?showtopic=60147 طلبت منك تغيير اسم الظهور للغة الزهور اللغة العربية وطالما أن الموضوع قد تم يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحيات أخوك أبو البراء

أخي الفاضل المنار لم تستجب لمطلبي ..عموماً قمت بالعمل على ورقة عمل واحدة فقط ليطمئن قلبك أن الأمر ممكن .. قمت بالتغيير قليلا في ملف الـ Template الذي يعتبر بمثابة النموذج المراد العمل عليه إليك الملف التالي .. ويمكنك الإضافة إلى الكود بحيث يشمل أي بيانات .. اكتفيت بورقة العمل الأولي فقط Sub SplitWB() Dim WBK As Workbook Dim Cell As Range Dim strPath As String Dim I As Long, Arr Application.ScreenUpdating = False Application.DisplayAlerts = False Arr = ThisWorkbook.Sheets("Sheet1").Cells(1).CurrentRegion.Value For I = 2 To UBound(Arr, 1) strPath = ThisWorkbook.Path & "\" FileCopy strPath & "Template.xlsx", strPath & Arr(I, 2) & ".xlsx" Set WBK = Workbooks.Open(strPath & Arr(I, 2) & ".xlsx") With WBK With .Sheets("المعلومات الاساسية") ThisWorkbook.Activate .Range("B3").Resize(15, 1) = Application.Transpose(Array(ThisWorkbook.Sheets("Sheet1").Range(Cells(I, 2), Cells(I, 16)))) .Range("A19") = Arr(I, 17) .Range("A21") = Arr(I, 18) .Range("A23") = Arr(I, 19) End With .Close SaveChanges:=True End With Next I Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "تم بحمد الله .. قل سبحان الله وبحمده سبحان الله العظيم", vbInformation End Sub تقبل تحياتي Copy Workbook Template & Name It By Employee YasserKhalil.rar

ارفق مثال أخي عبد الله .. أعتقد أن الطلب مكرر ..

هل هناك تصور محدد لشكل الفاتورة التي تريدها ؟ إذا لم يكن هناك تصور نترك المجال لأصحاب الخبرة في تصميم الفواتير للتدخل

أخي الكريم احمد يمكنك أن تفتح الباب لعالم البرمجة من خلال الرابط التالي http://www.officena.net/ib/index.php?showtopic=56941 أيهما أفضل : في نظري 2007 و 2013 أستأذنك في تصغير حجم الخط قليلاً .. تقبل تحياتي

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

يرجى أخي مراد طرح طلبك الجديد في موضوع آخر مستقل

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

الأخ الكريم سعد إليك الملف التالي السن حسب الجنس.rar