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

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

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

أخيرا المبالغ المستلمة أين سيتم إدراجها في ورقة العمل AM ؟؟ دا السؤال التالت لم تجب على السؤال الأخير هل يتم التجميع في عمود الملاحظات أم السلفيات أم العمود الأخير الذي ليس له عنوان .. اعذرني لجهلي بالماليات ..أعتقد أنه يكون ربما عمود السلفيات .. هل تريد في خانة الملاحظات أن تكتب اسم ورقة العمل التي بها المبلغ المستلم؟

أخي الفاضل محيي الدين بارك الله فيك وجزاك الله كل خير بس نصيحة مني خلي سطح المكتب نضيف دايما ..حاول تنظم ملفاتك في أي بارتشن غير الـ C عشان لو الويندوز سقط هيزعلك أكيد !! تقبل تحياتي

سؤال أخير ..الشغل هيكون على أي مرفق الآن .. لأن في الموضوع الآن مرفقين مختلفين !!!!

هل تعلم أنه يمكنك منع المستخدم من كتابة مسافة قبل أو بعد النص .. فقط من خلال Data Validation التحقق من الصحة ، اختر Custom مخصص ثم اكتب هذه المعادلة (الخلية A1 على سبيل المثال) =$A1=TRIM($A1)

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

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

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

بعدما تختار اسم العميل اضغط الأمر Run ليتم التنفيذ ... أمر آخر اختيار اسم العميل بيكون من ورقة العمل "كشف الحساب" وليس اليومية .. شوف الأول الكود شغال تمام أو لا

اطلعت على المرفق الأخير لك ولم أفهم شيء ................!! أيوا والله زي ما بقولك كدا حاول تبسط طلبك بالله عليك بمعنى اذكر طلبك في نقاط 1 - الورقة التي بها البيانات الخام المراد جلب البيانات منها اسمها ايه 2 - الشروط الثلاثة من أي أعمدة .. 3- أعتقد أنه ربما يكون هناك مشكلة في الشرط الأول "منطقة_القاهرة_أمكو2" حيث أن هذا الشرط غير موجود في ورقة العمل RawData 4- وضح بالتفصيـــــــــــــــــــــــــــل ..

أخي الحبيب لما بتكون الطلبات كثيرة في الموضوع بتوه صراحة ... هل جربت الكود في المشاركة رقم 7 هل عمل بنجاح معك أم أن هناك مشكلة ؟ يرجى تحديد الأمر أولاً .. وإذا كان هناك طلب آخر بشكل مختلف يرجى طرح موضوع جديد ..

مشكور على الاستجابة للتوجيهات .. الأمر لن يكون صعب بالنسبة إليك في توضيح المطلوب بالموضوع .. عموما جرب المرفق التالي ... تم تغيير البيانات في ورقة العمل المسماة (جدول الإدخال) ليتناسب مع ورقة العمل المسماة (أجور الطبيب) .. إليك الكود التالي Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim X As Long, Y As Long, Cell As Range Dim lRow As Long Set WS = Sheets("جدول الإدخال"): Set SH = Sheets("أجور الطبيب") Application.ScreenUpdating = False For Each Cell In WS.Range("F3:F16") If Not IsEmpty(Cell) Then X = Application.WorksheetFunction.Match(Cell.Value, SH.Rows(1), 0) lRow = SH.Cells(49, X).End(xlUp).Row + 1 WS.Range(Cell.Offset(, -5), Cell.Offset(, -3)).Copy SH.Cells(lRow, X).PasteSpecial xlPasteValues Cell.Offset(, 1).Copy SH.Cells(lRow, X + 8).PasteSpecial xlPasteValues On Error GoTo 1 Y = Application.WorksheetFunction.Match(Cell.Offset(, -2), Range(SH.Cells(2, X), SH.Cells(2, X + 8)), 0) SH.Cells(lRow, X + Y - 1).Value = Cell.Offset(, -1).Value 1 End If Next Cell Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Doctors' Wages.rar

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

هل تعلم ؟ لتحديد العمود بالكامل حدد أي خلية بالعمود ثم اضغط من لوحة المفاتيح CTRL + SpaceBar (مسطرة) ولتحديد الصف بالكامل حدد أي خلية بالصف ثم اضغط من لوحة المفاتيح SHIFT + SpaceBar (مسطرة) برجاء من الأخوة عدم كتابة أي ردود سوى المشاركات الفعالة التي تساهم في إثراء الموضوع ، حفاظاً على شكل الموضوع .. من يشارك فقط بمعلومة فليتفضل بالمشاركة

أخي الحبيب محمد الريفي بارك الله فيك على هذه الموضوعات القيمة الأخ الحبيب مخ (طار) عشان تكمل الحيرة تفضل .. =ROUNDDOWN(B4/C4,0) تؤدي نفس الغرض أيضاً .. أعتقد أنه لا فرق في النتائج أخي مختار على الإطلاق في استخدام الثلاثة صيغ .. الفرق الوحيد هو الاستخدام المختلف لكل منهم فالدالة Quotient تستخدم عدد 2 بارامتر الأول وكذلك الدالة Rounddown أما الدالة Int فتستخدم بارامتر واحد فقط . عموماً كل السبل تؤدي إلى أوفيسنا ، وأوفيسنا تأبه للجميع تقبلوا تحياتي

صراحة المطلوب غير واضح إلى حد كبير .. بقالي أكتر من 10 دقايق رايح جاي في الملف ومش فاهم كتير فيه .. دلوقتي فيه رقم عميل ورقم مستفيد زي ما لاحظت : الشغل هيكون على رقم المستفيد بصرف النظر عن رقم العميل ؟؟؟؟ دا السؤال الأول في أوراق العمل يوجد مبالغ مودعة ومبالغ مصروفة ؟؟ الشغل هيكون على أي جدول فيهما ؟؟ دا السؤال التاني أخيرا المبالغ المستلمة أين سيتم إدراجها في ورقة العمل AM ؟؟ دا السؤال التالت شفت إنك مش موضح طلبك كويس ..خليت واحد زي حالاتي ميسواش حاجة يعدل عليك تقبل تحياتي

الأخ الفاضل مهند يفضل شرح المطلوب بدون إجبار الأعضاء على تحميل المرفق .. قم بشرح المطلوب ..

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

أخي الفاضل صلاح جرب الملف التالي .. Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim strCrt As String Dim I As Long, X As Long X = 6 Set WS = Feuil3: Set SH = Feuil4 strCrt = SH.Range("E2").Value Application.ScreenUpdating = False SH.Range("D6:S135").ClearContents With WS For I = 6 To .Cells(Rows.Count, "E").End(xlUp).Row If .Cells(I, 5).Value = strCrt Then .Range(.Cells(I, "D"), .Cells(I, "S")).Copy SH.Range("D" & X).PasteSpecial xlPasteValues X = X + 1 End If Next I End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub كشف الحساب.rar

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

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

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

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

أخي الحبيب صلاح أعتذر عن التأخر في الرد ..التمس لي العذر بالنسبة لطلبك .. مش شرط تكون نفس الطريقة اللي موجودة في التصفية المتقدمة أنا بس عايز أعرف الترحيل بيكون على أساس اسم العميل فقط ..الخلية الموجودة في ورقة العمل "كشف الحساب" فقط أم أن هناك شروط أخرى للترحيل ؟؟