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

• Kobe veterán

  2018-02-19 13:38:34 #37369

  Új Válasz

  Ú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

  

  Kobe

  veterán

  sziasztok

  van egy Excel táblám, amiben a B és C oszlopokban nevek vannak (kb 100-200 különböző név). Azt szeretném, ha egy makró kitörölné azokat a sorokat (az egész sort) ahol a B és C oszlopok bármelyikében nem egyezik meg az általam kívánt nevekkel (magyarul szeretném csak a nekem érdekes 4-5 névre emgtartani a sorokat).
  A nevek a 2 oszlopban lehetnek eltérőek, akár B ben vagy C ben szerepelhet az általam ekresett érték, és ha egyikben sem találta meg, akkor töröljön csak sort,, ha a kettő közül bármelyikben szerepel, maradhat.

  Idáig jutottam, de nem működik, tuti elírtam valamit. Mi lenne helyesen ?

  Dim LR As Long

Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row

For i = LR To 2 Step -1

If Range("B" & i:"C" &i) <> "Gipsz Jakab" Or "Rezső Dezső" Then
Range("B" & i).EntireRow.Delete Shift:=xlUp
End If
Next i

Application.ScreenUpdating = True

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