ترحيل بيانات للصف الاعلى

[عبدالسلام علي]

السلام عليكم

المطلوب ترحيل البيانات من الصف للصف الاعلى في حالة خلوه من البيانات

22.rar

[ابراهيم الحداد]

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

اكتب هذا الكود فى موديول واربطه بذر

واضغط عليه كلما اردت ذلك

Sub Empty_Row()
For R = 5 To Cells(Rows.Count, 3).End(xlUp).Row
If Range("C" & R).Value = "" Then
Range("C" & R & ":F" & R).Value = Range("C" & R + 1 & ":F" & R + 1).Value
Range("C" & R + 1 & ":F" & R + 1).ClearContents
End If
Next
End Sub

 

[عبدالسلام علي]

بارك الله فيك اخي زيزو العجوز هذا المطلوب ولكن هناك ملاحظة 

في حال وجود اكثر من صف فارغ يتطلب منك اكثر من ضغطة لملئ الفراغ الكود لا ينفذ الامر في ضغطة واحدة

وهل في امكانية ليشنغل الكود تلقائي 

اكرر شكري لك استاذي الفاضل

[أبو حنــــين]

استعمل هذا الكود

Sub DelRow()

Application.ScreenUpdating = False
    For R = Cells(Rows.Count, 3).End(xlUp).Row To 5 Step -1
    If Range("C" & R).Value = "" Then Range("C" & R & ":F" & R).Delete Shift:=xlUp
    Next
Application.ScreenUpdating = True

End Sub

 

[عبدالسلام علي]

اشكرك اخي أبو حنين 

في ملاحظة عند نقل البيانات يتم حذف الجدول ياريت يكون ترحيل البيانات دون حذف الجدول 

 

[أبو حنــــين]

اذا كان آخر صف في الجدول رقمه معلوم مثلا الجدول من الصف الخامس الى الصف 50

يكون الكود بالشكل التالي

Sub DelRow()

Application.ScreenUpdating = False
    For R = 50 To 5 Step -1
    If Range("C" & R).Value = "" Then Range("C" & R & ":F" & R).Delete Shift:=xlUp
    Next
    Range("C5:F50").Borders.Value = 1
Application.ScreenUpdating = True

End Sub

 

[عبدالسلام علي]

بارك الله فيكما اخوي  زيزو العجوز و ابو حنين لاهتمامكم والمساعدة فعلا هذا هو المطلوب 

ومجرد سؤال هل يمكن ان يشتغل الكود تلقائي