اذهب الي المحتوي
أوفيسنا

إدراج صفوق معينة في أوراق معينة


الردود الموصى بها

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

اخواني الكرام كما تعلمون فاني قمت قبل فترة بوضع كود لادراج عدد محدد من الصفوف ابتداءً من صف محدد

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

وقد احببت ان افرده في موضوع منفصل للفائدة




Sub OFFICNA()

Set XX = Application.WorksheetFunction

X11 = InputBox("حدد أسم الشيت الذي تريد إدراج صفوف فيه أو اتركه خالي لإختيار الشيت الحالية", "www.officena.net")

If IsNull(X11) Or X11 = "" Then

ActiveSheet.Select

Else

Sheets(X11).Select

End If

X1 = InputBox(" حدد رقم الصف المطلوب إدراج صفوف إبتداءً منه", "www.officena.net")

If IsNull(X1) Or X1 = "" Then Exit Sub

X2 = InputBox(" حدد عد الصفوف المراد إدراجها", "www.officena.net")

If IsNull(X2) Or X2 = "" Then Exit Sub

X3 = XX.Sum(X1, X2)

Rows(X1 & ":" & X3 - 1).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A" & X1).Select

aa = MsgBox("هل تريد إدراج صفوف في أوراق جديدة", vbYesNo, "www.officena.net")

If aa = vbYes Then

OFFICNA

End If

End Sub

ابواحمد

رابط هذا التعليق
شارك

اخي الكريم

الصفحات المطلوب ادراج الصفوف لهاا كثيره

نريد ان نستطيع ادراج اسماء الصفحات بالكود

وكذلك عدد الصفوف المطلوب ادراجها يتم اخذها من خليه مكتوب بها عدد الصفوف

ولك جزيل الشكر

رابط هذا التعليق
شارك

اخى الحبيب / عبد الله حفظك المولى ورعاك

مبدع كالعاده

لى طلب بسيط

هل يمكن ظهور اسماء الشيتات فى نافدذه الاختيار بدلا من كتابتها

بارك الله فيك

وكل عام وانت بخير

رابط هذا التعليق
شارك

اخي الكريم

الصفحات المطلوب ادراج الصفوف لهاا كثيره

نريد ان نستطيع ادراج اسماء الصفحات بالكود

وكذلك عدد الصفوف المطلوب ادراجها يتم اخذها من خليه مكتوب بها عدد الصفوف

ولك جزيل الشكر

اخى الحبيب / عبد الله حفظك المولى ورعاك

مبدع كالعاده

لى طلب بسيط

هل يمكن ظهور اسماء الشيتات فى نافدذه الاختيار بدلا من كتابتها

بارك الله فيك

وكل عام وانت بخير

اخواني الكرام

cat101

'abo_alaa

ان شاء الله يكون المرفق ما تطلبانه

ابواحمد

رابط هذا التعليق
شارك

اشكرك كثيرا استاذ عبد الله

وكل عام وانت ومن تحب بخير

عملك ممتاز

ولكني كنت اود ان تكون اسماء الصفحات بالكود مفسه فلو اراد المستخدم ان يضيف صفحات اخرى فسيكون ذلك من داخل الكود نفسه ايضا باضافة اسم الصفحه بجوار اسماء الصفحات الموجوده

وكذلك بداية الصف الذي سيتم ادراج الصفوف منه ... نريده ان يكون موجودا داخل الكود نفسه ايضا

وسيزداد الكود حسنا .. لو اخذ تنسيقات ومعادلات الصف الذي قبله

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

رابط هذا التعليق
شارك

اشكرك كثيرا استاذ عبد الله

وكل عام وانت ومن تحب بخير

عملك ممتاز

ولكني كنت اود ان تكون اسماء الصفحات بالكود مفسه فلو اراد المستخدم ان يضيف صفحات اخرى فسيكون ذلك من داخل الكود نفسه ايضا باضافة اسم الصفحه بجوار اسماء الصفحات الموجوده

وكذلك بداية الصف الذي سيتم ادراج الصفوف منه ... نريده ان يكون موجودا داخل الكود نفسه ايضا

وسيزداد الكود حسنا .. لو اخذ تنسيقات ومعادلات الصف الذي قبله

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

اشكرك كثيرا استاذ عبد الله

وكل عام وانت ومن تحب بخير

عملك ممتاز

طلب اخي كات هو عز الطلب

رابط هذا التعليق
شارك

  • 3 weeks later...
  • 3 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information