با سلام
من ی سری ردیف دارم که میخوام فقط اون ردیف هایی که در ستون d متن نمی باشد اومد اون ردیف رو پاک کنه
من ی سری ردیف دارم که میخوام فقط اون ردیف هایی که در ستون d متن نمی باشد اومد اون ردیف رو پاک کنه
Public rw As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
rw = Target.Address
If Sheet1.Range(rw).Column = 4 And Sheet1.Range(rw).Row > 1 And Sheet1.Range(rw).Value = "äãì ÈÇÔÏ" Then
Rows(Sheet1.Range(rw).Row).Delete Shift:=xlUp
End If
End Sub
Public rw As String
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
rw = Target.Address
If Sheet1.Range(rw).Column = 4 And Sheet1.Range(rw).Row > 1 And Sheet1.Range(rw).Value =sheet1.range("h1").value Then
Rows(Sheet1.Range(rw).Row).Delete Shift:=xlUp
End If
End Sub
Sub amir() Dim cel As Range Application.ScreenUpdating = False For Each cel In Range("D:D") If cel.Value = "" Then w = cel.Row Exit For End If If cel.Row > 2 And cel.Value = Range("D2").Value Then Sheet1.Select Rows(cel.Row).Copy Sheet2.Select If Range("A3").Value = "" Then Rows("3:3").Insert Shift:=xlDown ElseIf Range("A4").Value = "" Then Rows("4:4").Insert Shift:=xlDown Else Range("A3").End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select Rows(Selection.Row).Insert Shift:=xlDown End If End If Next cel Sheet1.Select While 1 flag = 1 For i = 3 To w If Range("D" & i).Value = Range("D2").Value Then Rows(Range("D" & i).Row).Delete Shift:=xlUp flag = 0 End If Next i If flag = 1 Then Exit Sub Wend Application.ScreenUpdating = True End Sub
کامنت