izeam

officena ولا مساعدة

اريد مساعدة

السلا عليكم مشكلتي اني اريد تعبئة مجموعة من اوراق مختلفة في الاسماء لكن المشكل هو اني في كل مرة يجب تغيير اسم الورقة الى Export كي يشتغل مكرو لدا اريد مساعدة كي يشتغل على جميع الاوراق هدا هو كود Sub Macro1() ' ' Macro1 Macro ' ' Windows("Export.xlsx").Activate Range("G18:G80").Select Selection.Copy Windows("Observations.xlsm").Activate Sheets("Feuil2").Select ActiveWindow.SmallScroll Down:=-51 Range("A5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("B5:B80").Select Application.CutCopyMode = False Selection.Copy Windows("Export.xlsx").Activate Range("I18").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SmallScroll Down:=33 Range("I51").Select Application.CutCopyMode = False ActiveWorkbook.Save Windows("Observations.xlsm").Activate Sheets("Feuil1").Select Windows("Export.xlsx").Activate MsgBox ("ÊãÊ ÇáÚãáíÉ ÈäÌÇÍ") End Sub

بسم الله الرحمان الرحيم في حالة نسيان كلمة السر طريقة لازالة الرقم الرقم السري لورقة اكسيل لنتابع الشرح اسفلة YOUTUBE