fady_dd

الرجاء ارفاق ملف لنستفيد منه كيف تم المشاركة بال vba وجزاك الله خيرا

تم عمل اللازم ومرفق الملف بعد التعديل عملاء2023.xlsm

كود لجلب اسماء اوراق العمل وعمل ارتباط شعبى لها Sheet_name.xlsb

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

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

المطلوب كود ترحيل من شيت "Data" الى شيت Journal حسب اسم الحساب فى العمود (D) فى شيت "Data" الى ما يقابلة فى الشيت الاخر سواء طرف مدين او دائن Financial_Statements.xlsb

استبدل الكود الاتى Private Declare Function ShellExecute _ Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hWnd As Long, _ ByVal Operation As String, _ ByVal Filename As String, _ Optional ByVal Parameters As String, _ Optional ByVal Directory As String, _ Optional ByVal WindowStyle As Long = vbMinimizedFocus _ ) As Long بهذا الكود Private Declare PtrSafe Function ShellExecute _ Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hWnd As Long, _ ByVal Operation As String, _ ByVal Filename As String, _ Optional ByVal Parameters As String, _ Optional ByVal Directory As String, _ Optional ByVal WindowStyle As Long = vbMinimizedFocus _ ) As Long وسوف يفتح ان شاء الله

جزاك الله خيراً

ملف عملاء بطريقة VBA محتاج معادلة عند اضافة شيت جديد وعند الضغط على زر ارصدة العملاء فى الشيت "Balance" يتم ادراج رصيد اول المدة والحركة المدينة والحركة الدائنة من الشيت الذى يتم ادراجة عند الضغط على اضافة عميل جديد . ومرفق الملف برجاء الافادة وجزاكم الله جيرا Client.xlsm

جزاكم الله خيراً