elgabale قام بنشر أبريل 11, 2019 قام بنشر أبريل 11, 2019 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
elgabale قام بنشر أبريل 15, 2019 الكاتب قام بنشر أبريل 15, 2019 ارجو من عظماء الموقع مساعدتى وهذا اول طلب لى فى الموقع اريد عمل حلقة تكرارية لهذا الكود 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.