رامي الخبيري قام بنشر فبراير 17, 2014 مشاركة قام بنشر فبراير 17, 2014 (معدل) السلام عليكم و رحمة الله و بركاته الطلب بسيط إن شاء الله أريد طباعة شيت 1 عدة مرات و في كل مرة يتم ملأ المحتوى ببيانات من شيت 2 بالترتيب حتى يتم الإنتهاء من جميع بيانات شيت 2 مرفق مثال TEST.zip و لكم وافر التحية تم تعديل فبراير 17, 2014 بواسطه romio52225 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 17, 2014 مشاركة قام بنشر فبراير 17, 2014 (معدل) أخى الفاضل أولا : لك منى دعوة طيبة لتغيير اسم الظهور الى اللغة العربية حتى يسهل التواصل بيننا ثانيا : تفضل ما تريد Sub ragab() Set sh = Sheets("sheet2") LR = sh.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To LR Step 6 Range("B3:G3").Value = Application.WorksheetFunction.Transpose(sh.Cells(i, 1).Resize(6).Value) ActiveWindow.SelectedSheets.PrintOut Next Set sh = Nothing End Sub TEST.rar تم تعديل فبراير 18, 2014 بواسطه رجب جاويش رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر فبراير 18, 2014 مشاركة قام بنشر فبراير 18, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب رجب جاويش جزاك الله خيرا كود اكثر من رائع وعمل ممتاز جعله الله في ميزان حسناتكم زادكم الله علما وشرفا وحفظكم من كل سوء وشافاكم انه هو الشافي اخي واستاذي الفاضل هل يمكن التعديل على الكود ليقف عند انتهاء البيانات الموجودة في Sheet1 حيث الكود في وضعه الحالي يستمر بالطباعة حتى لو لم تكن هناك بيانات في Sheet1 بارك الله فيك وتقبل فائق احترامي وتقديري رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 18, 2014 مشاركة قام بنشر فبراير 18, 2014 أخى الحبيب / أبو محمد عباس شكرا جزيلا أخى الحبيب على هذه الكلمات العطرة والدعاء الطيب وجزاك الله كل خير أخى الحبيب تم تعديل الكود والملف فى المشاركة السابقة كما تريد 1 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 18, 2014 مشاركة قام بنشر فبراير 18, 2014 أخى الفاضل / رامي الخبيري جزاك الله كل خير على سرعة الاستجابة بتغيير اسم الظهور الى اللغة العربية 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان