الاخوة الاساتذة الافاضل
احد الاساتذة الاخوة الافاضل اهدانى هذا الكود
عندما اغير اسم الورقة لرقم تتغير الى الشهر واريد تنفيذه على هذه الورقة ارجو شرحه
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