elgabale
-
Posts
2 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه 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
كيفية تحويل هذا الكود بخاصية for and next
في منتدى الاكسيل Excel
قام بنشر
ارجو من عظماء الموقع مساعدتى وهذا اول طلب لى فى الموقع اريد عمل حلقة تكرارية لهذا الكود
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