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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :سعيد بيرم ابوعبدالرحمن
عدد النتائج (10) نتيجة
13-10-2017 11:41 مساء
icon فرز أبجدى فى ورقتين مختلفتين | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمته الله وبركاته
اشعر بحالة من الصمت
فهل هناك شيىء غير واضح فى هذه الجزئية من الموضوع
وافر تقديرى واحترامى وجزاكم الله خيرا
13-10-2017 11:50 صباحا
icon فرز أبجدى فى ورقتين مختلفتين | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 هل من مساعده وجزاكم الله خيرا
11-10-2017 07:36 مساء
icon فرز أبجدى فى ورقتين مختلفتين | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 
للرفع


 

11-10-2017 05:36 مساء
icon معادلة مكافأة عدم الغياب في شيت تجميع المرتبات .....كيف يتم عملها ؟؟؟؟؟؟؟؟ | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيس اسئله واجابات
 اخى الكريم محمد متولى
ماهو المقصود تحديدا من مكافاة عدم الغياب
وعن أى شيت مرتبات يتم الجمع ارى ان توضح الامور مع
اعادة رفع الملف ربما تجد ضالتك **** وافر تقديرى
11-10-2017 10:53 صباحا
icon فرز أبجدى فى ورقتين مختلفتين | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 للرفع
03-10-2017 04:26 مساء
icon إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 اخى العزيز الفاضل // ياسر العربى
السلام عليكم ورحمته الله وبركاته
اشكركم اخى وحبيبى فى الله لدعمكم الكبير فى هذة المسألة
تم بحمد لله **** تقبل وافر تقديرى واحترامى وجزاكم الله خيرا
03-10-2017 10:48 صباحا
icon إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 اخى العزيز الاستاذ الفاضل // ياسر العربى
بارك الله فيكم ورزقكم الله وايانا من فضله وزادكم علما وفضلا
هو على كدة الكود شغال كويس والفرق بين الكودين بالمشاركة رقم 4 و 9 هو الاعلان عن المتغيرات الـ Option Explicit

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


 
03-10-2017 08:32 صباحا
icon إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby »
السلام عليكم
اخي الكريم سعيد طولنا الغيبة شوية معلش 
أنا حاولت في عجالة كدا اعمل المطلوب وان شاء الله يظبط معاك المهم انا طبقت على شيت الصقر هذا الكود
Sub Yasser()
    Dim FBK As Long, BK As Long, LR As Long, N As Long, adrs As String
    FBK = 42    '+1عدد صفوف اول صفحة
    BK = 34    'عدد صفوف كل صفحة بدون الترويسة
    With Sheet3
        LR = .Cells(Rows.Count, 1).End(xlUp).Row
        N = Application.WorksheetFunction.RoundUp((LR - FBK) / BK, 0) + 1
        adrs1 = "A1:" & .Range("F" & (FBK - 1) + (BK * (N - 1))).Address & ""
        .PageSetup.PrintArea = "" & adrs1 & ""
        Set .HPageBreaks(1).Location = Range("A" & FBK)
        For x = 2 To N
            FBK = FBK + BK
            .HPageBreaks.Add Before:=Range("A" & FBK)
        Next
    End With
End Sub

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

اخى العزيز الفاضل // ياسر العربى
السلام عليكم ورحمته الله وبركاته " وصباح الفل والياسمين "
تم تنفيذ الكود على الصفحة الاخرى ولكن نفس رسالة
Debug  المشار اليها بعاليه
وفضلا ماهو السطر الذى يمكن اضافته حتى يكتمل المطلوب
ارجو الافادة  *** تقبل وافر تقديرى *** وجزاكم الله خيرا 
02-10-2017 10:49 مساء
icon إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 اخى العزيز الفاضل // ياسر العربى
السلام عليكم ورحمته الله وبركاته
اصلح الله تعالى مابين أيديكم واصلح بالكم
تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

 
02-10-2017 09:38 مساء
icon إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق | الكاتب :سعيد بيرم ابوعبدالرحمن |المنتدى: اكسيل اسئله واجابات
 اخى العزيز المحترم ياسر العربى
السلام عليكم ورحمته الله وبركاته
تم تنفيذ الكود دمجا مرة ومرة أخرى بمفرده ولكن هناك رسالة Debug فى الحالتين بهذا السطر من الكود

        Set .HPageBreaks(1).Location = Range("A" & FBK)

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





الساعة الآن 12:21 صباحا