elgabale

ارجو من عظماء الموقع مساعدتى وهذا اول طلب لى فى الموقع اريد عمل حلقة تكرارية لهذا الكود Sheets("1").Select Rows("1:45").Select Selection.Copy Windows("YSam Macro.xlsb").Activate Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("I9").Select Application.CutCopyMode = False Selection.Copy Range("O15:O33").Select ActiveSheet.Paste Windows("ysam.xlsb").Activate Worksheet = ActiveSheet.Name On Error GoTo errorhandler Sheets("2").Select Rows("1:45").Select Selection.Copy Windows("YSam Macro.xlsb").Activate Range("A46").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("I54").Select Application.CutCopyMode = False Selection.Copy Range("O60:O78").Select ActiveSheet.Paste Windows("ysam.xlsb").Activate Worksheet = ActiveSheet.Name On Error GoTo errorhandler Sheets("3").Select Rows("1:45").Select Selection.Copy Windows("YSam Macro.xlsb").Activate Range("A92").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("I100").Select Application.CutCopyMode = False Selection.Copy Range("O106:O124").Select ActiveSheet.Paste Windows("ysam.xlsb").Activate Worksheet = ActiveSheet.Name

Sheets("1").Select Rows("1:45").Select Selection.Copy Windows("YSam Macro.xlsb").Activate Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("I9").Select Application.CutCopyMode = False Selection.Copy Range("O15:O33").Select ActiveSheet.Paste Windows("ysam.xlsb").Activate Worksheet = ActiveSheet.Name On Error GoTo errorhandler Sheets("2").Select Rows("1:45").Select Selection.Copy Windows("YSam Macro.xlsb").Activate Range("A46").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("I54").Select Application.CutCopyMode = False Selection.Copy Range("O60:O78").Select ActiveSheet.Paste Windows("ysam.xlsb").Activate Worksheet = ActiveSheet.Name On Error GoTo errorhandler Sheets("3").Select Rows("1:45").Select Selection.Copy Windows("YSam Macro.xlsb").Activate Range("A92").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("I100").Select Application.CutCopyMode = False Selection.Copy Range("O106:O124").Select ActiveSheet.Paste Windows("ysam.xlsb").Activate Worksheet = ActiveSheet.Name