ناصرالمصرى

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

احلى صباح ياأبو العربى أشتقت اليك أخى الحبيب وأكيد الكتالوج وحشك معلشى انا بتعلم شاهد هذا الكود " معاينه مع الطباعة " هل هذا الكود يعمل على جميع الصفحات المحددة دون غيرها أم هناك تعديلا أخر Sub ãÚÇíäÉ_ãÚ_ÇáØÈÇÚÉ() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينه", vbYesNo + vbQuestion, "طبعا أكيد هطبع ولا هو لعب عيال") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub وافر تقديرى واحترامى

للرفع

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

السلام عليكم ورحمته الله وبركاته شكرا جزيلا لجميع السادة المشاركين سؤال للتعلم ماذا يعنى هذا الجزء من السطر Field:=5, Criteria1:="<" & 60 ومرة يكون هكذا وماالفرق بين الرقمى 5 و 3 وهل لهما علاقة بعدد صفوف الفلترة؟؟؟ Field:=3, Criteria1:="<>" & "" وجزاكم الله خيرا

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

اخى فى الله الاستاذ / احمد الفلاحجى السلام عليكم لدىّ مشكلة فى رفع الملفات وأيضا فى إنشاء موضوع جديد حيث اخذ الموضوع وقتا لرفعه ربما توجد مشكلة فى السيرفر الموضوع انه لدىّ ملف به كود ترحيل قيم من العمود A بشيت 1 الى العمود A بشيت 2 اريد هنا كلما تم ادخال قيم جديدة ومن ثم ترحيلها يتم تجمبعها تلقائبا بالعمود B بشيت 2 حيث يتم العمل بالنطاق من A1 الى B1000 " اخر صف به بيانات " شاكر فضلك وجزاكم الله خيرا

السلام عليكم ورحمته الله وبركاته وطابت اوقاتكم بكل خير أينما كنتم الرابط التالى كيف يمكن لنا تجميع القيم مع كل ادخال جديد فى نفس الخلية ولكن لآخر صف يحتوى على بيانات **** شاكر فضلكم وجزاكم الله خيرا

عليك نور ياابو نصار

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

للرفع

للرفع

السلام عليكم ورحمته الله وبركاته بالمرفق التالى ورقة عمل جاهزة للطباعة من 4 صفحات يتخلل هذة الصفحات 5 صفوف تحتوى على تذيل الجدوال استخدمت الكود التالى لحذف النطاق من C8 الى X27 مع حذف اول صف به بيانات بداية من الصف A29 وحتى اخرصف به بيانات الاضافة المطلوبه هى حذف باقى الصفحات بدون فواصل للطباعة والابقاء على الصفحة الاولى فقط شاكر فضل الجميع **** تقبلوا وافر احترامى وتقديرى حذف فواصل طباعة الصفحات.rar

اخى ابوالبراء السلام عليكم ورحمته الله وبركاته هناك مشكلة بسيطة بخصوص الكود الموضح بالمشاركة رقم 17 لم انتبه اليها الا بعد الانتهاء الكامل من تجربة البرنامج الا وهى نسخ التنسيقات من المفترض هنا ان يتم النسخ بداية من العمود B وليس العمود A على اعتبار ان الارقام التى ستسجل بالعمودA بالشيت رقم 2 سيتم تسجيلها يدويا حاولت التعديل دون جدوى أرجو التفضل بتصويب تلك الجزئية شاكر فضلك **** تقبل وافراحترامى وتقديرى

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

فى انتظارعودة الاخوة الاجلاء

بسم الله الرحمن الرحيم اخى ياسر العربى اخى ياسر خليل السلام عليكم ورحمته الله وبركاته أشكركم جزيل الشكرعما قدمتموه لى فى هذا الموضوع بالنسبة للكودين فكلاهما يعمل بشكل صحيح ولكنى وبعد إذن أخى ياسرالعربى بأننى اضفت الكود الخاص بأخى ابو البراء لاننى وبصراحة هذا ماكنت اتمناه من بداية الموضوع الذى أستغرق وقتا طويلا ولكنى استفدت من جميع الحلول المقدمة من إخوانى الافاضل الاساتذه احمد زمان *** ابو خليل *** ابو نصار *** سعيد بيرم والحمد لله الذى بنعمته تتم الصالحات والحمد لله تعالى الذى أنعم علىّ بأخوة جديرون بالثقة والفخروالاحترام ملحوظة أخيرة بعد إذن حضراتكم وتتمثل فى أخرعصفور بالرغم اننى قمت بترتيب المصنف كما ينبغى وبالرغم من أن لوحة المفاتيح على اتجاه اللغة الانجليزية إلا انه لايتم تفعيل الماكروالخاص بإستدعاء اوامر الــ call all من خلال الضغط على Ctrl+Q اما عن أخرعصفور فهو يرجى تفعيل الكود الخاص بأخى الاستاذ الفاضل/ ابو نصار Ali_A بمجرد الضغط على " OK " برسالة انهاء نقل البيانات بهذا الجزء من الكود " StopTimer "بالموديول رقم 3 MsgBox "Transferring Data Will Be Turned Off" هذا وبالله التوفيق شكرا شكرا شكرا وجزاكم الله خيرا وبارك فيكم جميعا تقلبوا وافراحترامى وتقديرى استدعاء بيانات 2015.xlsb.rar

اخى ابو البراء جارى الاطلاع والافادة وافر تقديرى واحترامى وجزاكم الله خيرا

اخى ياسر العربى بارك الله فيك على مجهودك معى جارى الاطلاع والافادة وفى انتظار رد أخى الكريم أبو البراء جزاكم الله عنى خيرالجزاء

أنا شكلى كدة هنضرب اليك الملف اخى ابو البراء نعم لديك حق فيما ينعلق بالاستدعاء فهو بناءا على القيمة الموجودة بالعمود الاول بارك الله فيك *** تقبل وافر احترامى وتقديرى استدعاء بيانات.xlsb.rar

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

بسم الله الرحمن الرحيم أخى ابو البراء اليك المرفق التالى ارجو بأن لا أكون قد أثقلت عليكم وافر تقديرى واحترامى Grab Data Using Arrays +111.rar

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

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

أعضاء ومشرفى منتديات اوفسينا الاعزاء السلام عليكم ورحمته الله وبركاته فى لقاء سابق مع كوكبة من المع نجوم هذا الصرح الكبير تم طرح موضوع فى محاولة لاستدعاء وترحيل ونقل البيانات بنفس التنسيقات اعتمادا على الصفحة الرئيسية لادخال البيانات وقد تبين من خلال مساهمات الاخوة الافاضل أن الكود المبين للقدير أخى / ياسر خليل بالملف المرفق وهو الاساسى فى الموضوع يحتاج الى إضافة أوامر أخرى ليتم استدعاء البيانات بنفس تنسيق الصفحة الرئيسية لادخال البيانات وبالتالى يتم ترحيل ونقل البيانات لباقى صفحات المصنف دون أدنى مشاكل فهل من سبيل أخوانى الاعزاء لإضافة تلك الاضافات شاكر فضل الجميع **** تقبلوا وافر تقديرى واحترامى Grab Data Using Arrays.rar