تطبيق كود للأستاذ سليم حاصبيا على ملف

[مستر أيسم]

تفضل الأستاذ سليم بالكود التالي

أريد تطبيقه على ملف لي بحيث

أول صف  للبيانات عندي هو  صف 8  و ليس صف 6

العمود الذي به كلمة" محول من المدرسة " هو العمود K  و ليس العمود F

السطر التالي من الكود يحذف الصف بأكمله

المطلوب أن يحذف المدي (A:L) فقط و يرفع الخلايا لأعلى

شكرا جزيلا

Aysam_1.xlsm

[احمد بدره]

بعد إذن أستاذنا الفاضل سليم

جرب هذا

Aysam_1(1).xlsm

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

الأسياب في عدم الحصول على النتائج الصحيحة
               (الجدول يجب ان يجتوي معلومات فقط دون وجود خلايا مدمجة أو اشياء غريبة داخله)

 1- وجود حلايا مدمجة داحل الجدول 

2 - وجود  Object غريبة (Lines ) بالاضافة الى تكست بوكس (السن في أول أكتوبر)

 

 

الكود المطلوب بعد ازالة الدمج

Sub from_sheet_to_other1()
    Dim B As Worksheet
    Dim MH As Worksheet
    Dim F_rg As Range
    Dim Cret$, Rot%, Rod%, m%
Application.ScreenUpdating = False
    Set B = Sheets("البيانات")
    Set MH = Sheets("المحولين")
 
 If B.AutoFilterMode Then _
 B.Range("A7").AutoFilter

Rot = MH.Cells(Rows.Count, 1).End(3).Row
Rot = IIf(Rot < 8, 11, Rot + 1)
Rod = B.Cells(Rows.Count, 1).End(3).Row
Set F_rg = B.Range("A7:k" & Rod)
Cret = "حول"

F_rg.AutoFilter 11, Cret

On Error Resume Next
    B.Range("A8:K" & Rod).SpecialCells(12).Copy _
    MH.Range("A" & Rot)
    B.Range("A8:K" & Rod).SpecialCells(12).EntireRow.Delete
On Error GoTo 0

If B.AutoFilterMode Then _
 B.Range("A7").AutoFilter
 Application.ScreenUpdating = True
End Sub

 

 

 

[مستر أيسم]

شكرا أستاذ أحمد بدره

شكرا أستاذ سليم

الكودين ممتازين

و لكن ما يزال يحذف كامل الصف في صفحة البيانات و المطلوب هو أن يحذف المدي A : L

أرجو التكرم بالتعديل

شكرا مقدما