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

• #37064 Kobe veterán

  Új Válasz 2018-01-19 15:16:56 #37064

  Ú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

  

  Kobe

  veterán

  hi

  segítség kellene egy tábla adattisztításának autoamtizálásához. van egy makróm ami egy sharepointos felületről letölt táblába (Table1 objectként, már "filterezve") egy listát.

  Ebben a táblában 2 db feltétel szerint szeretnék egész sorokat törölni:

  1. lépés: a J oszlopban 10 lehetséges érték lehet : aktív, törölt, stb stb. Töröljön ki minden olyan sort a táblából, ahol a J oszlopban Lezárt, Befejezett, Törölt, Várakozik érték van

  2. lépés: a fennmaradó adathalmazon a B oszlopban található felhasználónév alapján végezzen még egy törlést: minden olyan sort töröljön ki, ahol a username =/= A, B, C, D, vagy E értékekkel

  erre valami ötlet ?
  Próbáltam már ahsonlóval, de a Tábla maitt elhasal:

  With ActiveSheet
.AutoFilterMode = False
With Range("d1", Range("d" & Rows.Count).End(xlUp))
.AutoFilter 1, "*Record Only*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With

  Az egész makró egy xlam-ba van rejtve, egy custom ribbonnal gombokkal vezérelve. Ha esetleg valakinek ötlete van arra, hogy a user neveket, illetve a kitörölendő értékeket hogyan lehetne egy a ribbonról előhívható táblában paraméterezni (pl cehckboxal jelölni mit töröljön ki), az plusz pont

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