fady_dd

الرجاء ارفاق ملف 

لنستفيد منه كيف تم المشاركة بال vba

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

تم عمل اللازم

ومرفق الملف بعد التعديل

عملاء2023.xlsm

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

Sheet_name.xlsb

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

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

تلقائى يتم الترصيد فى حساب شيت Journal  ولكن العملية تستغرق وقت طويل جدا !!!

هل يوجد طريقة تكون اسرع فى الوقت

Financial.rar

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

Financial_Statements.xlsb

في ١١‏/١‏/٢٠١٩ at 00:31, Mahmoud dwam said:

استاذي الفاضل 

الملف لا يعمل على اكسيل 64 بت ارجو الرد كيف يعمل على اصدار 64 بت 

في انتظار الرد 

استبدل الكود الاتى

 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

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