مساعدة فى ملف اكسيل البيانات على صفين مطلوب انها تكون على صف واحد

[melaad]

مطلوب مساعدة فى ملف اكسيل البيانات على صفين مطلوب انها تكون على صف واحد افقى

والملف بين كل اسم عميل والعميل الاخر صف فارغ

مرفق مثال للملف وملف موضح للمطلوب

ارجو المساعدة

 

 

test.xls المطلوب.xlsx

[سليم حاصبيا]

قم بانشاء شيت جديد باسم  Salim ونفذ هذا الكود

Option Explicit

Sub Del_Exta_Rows()
  Dim S_sh As Worksheet 'source sheet
  Dim T_sh As Worksheet 'target sheet
  Dim Lrs%              'laste row in source sheet
  Dim Cols%             'laste column in source sheet

Set S_sh = Sheets("Recovered_Sheet1")
Set T_sh = Sheets("Salim")

T_sh.Cells.Clear
Lrs = S_sh.Cells(Rows.Count, 1).End(3).Row
Cols = S_sh.Cells(1, Columns.Count).End(1).Column
S_sh.Cells(1, 1).Resize(Lrs, Cols). _
  SpecialCells(xlCellTypeConstants).Copy
T_sh.Cells(1, 1).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
  With T_sh.Range("a1").CurrentRegion
      .Columns.AutoFit
      .Borders.LineStyle = 1
      .Cells(1).Select
   End With
End Sub

الملف مرفق ( شيت  Salim )

 

DEL_ROWS.xlsm

[melaad]

اولا اشكرك استاذ

سليم حاصبيا

على اهتمامك بالرد على سؤالى

ولكن كنت ارجو ان يتم تجميع اسماء الاعمدة بجانب بعض على نفس السطر

مثل الملف المرفق المطلوب بحيث يكون لكل عميل سطر فيه كامل بياناته وليس على سطرين فى الاكسيل

والملف الاساسى اللى عندى بين كل صف والذى يليه صف فارغ

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

ولكن عند اعادة نسخ بيانات الملف الحل نفسه يتم العمل بشكل طبيعى

اخيرا اعذرنى لقلة خبرتى فى الاكواد والماكرو

واشكركم مرة ثانية

 

[سليم حاصبيا]

الصف غير الفارغ يجب ان تكون جميع خلاياه غير فارغة 

[melaad]

سليم حاصبيا

فعلا جربت  ملء الخلايا والكود اشتغل

لكن هل يمكن جعل كل عميل ليه سطرين يبقوا فى نفس السطر

واشكركم

 

[سليم حاصبيا]

12 دقائق مضت, melaad said:

سليم حاصبيا

فعلا جربت  ملء الخلايا والكود اشتغل

لكن هل يمكن جعل كل عميل ليه سطرين يبقوا فى نفس السطر

واشكركم

 

ارفع نموذجاّ بالبيانات كما هي    و كيف تريدها(يدوياً)