Ahmed Saad 2017

هل هناك طريقة للتشغيل علي نسخه 64

البرنامج به مشكلة عند التشغيل

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

انا بشكر حضرتك جزيلا يا استاذ عمر جزاك الله خيرا

@omar elhosseiniلا اريد حذف البيانات المرحله من الخزينة يا استاذ عمر أريد الآني انه في حالة الفلترة علي حساب جاري التامينات الاجتماعية و جاري مصلحة الضرائب و مصروفات مستحقة و مصروفات مقدمة و صدقات مستحقة يتم ترحيلهم في صفحات منفصله وانا كنت بلغت حضرتك ان الحسابات دي بتترحل كلها في صفحه واحده مع بعض اسمها صفحة الالتزامات كما موضح بالجدول المطابق اللي بعته لحضرتك ممكن حضرتك تبعتلنا مثال علي الشيت في تصحيح الخطأ المحاسبي

الخطا بيحصل لما بحتاج اعمل تعديل

اقصد يا استاذ عمر ان بيانات شيت الخزينة كانت في Tables و بعد عملية الترحيل اصبحت Range @omar elhosseiniوبخصوص الجزء ده انا محتاج الحسابات دي ترحل في صفحه واحده اسمها الالتزامات كما وضحت لحضرتك من قبل بالفعل لغيت الكود ده واتحلت المشكلة هل في اي غلط في الغائه ؟ 'Sub Convert_Tables_To_Range() '' 'Dim xSheet As Worksheet 'Dim xList As ListObject 'Set xSheet = ActiveWorkbook.ActiveSheet 'For Each xList In xSheet.ListObjects ' xList.Unlist 'Next 'End Sub

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

برجاء الافادة في وجود خطأ في كود تعديل بيانات حيث انه عند التعديل يظهر هذا الخطا الذي باللون الاحمر حضرتك الكود ده في اضافات Add-ins في الماج يك فورم بطبق التعديل طلعلي الخطأ ده ممكن تضيف الاضافة عندك في الاكسيل و تجرب التعديل الكود Private Sub cmd_Update_Click() If Tbl Is Nothing Then Exit Sub 'التعديل على بيانات Dim rng As Range Dim Rw As Long, Clm As Long Dim i As Byte With Ws.Range("" & Tbl.Name & "[[" & Tbl.Range.Cells(1, 1).Text & "]]") 'البحث عن الصف المراد تحديثه Set rng = .Find(What:=Me.Controls("Text1").Value, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) 'عملية التحديث If Not rng Is Nothing Then Rw = rng.Row Clm = rng.Column For i = 2 To Tbl.Range.Columns.Count If Me.Controls("Text" & i).Locked = False Then If IsDate(Tbl.Range.Cells(2, i).Value) Then Ws.Cells(Rw, Clm + i - 1) = Format(Me.Controls("Text" & i).Value, "yyyy/mm/dd") Else Ws.Cells(Rw, Clm + i - 1) = Me.Controls("Text" & i).Value End If End If Next i VarTab = Ws.Range(Tbl).Value If Img Then If Not Me.img_Photo.Picture Is Nothing Then SavePicture Me.img_Photo.Picture, ImgPath & Me.Controls("Text1").Value & ".bmp" End If With Me.lst_Data .Clear .List = VarTab End With MsgBox "تم تعديل البيانات بنجاح" Else MsgBox "لا توجد بيانات " End If End With End Sub The-Magic-Form.rar

يتم الاضافة عن طريق الاكسيل من خلال الطريقة الاتية نفتح شيت الاكسيل file options Add-Ins في الاسفل يوجد خانة GO Browser ثم نختار المسار الذي به الاضافة و نضغط OK انما بخصوص الاستفادة فلكل اداة فائدة مختلفة و لكن المعظم يتم من خلالها المساعدة في تسهيل الاوامر بدل عمل الاكواد ولابد من تجربتها لكي تعرف كل اداة وفائدتها تـــــم تعديل الملف The-Magic-Form.rar

الاخوة الافاضل برجاء كل من لديه اضافات الي الاكسيل ( Add Ins ) يرفقها بالموضوع للاستفادة من هذه الاضافات التي تسهل كثيرا في العمل علي الاكسيل مرسل لكم اضافة لدي و هي الماجيك فورم MasNoPass.rar

بالفعل حساب الايراد دائن و المصروفات و الخزينة مدينة

اين المرفق استاذ عمر انا مش لاق غير شيت الترحيل اللي حضرتك اضفت عليه اليوزر فورم انا اقصد بالشارت اني عامل جدول فيه اسم كل حساب سوف يرحل في صفحة الحساب المذكور اسمها وبعتذر جدا لحضرتك لعدم تواجدي علي المنتدي بصفه دورية بسبب عدم وجدود جهاز بالمنزل ياريت يا فندم لو مش قادر اوصل لحضرتك طلبي تبعتلي رسالة برقم تيلفون سيادتك لو مفيش ازعاج او تبعتلي رقم حضرتك علي رقمي 01000105252جدول مطابق للفورم.xlsx انا عملت الجدول ده شوفه هل ده اللي بتقصده جدول مطابق للفورم.xlsx

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

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

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

انا عملت لحضرتك مثال للترحيل لكن كيف سيعبأ الفورم انا مش قوي نهائي في الاكواد الترحيل.xlsb

استاذ عمر انا بعتذر لحضرتك جدا علي عدم سرعة الرد بسبب ظروف العمل وعدم التواجد علي المنتدي و بشكر حضرتك علي ردك علي الموضوع انا مش فاهم سوال حضرتك بخصوص عدم تحرك الحسابات ناحية الشمال لو تقصد الفريز انا لاغته وبكرر اعتذار جدااا ورفعت الملف مره اخري بدون الفريز وهجري وراك جري الوحوش ياا باشا 👹😸 الترحيل.xlsb

المطلوب عند ضغط زرار الترحيل يتم فتح يوزر فورم يتم تحديد حساب المجموعه الفرعية 1 و الشهر من شيت الخزينة 2022 و يتم ترحيل كل حساب في شيت الخزينة 2022 الي صفحة الحساب حسب اسم الصفحه في خانة الترحيل مثال عند الفلترة علي (الالتزامات و المقدم ) يتم نقل بيانات حسابات ( جاري التامينات الاجتماعية و جاري مصلحة الضرائب و مصروفات مستحقة و مصروفات مقدمة و صدقات مستحقة ) الي صفحة الالتزامات و المقدم اسفل اخر سطر بنفس الترتيب و التنسيق و هكذا المصروفات العمومية و السلف ........ الي اخر الحسابات الترحيل.xlsb

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

السادة الافاضل المحترمين برجاء المساعدة في عمل كود ترحيل من شيت نموذج الحركات الي شيت يومية الخزينة المجمعة كما موضح في كل عمود مع كتابة الكود بأسماء ورقات العمل و ليس ارقام الشيت حتي يتم التعديل علي الكود واذا امكن شرح الكود للتعلم من خبراتكم وشكرا لسيادتكم الخزينة.xlsm

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

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

السادة الزملاء المحترمين برجاء من سيادتكم المساعدة في عمل كود ترحيل فاتورة يومية الي شيت فواتير مجمعه كما مبين في المثال المرسل لسيادتكم وشكراا جزيلا كود ترحيل الفاتورة.xlsx

شكرا جزيلا استاذ سليم بارك الله فيك