[حل شده] حذف محدوده خاص با vba

[mahdie-ard]

با عرض سلام و وقت بخیر خدمت اساتید محترم:
در یک فایل اکسل که یک سری مشخصات وارد شده باشد از محدوده b3تا j3 و ادامه دار هستش و همچنین b3 به پایین مختص شماره ردیف می باشد. اگر بخواهیم در یک سلول مشخص و ثابت مثلآ a5 زمانی که شماره ردیف را وارد کنیم اون ردیف مورد نظر از b تا j حذف بشه و همچنین در یک شیت دیگر paste بشه البته با vba . راه حلش چیه؟
در صورت امکان راهنمایی بفرمایید

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

با عرض سلام و وقت بخیر خدمت اساتید محترم:
در یک فایل اکسل که یک سری مشخصات وارد شده باشد از محدوده b3تا j3 و ادامه دار هستش و همچنین b3 به پایین مختص شماره ردیف می باشد. اگر بخواهیم در یک سلول مشخص و ثابت مثلآ a5 زمانی که شماره ردیف را وارد کنیم اون ردیف مورد نظر از b تا j حذف بشه و همچنین در یک شیت دیگر paste بشه البته با vba . راه حلش چیه؟
در صورت امکان راهنمایی بفرمایید

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

Sub LoopTable()

    Dim LstCell As Long, i As Long
    LstCell = Sheets("Sheet1").ListObjects("Table1").DataBodyRange.Rows.Count

    For i = LstCell To 1 Step -1

        If Sheets("Sheet1").ListObjects("Table1").DataBodyRange.Cells(i, 1).Value = _                    Sheets("Sheet1").Cells(1, "B").Value Then

            With Sheets("Sheet1").ListObjects("Table1").ListRows(i).Range
                .Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
                .Delete
            End With 
         End If
    Next
      End Sub 

با تشکر
میثم مقدم نیا

[mahdie-ard]

سلام فایل پیوست ندارید؟

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

سلام فایل پیوست ندارید؟

فایل پیوست که موجوده نگاه کنید

[mahdie-ard]

سلام عالی بود تشکر