محمد فاروق محمود قام بنشر يناير 10, 2013 مشاركة قام بنشر يناير 10, 2013 برجاء المساعدة من محترفى الاكسيل ترحيل مع ترك صفوف فارغة للصفحة المرحل اليها لعمل حساب اجمالى الاسماء.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 10, 2013 مشاركة قام بنشر يناير 10, 2013 السلام عليكم يمكنك تغيير عدد صفوف الجدول في الثابت ContRow ولم تذكر هل تريد صف عناوين الاعمدة يتكرر في الجداول الكود: ' عدد صفوف الجدول Const ContRow As Integer = 28 ' اول صف للبيانات Const iRow As Integer = 2 Sub kh_Start() Dim i As Long, ii As Long, iii As Long Dim LastRow As Long ''''''''''''''''''''''' With Sheet3 .Cells.Clear Range("A1:G1").Copy .Range("A1") End With ''''''''''''''''''''''' LastRow = Range("B" & Rows.Count).End(xlUp).Row ii = 2 For i = iRow To LastRow Step ContRow If i <> iRow Then GoSub kh_Sum Range("A" & i).Resize(ContRow, 7).Copy Sheet3.Range("A" & ii) ii = ii + ContRow + 1 Next ''''''''''''''''''''''' Exit Sub ''''''''''''''''''''''' kh_Sum: With Sheet3.Range("A" & ii - 1) .Range("A1:G1").Style = "total" .Range("C1").Value = "الاجمالي" .Range("E1:G1").Formula = "=SUM(R[-" & ContRow & "]C:R[-1]C)" End With Return ''''''''''''''''''''''' End Sub المرفق 2003 الاسماء.rar رابط هذا التعليق شارك More sharing options...
محمد فاروق محمود قام بنشر يناير 11, 2013 الكاتب مشاركة قام بنشر يناير 11, 2013 (معدل) جزاك الله كل الخير والله اكثر من رائع بس لو امكن الترحيل بشرط الراتب اكبر من 1200 جنية كذلك كنت عايز خانة الاجمالى لكل 30 صف وهل ممكن ترحيل اعمدة اخرى من k حتى q فى نفس عملية الترحيل اعذرنى لكثرة الطلبات تم تعديل يناير 11, 2013 بواسطه محمد فاروق محمود رابط هذا التعليق شارك More sharing options...
محمد فاروق محمود قام بنشر يناير 11, 2013 الكاتب مشاركة قام بنشر يناير 11, 2013 اخى الكريم فى انتظار ردك رابط هذا التعليق شارك More sharing options...
محمد فاروق محمود قام بنشر يناير 13, 2013 الكاتب مشاركة قام بنشر يناير 13, 2013 للرفع رابط هذا التعليق شارك More sharing options...
أبو عبد الرحمن سعيد قام بنشر نوفمبر 10, 2013 مشاركة قام بنشر نوفمبر 10, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.