[حل شده] کد نویسی جهت سطر معکوس

[mohammadi59m]

سلام و احترام خدمت اساتید بزرگوار
بوسیله کد نویسی می خواهیم ترتیب سلولهای سطر اول ( هر تعداد سلول که داشته باشد ) در سطر دوم معکوس شود
مثال ماکرو این است
ترتیب سطر اول سلولها :
a b c d e f
در سطر دوم تبدیل شود به :
f e d c b a

توضیح : این معکوس سازی با برخی روشها ساده انجام می شود اما هدف با ماکرو نویسی است
سپاس و تشکر

[majid_mx4]

با سلام

با فرض اینکه سطر شما سطر پنجم باشد و ردیف بازگشت دریف ششم میتوانید از دستورات زیر استفاده نمایید.

Sub Reverse()
mm = Application.WorksheetFunction.CountIf(Rows(5 & ":" & 5), "<>")
b = 1
For i = mm To 1 Step -1
Cells(6, b) = Cells(5, i)
b = b + 1

Next

End Sub

موفق باشید میر

[mohammadi59m]

سلام استاد میر بزرگوار
نهایت تشکر را از شما دارم همیشه سلامت باشید