پرسش این کد در sheet اول فقط run می شود

[mohammadi59m]

سلام و احترام
فایل پیوست سطر را منظم فاصله دار میکند آقای مهندس میر این کد را کامل به من پاسخ دادند اما وقتی sheet1 و sheet2 به کد اضافه کردم اما اگر در sheet1 باشم run می شود اما اگر در شیتهای دیگر باشم این کد run نمی کند

1 ایا می شود این کد وابسته به شیت اول نباشد در هر شرایط run شود عمل کند
2 ایا می شود تعریف کد هم برای اعداد باشد هم برای حروف مثل a b c و ...
اگر ممکنه تغییرات را در کد اعمال بفرمایید سپاس از همکاری شما

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

سلام و احترام
فایل پیوست سطر را منظم فاصله دار میکند آقای مهندس میر این کد را کامل به من پاسخ دادند اما وقتی sheet1 و sheet2 به کد اضافه کردم اما اگر در sheet1 باشم run می شود اما اگر در شیتهای دیگر باشم این کد run نمی کند

1 ایا می شود این کد وابسته به شیت اول نباشد در هر شرایط run شود عمل کند
2 ایا می شود تعریف کد هم برای اعداد باشد هم برای حروف مثل a b c و ...
اگر ممکنه تغییرات را در کد اعمال بفرمایید سپاس از همکاری شما

سلام
دوست عزیز فایلتون هیچ کدی نداره برسی و مجدد ارسال کنید
اگر فایلتون ماکرو است ان را zip کنید و مجدد ارسال کنید

[mohammadi59m]

ببخشید گویا اکسلم اشکالی دارد کدش را فرستادم:

Sub AddNo()
Colno = Application.WorksheetFunction.Count(Range("A1:z1")) + 1
Rows("2:2").Clear
For iz = 1 To Colno Step 1
For Ico = 1 To 3 * Colno + Colno Step 3 + 1
If iz >= Colno Then
Exit Sub
Else
Sheet2.Cells(2, Ico) = Sheet1.Cells(1, iz)
iz = iz + 1
End If
Next
Next
End Sub