تكرار العنوان سطر وسطر اخر

[رسول هادي]

ارجو تكرار عنواين الجدول بين سطر واخر وكما في المرفق

تكرار عنواين.rar

[يحيى حسين]

السلام عليكم و رحمة الله 

أخ مع عدم وضوح سبب لإستخدام هذه الطريقة 

و مع تأكيدي أن هذا خطأ لبناء أي داتا بيز 

لكن جرب هذا الكود 

Sub DoIt()
Dim LR As Long

LR = Range("A" & Rows.Count).End(xlUp).Row

For i = LR To 3 Step -1
    Cells(i, 1).EntireRow.Insert
Next i
Range("A1:C1").Copy Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
End Sub

[رسول هادي]

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

[رسول هادي]

يا اخوان ارجو الاجابو ولك الشكر الجزيل

[يحيى حسين]

السلام علكيم و رحمة الله 

 

أخي لتشغيل هذا الكود 

افتح شاشة البرمجة بالضغط على 

Alt+F11

ثم اختر من 

Insert

ثم

Module 

ثم لتنفيذ الكود 

ضع مؤشر الماوس على اول سطر في الكود و اضغط 

 F5

تم تعديل يوليو 4, 2013 بواسطه يحيى حسين

[رسول هادي]

شكرا على جهدك الرفيع وبارك الله فيك يا اخي ووفقك للعمل الصالح