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

الله يشفيه ويعافيه ويقومه بالسلامه .. آمين .. ويشفي مرضانا ومرضى المسلمين اجمعين.

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

جزيت خيراً استاذ جعفر على مشاركتك وان شاء الله ترجع السلطنة بالسلامة

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

السلام عليكم شكراً استاذ جعفر على المشاركة القيمة بدات الصورة في الوضوح بالنسبة لخط سير الإجازة === كان حل ان يتم ارسال رسالة SMS الى مقدم الطلب فور الانتهاء من كتابة الطلب هو الحل الأمثل لمشكلة التوقيع ولكن واجهتني مشكلة في ذلك فمن لديه الحل فليمدنا به نستخدم نظام Bulk SMS والمزود هي شركة اتصالات هذا هو الموقع من هنا وقد تواصلت معهم لكي يزودوني بكود للاستخدام في الاكسس ولكن ابلغني الموظف بانه ليس لديهم حل برمجي كامل واعطاني هذا الرابط http://www.batelcosms.com.bh/bms/Soap/Messenger.asmx?page=proxy&lang=vb اتمنى ممن يستطيع المساعدة ان لا يبخل علي في سبيل الحصول على كود برمجي استخدمه في الاكسس لارسال الرساالة مباشرة بعد كتابة الطلب وشكراً

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

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

السلام عليكم كيف نحل إشكال وجود ما يثبت أن الموظف تقدم بطلب الإجازة (الموضع به اكثر من 150 موظف). =========== برنامج الاكسس الحالي يتم تسجيل مختلف الطلبات بما في ذلك الإجازات ويتم الطباعة على نموذج جاهز (تقرير) فهل يعني اني بحاجة الى فصل الاجازات ام يمكن ان تضل ضمن الطلبات ==== اخي الفاضل (yms12) هل هناك من مرفق مبسط يوضح الفكرة

اتمنى المساعدة واكون شاكراً لك اخي وارجو ان تفيدنا بالايجابيات والسلبيات وعن التوقيع الألكتروني (جهاز وقلم الكتروني) هل هناك إمكانية لربطه بالاكسس

ماذا عن التوقيع الألكتروني (جهاز وقلم الكتروني) هل هناك إمكانية لربطه بالاكسس

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

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

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

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

تم تعديل رابط التحميل حسب طلب صاحب الموضوع ====================

السلام عليكم قمت بإزالة مربعات النص وإستبدالها بخلايا الاكسل من المدى A2:F2 أصبح الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A2:F2]) Is Nothing Then If Target = "" Then AutoFilterMode = False Else Range("RN").AutoFilter , field:=Target.Column, Criteria1:=Target End If End If End Sub هذا الكود يفيد لجميع خلايا المدى جرب المرفق اضافة وتغيير في صيغة البحث 2010.zip

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

جاري التجربة

السلام عليكم ورحمة الله وبركاته شكراً لك أخي الفاضل ========== لمزيد من الفائدة يوجد في المنتدى موضوع من عمل الاستاذ محمد صالح وهو باللغة العربية وهذا رابطه http://www.officena.net/ib/index.php?showtopic=40108&hl=

جميل جداً ونحن بإنتظار ذلك

السلام عليكم اخي عبدالحميد هل ندمك لان الملف محمي أم ماذا؟

السلام عليكم تفضل أخي الكريم إن شاء الله يكون هذا هو المطلوب 6.zip

السلام عليكم اليكم مشاركة على السريع Sub Abu_Ahmed() Dim lstCol, Col, i Dim cl As Range Col = UsedRange.Columns.Count lstCol = Col Columns(Col).ClearContents For Each cl In UsedRange If Not IsEmpty(cl) Then Cells(i + 1, Col) = cl: i = i + 1 Next End Sub

اخي الأفضل إرفاق ملف به الكود ==== حاولت واتمنى ان يكون هذا التعديل هو ما طلبت Private Sub Workbook_Open() Dim S$ With ActiveSheet S = .Name If S = "ورقة1" Or S = "ورقة2" Or S = "ورقة3" Then Alidroos_Control_F Else Alidroos_Control_T End If End With End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "ورقة1" Or Sh.Name = "ورقة2" Then Alidroos_Control_F Else Alidroos_Control_T End If End Sub Private Sub Alidroos_Control_F() If Not Application.CommandBars Is Nothing Then With Application.CommandBars .FindControl(ID:=847).Enabled = False .FindControl(ID:=848).Enabled = False End With End If End Sub Private Sub Alidroos_Control_T() If Not Application.CommandBars Is Nothing Then With Application.CommandBars .FindControl(ID:=847).Enabled = True .FindControl(ID:=848).Enabled = True End With End If End Sub

السلام عليكم Sub SHEET_SaveAsPDF() Dim fName As String, i As Integer For i = 1 To Sheets.Count With Worksheets(i) If .Range("A1") = "printing" Then fName = .Range("A5").Value & " " & .Range(" D5 ").Value If .Range("A5").Value = "" And .Range("A5").Value = "" Then GoTo 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "D:\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If End With 1 Next End Sub جرب هذا التعديل