تعديل كود اعطى #REF

[علي المصري]

الكود التالي لنقل الاعمدة الموضح بالرقام من صفحة الى اخرى 
 

Sub Cycles()
 Dim a
 With Sheets("DataT1").Cells(1).CurrentRegion
 a = .Value
 With Sheets("CyclesT1")
 .Cells(1, 1).Resize(UBound(a), 31) = Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), [{1,2,4,6,7,8,9,10,11,12,13,14,15,16,17}])
 End With: End With
 End Sub

قمت بالتعديل على ارقام الاعمدة التي يراد نقلها كما هو موضح بالكود التالي

Sub CyclesB1T1()
 Dim a
 With Sheets("B1DataT1").Cells(1).CurrentRegion
 a = .Value
 With Sheets("CyB1T1")
 .Cells(1, 1).Resize(UBound(a), 15) = Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), [{20,21,23,25,26,27,28,29,30,31,32,33,34,35,36}])
 End With: End With
 End Sub

مما ادى الى ظهور  #REF عند التنفيذ

ما الخطأ 

 

T1.xlsb

[lionheart]

Add the following line

MsgBox .Columns.Count

After this line

With Sheets("B1DataT1").Cells(1).CurrentRegion

You will get the result 17 columns, so the columns numbers you used are not in the range you are dealing with. That's why you got REF error

[علي المصري]

شكرا جزيلا
لكن كيف يمكن تصحيح هذا الخطا لنقل الاعمدة المطلوبة

مع الشكر الجزيل لاهتمامكم

اذا امكن التطبيق على المرفق

[lionheart]

Learn the basics my bro

Just instead of using CurrentRegion feature change the range you are dealing with

example

Sub Test()
    Dim lr As Long
    With ActiveSheet
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        a = .Range("A2:Z" & lr).Value
        
    End With
End Sub

 

[علي المصري]

شكرا جزيلا