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

[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

موفق باشید