حاتم عيسى

الأستاذ الفاضل : سليم حاصبيا تحية طيبة وكل عام وحضرتك بألف خير اسم الشيت المطلوب البحث فيه (BB) . وشكرا لحضرتك على الهتمام والرد

بسم الله الرحمن الرحيم السادة الأفاضل مشرفي ورواد المنتدى المحترمين كل عام وجميع حضراتكم بخير وبصحة وفي أحسن حال الرجا من سيادتكم التركم لتصحيح كود البحث التالي حتى يتم البحث في صفحة ( شيت ) معين اسم الشيت المراد البحث فيه هو ( BB ) . Private Sub TextBox1000_Change() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual If TextBox1000.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet Dim c As Range ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets SS = x.Cells(Rows.Count, 9).End(xlUp).Row For Each c In x.Range("A9:A" & SS) b = InStr(c, TextBox1000) If Trim(c) Like TextBox1000 & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 1) ListBox1.List(k, 1) = c.Worksheet.Name ListBox1.List(k, 2) = c.Row k = k + 1 End If Next c Next x Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub ولسيادتكم جزيل الشكر والتقدير والعرفان

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

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

استاذى الفاضل : سليم بك ممكن من فضل وكرم اخلاق حضرتك أن يتم الترحيل إلى صفحات العملاء كما توجد البيانات في صفحة Print على هذا التنسيق يعني مع وجود المجاميع أسفل كل صفحة مثل هذه الصورة وعدم ترحيل العمود A ولا ترحيل الأعمدة F , G , H وشكرا لحضرتك وبارك الله في حضرتك فعلا عمل أكثر من ممتاز من أستاذ فاضل ومحترم

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

تسلم يدك أستاذ سليم المحترم 1-عمل قائمة منسدلة في الخلية D3 تحتوى أسماء العملاء (في صفحة Data ) 2- عمل قائمة بأسماء الحسابات الموجودة في العمود A وتكون في العمود H (في صفحة Data) وشكرا لحضرتك على المعلومات الرائعة هذه وكذلك أشكر حضرتك على سعة صدرك وتحملك لنا ولأسألتنا وطلباتنا .

باعتذر لحضرتك أستاذ : سليم على التأخير كنت أقوم بإعداد ملف جديد وعمل المطلوب به كما طلبت حضرتك وهو كما يلي المطلوب من فضل حضراتكم - عمل تجميع للمبالغ المدينة والمبالغ الدائنة لكل عميل أو حساب . - عمل قائمة منسدلة في الخلية D3 تحتوى أسماء العملاء والحسابات الموجودة في العمود A بدون تكرار الأسماء ومؤبجدة وعند اختيار اسم من تلك يتم كتابتة في تلك الخلية D3 ويتم وضع إجمالي الرصيد المدين للعميل أو الحساب في الخلية f3 وإجمالي المبالغ الدائنة في الخلية g3. - عمل قائمة بأسماء الحسابات الموجودة في العمود A وتكون في العمود H . - ترحيل الحسابات إلى صفحات جديدة حسب اسم العميل أو الحساب الموجودة في العمود A مع جمع المبالغ المدينة والدائنة أسفل الفاتورة وإظهار الصافي مدين أو دائن كما هو موجود بصفحة الـ Print . - عند كتابة اسم العميل في الخلية D3 يتم ترحيل جميع عملياته إلى صفحة Print مع جمع المبالغ المدينة والدائنة أسفل الفاتورة وإظهار الصافي مدين أو دائن كما هو موجود بصفحة الـ Print . .الملف جديد للعمل عليه.xlsm

الرجاء المساعدة في حل مشكلة بطء تنفيذ كود الترحيل إلى الحسابات وكذلك المساعدة في وضع محتوى الخلية F3 في TextBox1 و وضع محتوى الخلية G3 في TextBox2 برنامج الحسابات الجديد 05-01-2021 للتجميع3.xlsb

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

بسم الله الرحمن الرحيم أرجوا من السادة الكرام مشرفي ورواد المنتدى المحترمين مساعدتي في المطلوب الأتي الموضح بالصورة التالية مرفق الملف المطلوب العمل عليه بارك الله في حضراتكم جميعا وجعل جميع أعمالكم في موازين حسناتكم ونفعكم الله بعلمكم وزاكم الله علمًا برنامج الحسابات الجديد 05-01-2021 للتجميع3.xlsb

للرفع برجا مساعدتي في ابجدة المحتوى في العمود I تلقائيا. جزاكم الله كل خير و نفعكم الله بعلمكم وزادكم الله علما .

بسم الله الرحمن الرحيم السادة الأفاضل المحترمين مشرفي ورواد المنتدى المحترمين بعد التحية والاحترام لسيادتكم جميعًا برجاء المساعدة في تجميع أسماء اعملاء والحسابات بدون تكرار وتجميع أرصدتهم المدينة والدائنة في الملف المرفق وبه شرح المطلوب . ملحوظة من بعض الشروحات الموجودة بالمنتدى من السادة الأفاضل مشرفي ورواد المنتدى المحترمين قد توصلت إلى حل قد يكون أقرب إلى الصح. وما أطلبة من سيادتكم التكرم بتحميل الملف الجديد والتعديل علية بما هو أنسب وكذلك عمل أبجدة تلقائية للعمود المرحل إليه البيانات العمود ( I ) . وبارك الله فيكم جميعا ونفع بكم وبعلمكم الأمة العربية جميعا . صورة من الملف بالمطلوب مرفق الملف المطلوب العمل عليه وشكرا لسيادتكم جميعا مقدمًا . برنامج الحسابات الجديد 05-01-2021 للتجميع.xlsm

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

بسم الله الرحمن الرحيم السادة الأفاضل : مشرفي ورواد المنتدى المحترمين أرجوا من حضراتكم التكرم بمساعدتي في فتح هذا الملف حيث أني نسيت كلمة المرور الخاصة به . وقد قمت بعدة محاولات بعدة برامج ولكن لم تنجح أي محاولة منهم أنا عموما باستخدم أرقام وحروف كبيرة وحروف صغيرة . وشكرا على الرد Hatem Eissa.xlsx

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

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

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

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

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

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

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

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

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

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