محمود_الشريف

أخى الكريم برجاء ارفاق ملف حتى يتسنى فهم المطلوب وتوفيرا لوقت وجهد الآخرين

أخى الكريم بوركتم وجزيتم عنى خيرا على دعاؤكم الطيب وبالمرفقات الملف بعد تعديل الترحيل بحيله ستكتشفها أما عن الـ pt فهى خاصة بتقسيم الليست بوكس إلى أجزاء أو أعمده الفورم بعد التعديل.rar

أخى الكريم بوركتم وجزيتم عنى خيرا

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

أخى الكريم أضفت لك طريقتين لتحديد نطاق الطباعه بموديول جديد أتمنى أن يكون بهم مرادك Book___2.rar

أخى الكريم جرب الملف التالى سند 111صرف وقيض____1.rar

أخى الكريم أِِؤكد لك على قدر فهمى لطلبك تجد بالمرفقات كود بسيط جدا لعمل معاينة للصفحتين بنفس الشيت بالضغط على الزر تظهر الصفحة الأولى ومن ثم بعد الضغط على زر إغلاق تظهر الصفحة الثانية ___( لاحظ الفرق فى ظهور السطرين 13و14 باللون الأحمر فى الصفحة الأولى ويتم اختفاؤهما فى الصفحة الثانية ) Bookــــ1.rar

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

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

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

بعد اذن أخى الأستاذ / جلال أخى الكريم الأستاذ / عمرو توجد فكرة لنقل البيانات بدون زر وهى أن تضع فى حدث الصفحة المراد النقل إليها أو الإستعلام إسم الكود فمبجرد كتابة رقم الكود أو الصنف وتضغط على زر enter تأتى البيانات ففى المثال السابق اسم الكود Kh_Filter Private Sub Worksheet_SelectionChange(ByVal Target As Range) Kh_Filter End Sub

أخى الحبيب وأستاذى الكبير / ياسر خليل البرنامج ثمنه ( 300دولار ) بخلاف الشحن النسخة التجريبية لمدة 30 يوم غير مفعله بالكامل تتيح لك بعض الخصائص وهذا من عيوب النسخة التجريبية وكذلك لا يقوم بعمل setup يجب ان يكون البرنامج مصمم بالأكواد بكامل الخصائص يتيح لك إضافة صورة للبرنامج وهذا رابط الموقع موقع البرنامج به النسخة التجريبية والنسخة التى يتم شراؤها وهناك بعض المواقع الإلكترونية التى تقوم بتحويل الملفات الى تنفيذية ولكنها تتطلب ويندوز معين وإصدارات معينه

أخى الكريم جرب هذا الملف New Microsoft Excel Worksheet__1.rar

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

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

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

أخى الكريم قمت بعمل المطلوب على قدر فهمى لطلبك ينقصه انك تظبط حجم العمود فى الليست بوكس من خصائص الليست بمحرر الاكواد بحث عن صنف واختياره بفورم.xlsb_1.rar

أخى الكريم الكود يعمل بشكل ممتاز وبالمرفقات الملف تم اضافة الكود وحذف الزر.rar

أخى الكريم لآن الملف لا يفتح معى ضع هذا الكود فى حدث الورقة وهو يعمل بالضغط مرتين كليك على الخلية Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Range("A3:A200").Copy Range("B3:D200").PasteSpecial Paste:=xlValues Application.CutCopyMode = False End Sub وتقبل منى وافر الاحترام والتقدير

أخى الكريم / أبو حنين طبعا بعد المعادلتين الرائعتين لأستاذى الكبير / بن عليه حاجى والأستاذ الحبيب / الشهابي حبيت أشارك فلم أجد أروع من تلك المعادلتين ،، فضفت قائمة منسدله مترابطه بين ( مكان التدريب ورقم الموظف ) تدريب3.rar

أخى الحبيب وأستاذى / ياسر خليل اللهم تقبل اللهم آمين ، وسلمكم الله من كل سوء وجزيتم عنى خيرا

أخى العزيز الأستاذ / الشهابي سلمكم الله من كل سوء وجزيتم عنى خيرا

أخى الغالى الأستاذ / جلال الجمال ما شاء الله عليكم ،، مجهود أكثر من رائع بوركتم أخى الكريم ، وغفر الله للوالده ولأمواتنا جميعا وتقبل منى وافر الاحترام والتقدير

مشكور أخى الكريم الأستاذ / عبد الباري على مجهودكم الكريم وبالنسبة لإستفسار الأستاذ / ناصر سعيد عن الكود الكود بإختصار شديد خاص بمعاينة الصفحة قبل الطباعة وبالكود شرط عمود B حتى آخر صف به بيانات ومدى المعاينة من الخلية B2 وحتى آخر صف بالعمود AB ويفضل إضافة منع اهتزاز الشاشة وإلغاء العملية الحسابية للاكسل حتى يكون اسرع

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