مسح الخلايا المحددة في اوراق معينة

[قصي]

عندي ملف اكسيل يحتوي على صغحات مختلفه

اريد من الصفحة الرئيسيه ان احدد صف او عدة صفوف

لمسحها بشرط

ان يتم مسح الصفوف المحددة

مع ارقام هذه الصفوف في صفحات معينه يالملف

ولك شكري وتقديري الدائمين

[عبدالله باقشير]

السلام عليكم

عندي ملف اكسيل يحتوي على صغحات مختلفه

اريد من الصفحة الرئيسيه ان احدد صف او عدة صفوف

لمسحها بشرط

ان يتم مسح الصفوف المحددة

مع ارقام هذه الصفوف في صفحات معينه يالملف

الكود التالي يقوم بمسح الخلايا المحددة

للاوراق المحددة في الكود:

Sub kh_MySh_Range_ClearContents()

Dim MySh, Sh

MySh = Array("الرئيسية", "بيانات1", "بيانات2")

If Not TypeName(Selection) = "Range" Then GoTo 1

For Each Sh In MySh

    Sheets(Sh).Range(Selection.Address).ClearContents

Next Sh

1:

End Sub

ويمكن استخدام الكود في اي ورقة من هذه الاوراق المحددة في الكود

[قصي]

الله يحفظك

اريد ارتباطه بكلمة سر

لايعمل الا بها

تم تعديل فبراير 21, 2011 بواسطه قصي

[قصي]

حفظك الله

حاولت ان اعدل في الكود لاجعله ينسخ صف معين

ويلصقه تحت الصف بعدد يتم تعريفه

ولكن باءت محاولاتي بغير ما اريد

فارجوك

امدنا به لكي نتمرن على تعديل الاكواد المفيده

[عبدالله باقشير]

السلام عليكم

اريد ارتباطه بكلمة سر

كلمة السر هي:123

ويتم تغييرها في الكود في السطر

If Not MyPas = "123" Then GoTo 1

الكود المستخدم هو:

Option Explicit

'

'


Sub kh_MySh_Range_ClearContents()

On Error Resume Next

Dim MySh, Sh, MyPas

Dim MyName As String


'  اسماء الاوراق

MySh = Array("الرئيسية", "بيانات1", "بيانات2")


If IsError(Application.Match(ActiveSheet.Name, MySh, 0)) Then MsgBox "اسم الورقة غير مسجلة في الكود في المتغير " & "MySh", vbMsgBoxRtlReading + vbMsgBoxRight: GoTo 2

If Not TypeName(Selection) = "Range" Then MsgBox "The selection object type is " & TypeName(Selection): GoTo 2


1:

MyPas = InputBox("هل تريد مسح الخلايا " & Chr(10) & Chr(10) & Selection.Address)

If MyPas = "" Then GoTo 2

If Not MyPas = "123" Then GoTo 1


For Each Sh In MySh

    Sheets(Sh).Range(Selection.Address).ClearContents

    MyName = MyName & Chr(10) & Sheets(Sh).Name

Next Sh

Call MsgBox("تم مسح الخلايا " & Selection.Address & Chr(10) & Chr(10) & "في الاوراق التالية : " & MyName, vbMsgBoxRtlReading + vbMsgBoxRight, "الحمد لله")

2:

End Sub

شاهد المرفق اكسل2003

مسح الخلايا المحددة في اوراق معينة.rar

[قصي]

• عودة النسر الجسور
• جزاك الله كل خير
  

[ashraff101]

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

[ashraff101]

عند تسمية الاوراق بارقام وتغيير ذلك فى الموديول لا يقوم بالمسح الا من الرئيسية فقط ارجوا ان تعلمونا

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

ماشاء الله

حفظك ربنا ورعاك