برجاء شرح كيفية ازالة الاعمدة

[ضاحي الغريب]

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

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

برجاء التكرم عن طريقة ازالة الاعمدة بالشكل التي بالصورة المرفقة

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

[الـعيدروس]

اخفاء من اخر عمود للجدول الى اخر عمود للورقة

[G1:IU1].EntireColumn.Hidden = True

[اسلام سيد]

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

[ضاحي الغريب]

أخي العزيز الغالي ا. عباد

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

ماقصرت ودائما سباق

تقبل تحياتي

[ضاحي الغريب]

أخي أبو نصار

هل اضع الكود في حدث الورقة

[الـعيدروس]

بمودويل

Sub A()

[G1:IU1].EntireColumn.Hidden = True

End Sub

[ضاحي الغريب]

أخي أبو نصار

تم والحمد لله

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

ومعلش لي استفسار لو حبيت اخفي الصفوف من الصف 1001 الي النهاية هايكون الذاي

[الـعيدروس]

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

Sub Ar()

Rows("1001" & ":" & Rows.Count).EntireRow.Hidden = True

End Sub

[ضاحي الغريب]

تمام يا ابو نصار يا مايسترو

سلمت من كل شر

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

تقبل تحياتي

[الـعيدروس]

ولك مثل دعائك اضعاف ان شاء الله

وهكذا للاعمدة والصفوف حسب الصوره وتوضيحك

Sub C_r()

With ActiveSheet

.Columns("G" & ":" & Chr(105) & Chr(117)).EntireColumn.Hidden = True

.Rows("1001" & ":" & .Rows.Count).EntireRow.Hidden = True

End With

End Sub

[ضاحي الغريب]

بارك الله فيك أخي الكريم أبونصار

ماقصرت ونفعك الله بعلمك وعملك وجعل زوريتك من الصالحين

تقبل تحياتي