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

• #37370 Delila_1 veterán Kobe #37369

  Új Válasz 2018-02-19 16:15:17 #37370

  Ú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 #37369 üzenetére

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

Application.ScreenUpdating = False

LR = Cells(Rows.Count, 2).End(xlUp).Row
For i = LR To 2 Step -1
If Range("B" & i) <> "Gipsz Jakab" And Range("C" & i) <> "Gipsz Jakab" And _
Range("B" & i) <> "Rezső Dezső" And Range("C" & i) <> "Rezső Dezső" 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