رجب جاويش

أخى الفاضل / الشيباني1 أرجو مزيد من التوضيح لما تريد مع تحياتى

عمل أكثر من رائع من أشخاص رائعون جزاكم الله كل خير

ألف مليوووووووووووووووووون مبروك الترقية

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

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

أخى الفاضل / ريان أحمد موضوعك موجود على الرابط http://www.officena.net/ib/index.php?showtopic=52179

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

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

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

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

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

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

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

أخى الحبيب / محمد أبو البراء بارك الله فيك

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

أخى الفاضل / ahmedyum جزاك الله كل خير

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

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

أستاذى الفاضل / محمد يوسف جزاك الله كل خير

أستاذى الفاضل / محمد يوسف جرب المرفق أرجو أن يكون كما تريد ( عدلت احصائيات اللغة الثانية فقط ) العلمى.rar

جزاك الله كل خير :fff:

أخى الفاضل / عادل جرب المرفق البحث عن القيم التى تناسب 2الفترة.rar

ولاثراء الموضوع هذه محاولة أخرى حساب آخر تاريخ عمل.rar

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

بعد إذن أخى الحبيب / جمال عبد السميع :fff: هذا كود لترحيل البيانات التى يتم ادخالها مع مرعاة عدم ترحيل البيانات المكررة ومسح البيانات المرحلة من الصفحة الأصلية بعد عملية الترحيل Sub ragab() Set WF = Application.WorksheetFunction Application.ScreenUpdating = False If IsEmpty([B6]) Or IsEmpty([B8]) Or IsEmpty([B9]) Or IsEmpty([B10]) Then MsgBox "أكمل البيانات أولا" Exit Sub End If On Error Resume Next x = Trim(Range("B6").Value) LR = Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1 If WF.CountIf(Sheets(x).Range(Sheets(x).Cells(3, 1), Sheets(x).Cells(LR, 1)), [B8]) >= 1 Then MsgBox "هذا الإسم مكرر حيث تم ترحيله من قبل" Exit Sub End If Sheets(x).Cells(LR, 1).Resize(1, 3).Value = WF.Transpose(Range("B8:B10").Value) Range("B8:B10").Value = "" MsgBox "تم الترحيل بحمد الله" [B6].Select Application.ScreenUpdating = True End Sub ترحيل إلى عدة صفحات.rar