خطأ فى كود دمج ارجو التعديل

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

مرفق كود مج خلايا

ولكنه لا يظهر الخليه التى بها اصفار

ارجو التعديل

دمج.rar

[أبو محمد أشرف]

السلام عليكم  ورحمة الله وبركاته أخي الحبيب

تفضل أخي تعديل الخطأ

دمج.rar

[إبراهيم ابوليله]

اخى الفاضل محمد

بارك الله فيك

ولكنى اريد اضهار الاصفار

على شمال الارقام

وليس على يميننها

وقد اخطأت فى المرفق فى المشاركه رقم 1

ارجو التماس العزر من الاعضاء

انظر المرفق

دمج.rar

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

Sub HIMA()
Application.ScreenUpdating = False
 Dim ws10 As Worksheet
   Set ws10 = Sheets("ÇáÈíÇäÇÊ")
LR = ws10.Cells(Rows.Count, 3).End(xlUp).Row
ws10.Range("X8:Z10000").ClearContents
For i = 8 To LR
ws10.Cells(i, 12) = ws10.Cells(i, 10) & ws10.Cells(i, 9) & ws10.Cells(i, 8) & ws10.Cells(i, 7) & ws10.Cells(i, 6) & ws10.Cells(i, 5) & ws10.Cells(i, 4) & ws10.Cells(i, 3)
ws10.Cells(i, 12).NumberFormat = "@"
Next i
Application.ScreenUpdating = True
End Sub

 

او بامكانك تغير تنسيق الخلايا المراد الترحيل اليها  الي text .

 

تحياتي

[أبو محمد أشرف]

رائع أخي احمد دوما ومنك نتعلم