Un select Row

[خالد الشاعر]

السادة الخبراء

الملف المرفق به ماكرو مسح Row النشط فى كل الصفحات 

ولكن المشكلة ان تحديد الصف لا يلغا

كيفيه الغاء هذا التحديد فى كل الوراق

delRow.rar

تم تعديل سبتمبر 29, 2016 بواسطه خالد الشاعر

[ياسر خليل أبو البراء]

أخي خالد جرب الكود التالي

Sub DelRows_New()
    Dim xWs As Worksheet

    For Each xWs In ThisWorkbook.Worksheets
        With xWs
            .Rows(ActiveCell.Row).EntireRow.Delete
            .Activate
            .Cells(9, 1).Activate
        End With
    Next xWs
End Sub

 

 

[خالد الشاعر]

استاذ ياسر

الف شكر على سرعة الرد بهذا الكود الجميل

ولكن عند التجربة فى الشيت الثالث لا يعطى نفس النتيجة

مش عارف ايه المشكلة

[ياسر خليل أبو البراء]

هل يعطيك رسالة خطأ أم أن الكود لا يقوم بما هو متوقع؟

[خالد الشاعر]

الكود لا يقوم بما هو متوقع

 

[ياسر خليل أبو البراء]

هلا أرفقت الملف الذي وضعت فيه الكود ... للإطلاع عليه

واشرح لنا ما هي الخطوات التي قمت بها ولم ينفذ بعدها الكود

أو قم بتتبع أسطر تنفيذ الكود باستخدام F8 لمشاهدة ما يحدث ولمعرفة المشكلة والوقوف على سببها

[خالد الشاعر]

استاذ ياسر

اشكرك على تعاونك

اولا انا بنفذ الكود على الملف المرفق فى المشاركة الاولى

ثانيا عند الغاء امر  .Cells(9, 1).Activate

ياتى فى الشيت الثالث يمسح سطر مختلف عن الشيت الأول

شكرا

[ياسر خليل أبو البراء]

ممكن يكون السبب سطر Activate حيث يتم تنشيط الخلية A9 ... ممكن توضح الخطوات المطلوبة لتنفيذ الكود؟

[خالد الشاعر]

المطلوب من الكود 

1- الغاء نفس السطر الوقف به فى جميع الشيتات

2- لا يعمل سليكت للصف

شكرا

[مختار حسين محمود]

السلام عليكم

بعد اذن أستاذى الغالى ياسر

أخى خالد جرب الطريقة دى

Sub delActiveRowallSheets()
'delete Active Rows in all Sheets then Un select Row
Dim ws As Worksheet, bdel As Boolean
On Error Resume Next
bdel = True
For Each ws In Worksheets
     With ws
         .Select bdel
         .Rows(ActiveCell.Row).EntireRow.Delete
     End With
     Application.Goto ActiveSheet.Cells(9, 1)
     bdel = False
Next ws

 
End Sub

 

تم تعديل أكتوبر 1, 2016 بواسطه مختار حسين محمود

[خالد الشاعر]

استاذ مختار حسن

الف شكر على هذا الكود

ولكن بعد انهاء الكود انة يحدد جميع الشيتات واذا تم الكتابة فى الشيت يكتب فى جميع الشيتات

جزاك الله كل خيراً

[ياسر خليل أبو البراء]

يمكن في نهاية الكود وضع سطر يحدد أي ورقة عمل ليلغي الأوراق الأخرى المحددة

 

[مختار حسين محمود]

نعم أستاذ خالد

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

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

 

تم تعديل أكتوبر 1, 2016 بواسطه مختار حسين محمود

[خالد الشاعر]

جزاكم الله كل خير

استاذ ياسر خليل

استاذ مختار حسن

جعلة الله فى ميزان حسناتكم