نوشتن کدی برای اضافه کردن یک ردیف به اکسل

[ali719]

سلام تو فایل پیوست من میخوام همیشه دو ردیف خالی داشته باشم مثلا اگه در سلولb5 متنی نوشتم یک کپی از ردیف شش بگیره و اضافه کنه که دو ردیف خالی داشته باشم برای اینکار چه کدی باید بنویسم

[ali719]

سلام
معذرت می خوام اگه سوالم به این شکل بنویسم جوابی داره (اگه تو ستون خالیb حرفی نوشته بشه یک ردیف زیرش اضافه بشه میشه کدی بدین منظور نوشت) مثلا اگه ستون b5 پر بشه یک ردیف زیرش اضافه (insert) بشه
با تشکر

[iranweld]

با سلام

در فایل پیوست با استفاده از قابلیت رویدادها در اکسل در صورت ورود دیتا در سلول b یک سطر اضافه میگردد.


Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("b:b")) Is Nothing Then

Application.EnableEvents = False

If Selection.Count > 1 Then

'===='

Else

If Target <> "" And Target.Offset(1, 0) = "" Then

Selection.EntireRow.Insert

End If

End If

End If

Application.EnableEvents = True

End Sub

[majid_mx4]

با سلام

ضمن تشکر از دوست و استاد محترم جناب آقای Iranweld و کسب اجازه

یک خط کد جهت شمارش ردیف به کد ایشان اضافه شد.



Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("b:b")) Is Nothing Then

Application.EnableEvents = False

If Selection.Count > 1 Then

'===='

Else

If Target <> "" And Target.Offset(1, 0) = "" Then
Target.Offset(0, -1) = Target.Offset(-1, -1) + 1
Selection.EntireRow.Insert

End If

End If

End If

Application.EnableEvents = True

End Sub

موفق باشید