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

  • 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