ياسر خليل أبو البراء

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

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

الأخ الفاضل رجب مرسي أحبك الله الذي أحببتني فيه ، بارك الله فيك تم تسمية النطاق المراد نسخه باسم Data إليك الملف التالي عله يفي بالغرض Sub CopyRangeSpecificTimes() Dim WS As Worksheet, SH As Worksheet Dim I As Long, lRow As Long Set WS = Sheets("ورقة1"): Set SH = Sheets("ورقة2") lRow = 1 Application.ScreenUpdating = False SH.Cells.Clear For I = 1 To 9 WS.Range("Data").Copy SH.Cells(lRow, 1).PasteSpecial xlPasteAll lRow = lRow + 37 Next I WS.Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي Copy Range Specific Times YasserKhalil.rar

لم تجب على باقي استفساراتي

لم أفهم المطلوب صراحة

تفضل أخي الكريم ولا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي Protect & Unprotect All Sheets YasserKhalil V2.rar

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

ايه الإضافة اللي أضفتها للمرفق في المشاركة الأخيرة .المرفق الأول يفي بالغرض ..فقط وضح البيانات المراد ترحيلها من فين لفين .. أقولك وقول إذا كان صح أو غلط .. البيانات المرا جلبها من ورقة العمل المشتريات والمبيعات (ورقة تصب في عمود المدين وورقة تصب في عمود الدائن ... بس مش عارف أيهما للمدين وأيهما للدائن ..) وضح ربنا يبارك فيك وفي وقتك عشان وقت الجميع لا يتسع للإلحاح في طلب التوضيح شي آخر عشان مش بفهم في المحاسبة .. الرصيد = المدين - الدائن ولا العكس ...

أبو سليمان الأخ الفاضل سأترك لك المجال لعمل نسخة مصغرة ..لابد لكي تتعلم أن تتعب

أخي الكريم ارفق ملف ووضح المطلوب

أخي الكريم ارفق ملف للتوضيح

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

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

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

الأخ الفاضل إليك الملف التالي .. عند اختيار ورقة العمل اي تنشيطها يتم حماية ورقة العمل يوضع الكود التالي في موديول Sub PortectAll() 'يقوم الكود بحماية كافة أوراق العمل في المصنف النشط '--------------------------------------------------- Dim SH As Worksheet For Each SH In ActiveWorkbook.Sheets SH.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True Next SH Sheet1.Select End Sub Sub UnprotectAll() 'يقوم الكود بإزالة الحماية عن كافة أوراق العمل في المصنف النشط '-------------------------------------------------------------- Dim SH As Worksheet For Each SH In ActiveWorkbook.Sheets SH.Unprotect Password:="1" Next SH Sheet1.Select End Sub Sub ProtectActiveSheet() 'يقوم الكود بحماية ورقة العمل النشطة '----------------------------------- ActiveSheet.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True End Sub كما يوضع الكود التالي في حدث المصنف Private Sub Workbook_SheetActivate(ByVal Sh As Object) Call ProtectActiveSheet End Sub تقبل تحياتي Protect & Unprotect All Sheets YasserKhalil.rar

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

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

مشكور أخي الحبيب أبو حنين على مرورك العطر وعلى كلماتك الطيبة وجزيت خيراً ولك بمثل ما دعوت

الأخ الحبيب أبو يوسف بارك الله فيك وجزيت خيراً على كلماتك الطيبة هناك موضوع للأخ ياسين استكمالاً لهذا الموضوع على هذا الرابط ..إن شاء الله يكون فيه فايدة أكبر http://www.officena.net/ib/index.php?showtopic=61626 تقبل تحياتي

أخي الكريم يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

دققت النظر في ملفك المرفق وأرفقت لك الحل التالي عله يكون المطلوب متابعة.rar

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

يرجى وضع الكود بين أقواس الكود ..كما يرجى إرفاق الملف الذي يحوي الكود راجع التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 أعتقد أن الكود يقوم بحماية كافة أوراق العمل مرة واحدة بكلمة السر 1

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

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