[حل شده] کد رفتن به سلول بعدی در ماکرو

[mr.shariat]

میخوام یه ماکرو تعریف کنم که رو سلولی که هستم یه مقدار وارد کنه و اتوماتیک بره سلول بعدی و اونجا هم یه مقدار وارد کنه و همینه طور سلول بعدی

[M_ExceL]

میخوام یه ماکرو تعریف کنم که رو سلولی که هستم یه مقدار وارد کنه و اتوماتیک بره سلول بعدی و اونجا هم یه مقدار وارد کنه و همینه طور سلول بعدی

سلام،
فایل پیوست رو بررسی کنید.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

t_row = Target.Row
t_Column = Target.Column

v = 1
For i = t_Column To (t_Column + 2)
    Cells(t_row, i) = "متن" + Str(v)
v = v + 1
Next

End Sub

[Amir Ghasemiyan]

دوست عزيز اگر پاسخ سوالتون رو دريافت كرديد لطفا تاپيك رو حل شده كنيد