حاتم عيسى

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

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

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

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

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

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

تفضلي إليك ملف لتجربة الكود على تنفيذ الأمر بعد وضع كلمة المرور على هيئة نجوم كلمة المرور هي ( 123 ) ماكرو1.xlsm

استاذي الفاضل : محي الدين ابو البشر كيف يمكن زيادة عدد الصفحات التي يتم الترحيل إليها ؟

بارك الله فيكم جميعا تم حل المشكلة وذلك عندما وجدت تكرار للكود الخاص بكلمة السر كان موجود مرتين قمت بحذف واحد منهم . والحمد لله كله تمام مرفق الكود الخاص عمل كلمة السر على هيئة نجوم حتى لا يعرفها أحد . Option Explicit Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then RetVal = GetClassName(wParam, strClassName, lngBuffer) If Left$(strClassName, RetVal) = "#32770" Then SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If CallNextHookEx hHook, lngCode, wParam, lParam End Function Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook End Function

بسم الله الرحمن الرحيم من فضل حضراتكم جميعا برجاء مساعدى في حل تلك المشكلة Compil error: Ambiguous name detected: InputBoxDK عند تنفيذ هذا الكود Private Sub ButtonGo_Click() Dim strAdminPWord As String strAdminPWord = InputBoxDK("Password required to proceed.", "من فضلك أدخل كلمة المرور للدخول") If strAdminPWord = "1234" Then MsgBox "كلمة المرور صحيحة ", vbOKOnly, "success" Me.Hide Application.Visible = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" ActiveWindow.DisplayWorkbookTabs = False Sheets("البيانات الرئيسية").Select Worksheets("البيانات الرئيسية").ScrollArea = "A1:A1" Range("A1:A1").Select Else MsgBox ("كلمة المرور خاطئة حاول مرة أخرى") Exit Sub End If Unload Me End Sub وشكرا لكم جميعا

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

السلام عليكم ورحمة الله وبركاته عندي ملف به بيانات العاملين في عدة أقسام مختلفة هل من الممكن أن يتم عمل صفحة تلقائيا بناء على اسم القسم وترحيل البيانات الخاصة بالعاملين بهذا القسم إلى تلك الصفحة مع عدم تكرار البيانات مرفق الملف المراد العمل عليه .... وجزاكم الله خيرا ونفعكم الله بعلمكم وزادكم علما 2051820742_.xlsm

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

بسم الله الرحمن الرحيم قمت بتنزيل نموذج إدارج الصور وترحيلها إلى مجلد بنفس مسار الملف . قابلتني مشكلة بأنه عند فتح النموذج لا يمكنني التعامل مع الشيت ( تحديد الخلايا - الرفع لأعلى - النزول لأسفل - الكتابة ... وغيره ) فهل من الممكن المساعدة في حل مشكلة عدم التمكن من التعامل مع الشيت أثناء فتح النموذج من فضلك لا تقوم بتكرار ورفع نفس المشاركات بصورة مستقلة ... تــم بالفعل حذف المشاركة الأخرى مركز الخليج مرفق الملف المستخدم 277122576_.rar

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

عمل ممتاز بالتأكيد بارك الله فيكى وزادك الله من فضله

جزاكم الله خيرا استاذ سليم عمل أكثر من رائع

الأستاذ الفاضل : Ali Mohamed Ali شكرا جزيلا لحضرتك على المجهود الرائع والعمل الممتاز وجعل الله جميع أعمالك في موازين حسناتك ونفعك بها يوم لقاه . وشكرا للمنتدى الغالي على السادة المشرفين والرواد والقائمين على المنتدى لما يبذلوه من جهد لخدمة الجميع .

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

الأستاذ الفاضل المحترم : محمد أبوصهيب للأسف الملف كبير جدا أكثر من 120 ميجا ولا يمكن رفعه

الأستاذ الفاضل المحترم : Ali Mohamed Ali جربت الخطوات الموجوده في الرابط الذي تفضلتم حضرتكم به في الرد السابق ولكن مازال الخطأ موجود . فما الحل بالله على حضرتكم ؟

السادة الأفاضل المحترمين تحية طيبة ... وبعد ما هو حل مشكلة Run-time error '13' Type mismatch صورة الخطأ عند الضغط على رز Debug شكرا لكم وبارك الله فيكم

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

أولا شكرا جزيلا لرد حضرتك ... بارك الله فيك ثانيُا : هل من الممكن التعديل على هذا الكود ليكون الباسورد مخفية Private Sub ButtonExit_Click() pass = "123123" sama = InputBox("إدخل الباسورد لتنفيذ الماكرو") If sama <> pass Then MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)") SS = SS + 1 If SS > 3 Then Application.DisplayAlerts = False Application.Quit End If Exit Sub End If Me.Hide b = 1 Application.Visible = True ActiveWindow.DisplayWorkbookTabs = False Sheets("Home2").Select End Sub شكرا جزيلا لحضرتك

هل يمكن جعل كلمة مرور تنفيذ الماكرو عند كتابتها تكون غير ظاهرة حتى لا يعرفها أحد هل يمكن إخفاء باسورد تنفيذ الماكرو.xls