محمود_الشريف

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

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

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

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

أخى فى الله استاذى القدير // عبد الله باقشير بارك الله فيكم على مروركم الكريم أسأل رب العالمين لكم أن يحفظكم من شرور خلقه تقبل منى وافر الاحترام والتقدير

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

أخى فى الله الأستاذ // اكرامى رمضان بارك الله فيكم على مروركم الكريم وثناؤكم على الموضوع تقبل منى وافر الاحترام والتقدير

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

أخى الكريم للإجابة على استفساركم هناك عده طرق 1- عن طريق عمل شير لملف الأكسل .. عيوبه .. لا يسمح بإستخدام الأكواد أو الماكرو 2 - عن طريق ربط الأكسل بأكسس وهذه الطريقة على ما أعتقد للأستاذ القدير // عبد الله باقشير .. وان قمت بالبحث بالمنتدى ستجدها 3 - عن طريق خدمه مايكروسوفت سكاى درايف للإشتراك فيها عن طريق ايميل علي الهوتميل 4 - عن طريق خدمة جوجل درايف للإشتراك فيها شاهد الفيديو التالى وتقبل منى وافر الاحترام والتقدير

أختنا فى الله الأستاذة القديرة // أم عبد الله بارك الله فيكم على مروركم الكريم أسأل رب العالمين أن يتقبل دعاؤكم تقبلوا منى وافر الاحترام والتقدير

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

أخى فى الله أستاذى القدير // حماده عمر بارك الله فيكم على مروركم الكريم وثناؤكم على الموضوع تقبل منى وافر الاحترام والتقدير

أخى فى الله الأستاذ // ابو شرف بارك الله فيكم وإن شاء الله فى المرحلة القادمة سوف آخذ فى الإعتبار ما ذكرته من ملاحظات قيمة تقبل منى وافر الاحترام والتقدير

أخى فى الله الأستاذ القدير // مجدي يونس بارك الله فيكم على مروركم الكريم تقبل منى وافر الاحترام والتقدير

بارك الله فيكم أخى الكريم تقبل منى وافر الإحترام والتقدير

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

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

اخى الكريم تم التعديل على الكود ليصبح هكذا مع تجربته ولكنه يستغرق وقت طويل Sub DelteDuplicateInMultiPages() Dim x As Long x = CLng(2000) * 365 For X = Range("F" & Rows.Count).End(xlUp).Row To 1 Step -1 If WorksheetFunction.CountIf(Range("F1:F" & X), Range("F" & X).Value) > 1 Then Range("F" & X).Delete shift:=xlUp End If Next X End Sub وهناك طريقة اسرع من خلال الاكسل نفسه حدد العمود بالكامل من الضغط على F ثم اختر بيانات ثم اختر حذف المكرر

أخى الكريم اليكم المرفق به الكود الذى قمت بإرفاقة بمشاركتى السابقة فقط قمت بتغيير العمود الى F برجاء مراجعة المشاركة السابقة لى الجدول 22.rar

أخى الكريم بعد اذن اخوانى فى الله الأستاذ / ابو ايمان الأستاذ / سليم حاصبيا اليكم الكود التالى وان شاء الرحمن سيفى بالغرض قد تجد أنه بطىء بعض الشىء ولكنه فعال وقم بربطه بزر وقم بتفعيل الماكرو Sub DelteDuplicateInMultiPages() Dim i As Integer For i = Range("E" & Rows.Count).End(xlUp).Row To 1 Step -1 If WorksheetFunction.CountIf(Range("E1:E" & i), Range("E" & i).Value) > 1 Then Range("E" & i).Delete shift:=xlUp End If Next i End Sub وإذا أردت العمل بسرعة يوجد باكسل 2007 خاصية حذف التكرار بتحديد العمود ثم بيانات ثم حذف التكرار ولى رجاء عندكم تعديل اسم الظهور بالمنتدى الى اللغة العربية طبقا لقوانين المنتدى وتقبلوا منى وافر الاحترام والتقدير

أخى الكريم بارك الله فيكم دمتم فى أمان الله وحفظه

أخى الكريم بارك الله فيكم على مروركم الكريم تقبل خالص تحياتى وتقديري

أخى فى الله الأستاذ // نجم الدين ابراهيم بارك الله فيكم على مروركم الكريم وجزاكم رب العالمين خيرا

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

ألف مليون مبروك مع خالص تمنياتى القلبية لكم بدوام التقدم والرقي لكم خالص تحياتى وتقديري