[حل شده] حذف تمام ركوردهای یك كد در جدول

[ظهور 313]

سلام و عرض ادب خدمت اساتید و دوستان محترم

با استفاده از چه فرمی میتونم تمام كدهای مربوط به یك كد را در جدول حذف كنم؟

یعنی اگه ستون b در یك جدول مساوی با مقدار یك تكس باكس بود، تمامی ركوردهاش (ستون b تا z) حذف بشه؟
حذف یك ركورد با كد خاص رو بلدم

ممنون میشم اگر اساتید راهنمایی بفرمایند

[iranweld]

با سلام

این کد را تست کنید

Private Sub CommandButton1_Click()

For Each cell In ActiveSheet.UsedRange

If IsNumeric(cell) Then

If Val(cell) = Val(TextBox1) Then

cell.Value = ""

End If

ElseIf cell = TextBox1 Then

cell.Value = ""

End If

Next


End Sub 

[ظهور 313]

بابت وقتی كه گذاشتید ممنونم دوست عزیز. اما این كد شما ایراد داره. این كد میگرده و هر ركوردی كه مساوی با تكس باكس باشه رو پاك میكنه.
اما اونی كه من میخوام اینه كه توی یك شیت مشخص، فقط توی ردیف a دنبال یه كد بگرده و بعد تمام ردیفهایی كه اون كد رو دارند (كه بیش از یك ردیف هست) رو پاك كنه

فرمول شما با مطلب من خیلی فرق داره

[iranweld]

لطفا نمونه فایل قرار بدید که مشخص بشه کدام کد باید حذف بشه و کدام کد باید باقی بماند

[iranweld]

در این فایل اگر کدی در ستون a وجود داشت کلیه دیتای همردیف آن حذف میگردد

Private Sub CommandButton1_Click()

Z1 = Cells(Rows.Count, "A").End(xlUp).Row

For Each CELL In Range("A2:A" & Z1)

If IsNumeric(CELL) Then

If Val(CELL) = Val(TextBox1) Then

Range("A" & CELL.Row & ":J" & CELL.Row).ClearContents

End If

ElseIf CELL = TextBox1 Then

Range("A" & CELL.Row & ":J" & CELL.Row).ClearContents

End If

Next


End Sub 

[ظهور 313]

ممنونم استاد
عالی بود همینو میخواستم