[حل شده] پیغام خطا

[میثم مقدم نیا]

سلام
من در اجرای فیل ماکرو با پیغام زیر روبرو شدم
البته در ویندوز خودم درسته اما درسیستم دیگه این مشکل برام پیش اومده

[Amir Ghasemiyan]

سلام دوست عزيز

فايل يا كدتون رو قرار بدين بهتر ميشه بررسي كرد

[میثم مقدم نیا]

سلام دوست عزيز

فايل يا كدتون رو قرار بدين بهتر ميشه بررسي كرد

سلام
اینم فایل پیوست
وقتی کلید ها را فشا میدم این پیغام ظاهر میشود

[M_ExceL]

سلام
اینم فایل پیوست
وقتی کلید ها را فشا میدم این پیغام ظاهر میشود

سلام،
علت، استفاده از کلمات و حروف فارسی هست.
خط دوم ساب sort1 رو با کد زیر جایگزین کنید.

ActiveWorkbook.Worksheets("Abrang").ListObjects("Table1").Sort.SortFields.Add Key:=Range("Table1[[#All],[" & ChrW(1578) & ChrW(1575) & ChrW(1585) & ChrW(1610) & ChrW(1582) & "]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

سعی کنید برای کلمات و پیغام های فارسی از کد اسکی استفاده کنید.

[میثم مقدم نیا]

سلام،
علت، استفاده از کلمات و حروف فارسی هست.
خط دوم ساب sort1 رو با کد زیر جایگزین کنید.

ActiveWorkbook.Worksheets("Abrang").ListObjects("Table1").Sort.SortFields.Add Key:=Range("Table1[[#All],[" & ChrW(1578) & ChrW(1575) & ChrW(1585) & ChrW(1610) & ChrW(1582) & "]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

سعی کنید برای کلمات و پیغام های فارسی از کد اسکی استفاده کنید.

ممنون از راهنمایتون