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

• #11512 Delila_1 veterán Mythunderboy #11502

  Új Válasz 2011-09-30 12:30:10 #11512

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

  A makró az aktuális lap T oszlopába gyűjti az egyéni értékeket, majd átmásolja a Munka2 lap A oszlopába. Másolás után törli az ideiglenes T oszlopot.

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

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