Új hozzászólás Aktív témák

• #37372 Delila_1 veterán Kobe #37371

  Új Válasz 2018-02-19 20:49:15 #37372

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Kobe #37371 üzenetére

  A J1:J6 tartományba írtam be a keresendő neveket. Az If WF kezdetű sorban ezt írd át (2 helyen) a saját neveidet tartalmazó területre.

  Sub torlesek()
Dim LR As Long, i As Long, WF As WorksheetFunction

Application.ScreenUpdating = False
Set WF = Application.WorksheetFunction
LR = Cells(Rows.Count, 2).End(xlUp).Row
For i = LR To 2 Step -1
If WF.CountIf(Range("J1:J6"), Range("B" & i)) + WF.CountIf(Range("J1:J6"), Range("C" & i)) = 0 Then
Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub

Új hozzászólás Aktív témák