اريد شرح هذا الكود

[abouelhassan]

الاخوة الاساتذة الافاضل

احد الاساتذة الاخوة الافاضل اهدانى هذا الكود

عندما اغير اسم الورقة لرقم تتغير الى الشهر واريد تنفيذه على هذه الورقة ارجو شرحه

Private Sub Worksheet_Change(ByVal Target As Range)
i = 3
[dx100] = 0
For r = 2 To 63
Application.ScreenUpdating = False
[dx100] = [dx100] + 1
[dx101] = ActiveSheet.Name
Cells(i, r) = ActiveSheet.Name & "/" & [dx100]
If Cells(i - 1, r).Value = [dx101] Then
Cells(i, r).EntireColumn.Hidden = False
Cells(i, r).ColumnWidth = 26
r = r + 1
Else
Cells(i, r).EntireColumn.Hidden = True
End If
Next
[dx100] = ""
[dx101] = ""
Application.ScreenUpdating = False

End
End Sub

;

احترامى اخيكم

____.rar

[عادل حنفي]

السلام عليكم

هذا الكود اخي

يعمل علي الخلايا الموجوده للصف المحدد

تم تعديله ليعمل علي العمود المراد

تحياتي

____1.rar

[عادل حنفي]

السلام عليكم

وهذا اخي الملف مع شرح الكود

تحياتي

____1.rar

[abouelhassan]

شكرى وتقديرى لشخصكم الكريم بارك الله فيك اخى تحياتى

و احترامى اخيك

[الجزيرة]

بارك الله فيك أخي عادل

لتجاوبك السريع والغير مستغرب من كريم مثلك

اخوك / أبو عبدالله

[عادل حنفي]

السلام عليكم

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

و اشكرك علي كلماتك الجميله

تحياتي