أبوبسمله

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

جزاك الله خيرا يا ابوالبراء بعد إذنك شوف المعادله دى هيا شغاله بس ملخبطه مش عارف ليه

ده ملف مشابه للطلب للاستفاده والافاده بالتوفيق Extracting-a-unique-sorted-list-based-on-frequency-of-occurrence.rar

جزاك الله كل خير على التعديل وزى ما انت عارف انا على قدى فامتعتبش عليا دى معادله بس عاوزه برضه شويه ظبط منكم =LOOKUP(REPT(“z”;99);CHOOSE({1,2};””;IF(ROWS(E$4:E4)<=F$1;INDEX(costcenter;MODE(IF((costcenter<>””)*ISNA(MATCH(costcenter;E$3:E3;0));MATCH(costcenter;costcenter;0)*{1;1})));””))) بالتوفيق حبايبى

اخوانى الاعزاء اشارككم الكود الجميل ده مرفق معه اداه تحملوها وباعد ما تضغط رن هيفتحلك انبوت حدد الرنج المراد عكسه بس هنا بيعكسه فى محله اكتشفوا الكود والاداه جميله وفيها حاجات كتير اوى طبعا انتم الاساتذه تعرفونا ايه استعملاتها رابط المصدر رابط الاداه للتحميل Sub FlipColumns() 'Updateby20131126 Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer, j As Integer, k As Integer On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Arr = WorkRng.Formula For j = 1 To UBound(Arr, 2) k = UBound(Arr, 1) For i = 1 To UBound(Arr, 1) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(k, j) Arr(k, j) = xTemp k = k - 1 Next Next WorkRng.Formula = Arr End Sub بالتوفيق اخوانى

منا عارف بس لما ترجمت عكس فى جوجل وبحثت مطلعليش اى حاجه خالص لان تقريبا الترجمه مش مظبوطه مع المتوقع بارك الله فيك اخى

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

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

شوف يا عم ابو البراء انت عمال تجيبلنا موضوعات صعبه انا كل اللى عرفت اعمله احط معادله فى الست خانات باستعمال اوفست دى اول خانه والبقيه تحتها =OFFSET(A1;5;0) حاولت اعمل مصفوفه معرفتش حاولت اظبطها باوفيست فى Vba برضه معرفتش يالا مش مشكله هنحاول تانى وجزاك الله كل خير والنبى والنبى يا استاذ امتحنا امتحان سهل احنا ساقطين لوحدنا ههههههههههههههههههههههه

انا اللى بنتظرك حبيبى ابو البراء جهزت موضوع الاسبوع ولا لسه ياغالى جزاك الله كل خير يا ابو البراء

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

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

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

لادراج اليوم تلقائى بتقريرك بالتوفيق

اتفضل اخى الفاضل ان شاء الله يكون كما تريد ناقص جزئيه بسيطه ألا وهى لصق البيانات بدون معادلات والحفاظ على المعادلات بالشيت الاول ان شاء الله ساحاول فيها Sub PasteRowDelete() Application.ScreenUpdating = False Worksheets("ضع هنا اسم الشيت اللى سيتم النسخ منه").Select ActiveCell.EntireRow.Select Selection.Cut Sheets("هنا ضع اسم الشيت اللى سيتم النسخ اليه").Select Range("A65536").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("ضع هنا اسم الشيت اللى سيتم النسخ منه").Select Selection.Delete Shift:=xlUp ActiveCell.Select Application.ScreenUpdating = True End Sub بالتوفيق اخى ونرجو منك تغيير الاسم الى اللغه العربيه لنتعرف بشخصكم الطيب

تم التحميل من الملف الاخير جزاك الله خيرا جعله الله فى ميزان حسناتك

العفو اخى محمد والحمد لله الذى بفضله تتم الصالحات بالتوفيق

اتفضل بعد توسيع المدى بالتوفيق اخى 20.rar

اتفضل اخى الفاضل غير المعادله فى الشيت 2 فى الخليه c6 =SUMIFS(Sheet1!$G$5:$G$20;العملاء;B6) واسحب لتحت ثم ضيف اى عميل فى الشيت الاول فى الصف 20 وهو اخر المدى ممكن توسعه انت بقا زى ما انت عاوز اذا قمت بتغيير المدى الخاص بالعملاء بالشيت الاول متنساش تغيره بالمعادله دى برضه بالتوفيق

اتفضل اخى ان شاء الله يكون طلبك بالتوفيق 21.rar

اتفضل شوف الفيديو والملف اضغط للتحميل وزى ما قال استاذنا الفاضل أبو عيد اطرح مشروعك بالتوفيق

البقاء والدوام لله وإن لله وإنا إليه راجعون نسأل الله الرحمن الرحيم لها ولكل اموات المسلمين الرحمه وان يجعل قبورهم روضة من رياض الجنه وان يصبركم على فراقها

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

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

اخى الفاضل ماجد اريد ان اوضح لك انك لكل سجل وقته واحداثه المنفصله عن باقى السجلات بالطبع موضوعك الاول تحديث كل ثانيه فهل تعتقد انك بالسرعه الكافيه لتسجل سجل كامل باحداثه كل ثانيه على مااعتقد لا ارجو ان يتسع صدرك لكلامى لما لا تستخدم هذه المعادله لتسجيل تاريخ ووقت ادخال البيانات او اظظبط التنسيق كما يحلو لك كتوقيت بالساعه والثانيه والدقيقه لاستخدام هذه المعادله عليك الدخول للخيارات ثم الصيغ وتفعيل خاصيه تمكين الحساب التكرارى ثم ضع هذه المعادله =IF($A2="";"";IF($C2="";NOW();$C2)) ارجو ان تفيدك بالتوفيق اخى