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

• #11513 Delila_1 veterán Delila_1 #11512

  Új Válasz 2011-09-30 12:40:38 #11513

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

  Az előbbi egyszerűbben, segédoszlop nélkül:

  Sub EgyeniErtekek()
  Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Munka2").Range( _
  "A1"), Unique:=True
  End Sub

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