رجب جاويش

أخى الفاضل / أبو جيداء جزاك الله كل خير

الأخ الفاضل الأستاذ / حمادة باشا :fff: بارك الله فيك وجزاك الله كل خير علي هذه التهنئة الرقيقة دمتم فى أمان الله وحفظه وتقبلوا منى وافر الإحترام والتقدير

اخى ابراهيم تم عمل الجزء الخاص بالعمود رقم 14 والجزء الخاص بالمجموع فى الخلية A30 أما موضوع الكومبوبوكس فهو يتم اختيار عميل واحد وبالتالى يتم طباعة فاتورة واحدة تخص هذا العميل وبالتالى لا يمكن طبع الفواتير من الى أرجو الافادة فى هذه النقطة لأنى معلوماتى ضعيفة فى مجال الفواتير والحسابات print invo 3.rar

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

أخى الفاضل تفضل طلبك الخاص بالجزء الأول أما الجزء الثانى الخاص بحفظ بامتدتد PDF هل تقصد للبيانات المرحلة أم للبيانات القديمة حفظ فى ملف جديد.rar

أخى / عبد الرحمن الرقم 3 فى السطر التالى فعلا يحدد العمود C Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Select وبالتالى السطر A=1 ليس له فائدة وبالتالى يمكنك تغيير الرقم 3 فى السطر السابق الى أى رقم تريده مباشرة لتحديد العمود المطلوب

أخى الفاضل / عبد الرحمن أقصد رقم العمود وليس رمزه فمثلا العمود A رقمه 1 والعمود B رقمه 2 والعمود C رقمه 3 وهكذا

أخى الفاضل أولا : لك منى دعوة طيبة بتغيير اسم الظهور الى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثانيا : تم تعديل عنوان الموضوع حتى يكون معبرا عن محنوى الموضوع لذا الرجاء منك فى المرات القادمة كتابة عنوان يناسب المحتوى ثانثا : خير مكان تطور فيه من مستواك فى الاكسل هو منتدى أوفيسا العريق فعليك بمتابعة المنتدى فسوف تتعلم منه الكثير بالصبر والمتابعة الجيدة تقبل أرق تحياتى

أخى الحبيب / ابراهيم بسم الله ما شاء الله جزاك الله كل خير

تفضل أخى Sub ragab() LR = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LR For ii = 0 To UBound(Split(Cells(i, 1), "-")) Cells(i, ii + 2) = Split(Cells(i, 1), "-")(ii) Next Next End Sub فصل الخلية فى عدة خلايا1.rar

تفضل أخى Sub ragab() x = 1 Cells(Cells(Rows.Count, x).End(xlUp).Row + 1, x).Select End Sub غير قيمة x الى رقم العمود الذى تريده

أخى الفاضل / احمد الحاوي شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

الأخت الفاضلة / أم عبد الله تسلم ايديكى

أخى الفاضل هل تقصد هكذا احصاء.rar

تفضل أخى zz.rar

أخى الفاضل / فراسكو شكرا جزيلا لك أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

أخى الفاضل / فراسكو جرب المرفق اكتب كلمة من الكلمات المقصودة فى العمود E ليتم المطلوب هذا كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Set sh = Sheets("ورقة2") LR = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False If Not Intersect(Target, Range("E:E")) Is Nothing Then If Not IsEmpty(Target) And Target.Text = "صادر" Or Target.Text = "فوق" Or Target.Text = "وارد" Or Target.Text = "اسفل" Then x = Target.Row Target.Offset(0, -4).Resize(1, 5).Copy sh.Range("A" & LR).PasteSpecial xlPasteValues Rows(x).EntireRow.Delete shift:=xlUp sh.Cells(LR, 1).Value = sh.Cells(LR, 1).Row - 1 LR1 = Cells(Rows.Count, 1).End(xlUp).Row Application.EnableEvents = False For i = 2 To LR1 Cells(i, 1) = Cells(i, 1).Row - 1 Next Application.EnableEvents = True End If End If Application.CutCopyMode = False Application.ScreenUpdating = True Set sh = Nothing End Sub New Microsoft Excel Worksheet1.rar

أخى الفاضل / أبو جيداء أرجو مزيد من التوضيح هل الرقم فقط يكون فى الشيت الثانى أم أن كل البيانات تكون فى الشيت الثانى

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

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

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

أخى الفاضل / جلال محمد تسلم ايديك

أخى الحبيب / محمد أبو البراء انما هى زيادة فى الخير أخى الحبيب تسلم ايديك

أو طريقة أخرى من داخل المعادلة احصاء2.rar

تفضل أخى المعادلة تكتب بشكل عادى ويكون تنسيق الخلية ( نسبة مئوية ) احصاء.rar