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 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.