تغيير اسماء الشيتات فى عمود تلقائيا

[مهند محسن]

السلام عليكم اساتذتى واحبائى الكرام ,أرجو التكرم على مساعدتى في إيجاد معادلة او كود  يقوم على تغيير جميع أسماء الشيتات الموجودة في قائمة داخل العمود M من الصفحة الأولى

بمجرد تغييرها بالفعل من الأسفل , لأنى أقوم بهذا شهريا يدويا فاتمنى منكم مساعدتى 

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

 

Change Name For Sheets in Menu.xlsm

تم تعديل يونيو 13, 2019 بواسطه مهند محسن

[سليم حاصبيا]

واحد من هذين الماكروين  البسيطين

Sub From_cel_to_tab()
Dim k%: k = 4
Dim sh
 For Each sh In Sheets
  sh.Name = Range("M" & k)
  k = k + 1
 Next
End Sub

Option Explicit

Sub From_Tab_To_cel()

Dim k%: k = 4
Dim sh
 For Each sh In Sheets
  Range("M" & k) = sh.Name
  k = k + 1
 Next

End Sub

 

[مهند محسن]

والله هذا ابداع -بارك الله فيك استاذ سليم وزادك الله من قضله ووسع الله فى رزقك

هذا اكثر كمان من المطلوب جزاك الله كل خير وبارك الله فيك وفى اولادك ورحم الله والديك