عبدالله المجرب

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

ملف جميل ومفيد لشئون الموظفين بداية نشاط من الاخ احمد الغانم نتمنى ان يدوم ويزداد وهجه ابواحمد

الاخ الفاضل جمال الفار شكراً على جمع المعادلات في ملف واحد بعد اذن ملك الاكواد الاستاذ المبجل محمد يحياوي بالنسبة لزيادة اليومين قمت بعمل تعديل بسيط على الدالة ارجو منك تجربته Function Age(Date1 As Date, Date2 As Date) As String Dim Y As Integer Dim M As Integer Dim D As Integer Dim Temp1 As Date Temp1 = DateSerial(Year(Date2), Month(Date1), Day(Date1)) Y = Year(Date2) - Year(Date1) + (Temp1 > Date2) M = Month(Date2) - Month(Date1) - (12 * (Temp1 > Date2)) D = Day(Date2) - Day(Date1) - 2 If Day(Date2) - Day(Date1) = 0 Then D = 0 End If If D < 0 Then M = M - 1 D = Day(DateSerial(Year(Date2), Month(Date2) + 1, 0)) + D + 1 End If Age = Y & " ÓäÉ " & M & " ÇÔåÑ " & D & " íæã" End Function

ان شاء الله استاذ يوسف هذا ما كنت اقصده بالبيانات الافقية طلب أخر.rar

اخي يوسف جمعة مباركة ضع الكود في ملف ليسهل تتبعه وارجو منك تجربة الكود بعد ان تم اختصاره هل يؤدي نفس الغرض Sub Khboor_Tarheel() '============================================= ' ÇáíÉ ÇáßæÏ ÈÚÏ ÇáÊÑííá íÞæã ÈãÓí ÇáÈíÇäÇÊ ÇáÊí Êã ÊÑííáåÇ On Error Resume Next Application.ScreenUpdating = False For a = 11 To [a3000].End(xlUp).Row For i = 0 To 39 If Cells(a, 1) <> "" Then MySheets = Cells(a, 1) With Sheets(MySheets).[a3000].End(xlUp) .Offset(1, i) = Cells(a, i + 1) End With End If ' If Sheets("æÑÞÉ1").Cells(a, "a") > "" Then Cells(a, 3).Resize(1, 4).Value = "" ' ÇÐÇ ÇÑÏÊ ãÓí ÇáÈíÇäÇÊ ÈÚÏ ÇáÊÑííá íÝÒ åÐÇ ÇáÓØÑ Next i Next a Application.ScreenUpdating = True MsgBox "!Êã ÇáÊÑííá ÈäÌÇí", vbInformation + vbMsgBoxRight, "Êã ÇáÊÑííá" Range("a1").Select On Error Resume Next On Error GoTo 0 End Sub

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

الدالة الموجودة في الاكسل هي نفس الدالة التي استخدمتها انت CONCATENATE وطريقة الاستخدام موجودة في ملف الاخ احمد الغانم الخانة C2 === وهناك طريقة اخرى بفرض ان الاسماء موجودة في الخلية A3 و B3 المعادلة ستكون هكذا في C3 =A3&" "&B3

الاخت الفاضلة الملف المرفق جميل فما المطلوب اكثر من هذا === بخصوص بيانات موظفين جاهزة هذه روابط http://www.officena.net/ib/index.php?showtopic=29331 http://www.officena.net/ib/index.php?showtopic=29673 http://www.officena.net/ib/index.php?showtopic=29859 وهذا برنامج موظفين مفتوح المصدر http://www.officena.net/ib/index.php?showtopic=28601

بالنسبة للطلب الاخر الحل هو اعادة تنظيم الملف وجعل البيانات افقياً لتستخدم الدالة VLOOKUP

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

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

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

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

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

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

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

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

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

اذاً خذ المرفق وفيه زر الامر ِAyman.rar

واذا اردت مسح البيانات بعد الترحيل من الخانات التي في العمود G فالكود سيكون كذا Sub Trhl_Abu_Ahmed() Dim i As Integer, LR As Integer t = 1 LR = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To 5 Cells(LR + 1, i).Value = Cells(i + 15 + t, "G").Value Cells(i + 15 + t, "G").Value = "" t = t + 1 Next i End Sub وهذا الكود برسالة تنبيهية اذا كان احدى الخانات او اكثر فارغة بعدم اكمال الترحيل Sub Trhl_Abu_Ahmed() Dim i As Integer, LR As Integer If Application.WorksheetFunction.Count(Range("G17:I26")) < 5 Then MsgBox "لم يتم الترحيل لعدم اكمال الحقول المرحلة ", vbOKOnly + vbCritical, "تنبيه": Exit Sub End If t = 1 LR = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To 5 Cells(LR + 1, i).Value = Cells(i + 15 + t, "G").Value Cells(i + 15 + t, "G").Value = "" t = t + 1 Next i End Sub

السلام عليكم اخي ضع هذا الكود في زر امر Sub Trhl_Abu_Ahmed() Dim i As Integer, LR As Integer t = 1 LR = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To 5 Cells(LR + 1, i).Value = Cells(i + 15 + t, "G").Value t = t + 1 Next i End Sub

حياك الله اخي جمال وشكراً على مرورك

اخي ذيب اليمن حتى لا يحدث تداخل في عمل الكود من مسح ولصق وغيرها انا ارى ان الافضل ان تعتمد حرف F بدل 0 في ايام الجمع جرب وسترى ان الكود لا يحتاج الى تعديل

السلام عليكم جرب المرفق سيعمل الكود بعد تغيير الرقم الوظيفي MQ.rar

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