حذف ردیف با دستور

**1q2w3e4rr** · 2013/01/01, 15:02

RE: حذف ردیف با دستور

شما میتونید از این کد برای انجام کاری که میخواهید استفاده کنید.

کد:

Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("Sheet1").Select
a = Cells(1, 1)
Sheets("Sheet2").Select
b = Cells(1, 1)
If a = b Then
    Sheets("Sheet2").Select
    Columns("a:a").Select
    Selection.Delete Shift:=xlToLeft
    End If
End Sub

**khorasan66** · 2013/01/02, 09:36

RE: حذف ردیف با دستور

با تشکر از دوست گرامی دستور فوق کامل نبود
لازم به ذکر است شیت دوم حاوی اطلاعاتی مثلا ریز اقلام یک فاکتور فروش می باشد که بعد از انتقال از فرم اولیه به صورت ردیفی ذخیره شده است و اولین گزینه آن در ستون A شماره فاکتور می باشد ستون B تاریخ و ....
حال می خواهم هنگامی که من در شیت اول شماره آن فاکتور را فرضاً در سلول A1 وارد نمودم با استفاده از دستوری ردیف آن فاکتور در شیت دوم مشخص شده و آن ردیف پاک شود .
با تشکر اگر ممکن بود پاسخ را با فایل نمونه بگذارید .

**1q2w3e4rr** · 2013/01/02, 16:15

RE: حذف ردیف با دستور

در این فایل از خاصیت "find" برای پیدا کردن نوشته ما استفده کردم.

Book4

**shamsololama** · 2013/01/03, 16:39

RE: حذف ردیف با دستور

با درود فراوان

در این کد شماره های که در شیت یک در ستون A نوشته شده را در شیت دو پیدا کرده و حذف میکند

Sub Macro1()

Dim c, g
For Each g In Sheet1.Range("A1:A20")
For Each c In Sheet2.Range("A2:A1000")
If c.Value <> "" And c.Value = g.Value Then
Sheet2.Rows(c.Row).Delete Shift:=xlUp
End If
Next c
Next g
End Sub

نمونه فایل:
[attachment=1086]

فایل های پیوست شده