Ú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

• #11510 MaciLaci68 csendes tag Mythunderboy #11502

  Új Válasz 2011-09-30 12:18:45 #11510

  Ú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

  

  MaciLaci68

  csendes tag

  válasz Mythunderboy #11502 üzenetére

  Talán így érthetőbb és látványosabb.
  

• #11506 MaciLaci68 csendes tag Mythunderboy #11502

  Új Válasz 2011-09-30 12:03:55 #11506

  Ú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

  

  MaciLaci68

  csendes tag

  válasz Mythunderboy #11502 üzenetére

  Szia,
  Makró nélkül is megy. Egy munkalapon mutatom.

  C oszlop: fejléc: EREDETI ADATOK: itt vannak az adataid egymás alatt C2-től lefelé
  B oszlop:fejléc: SORSZÁMOZÁS: B2-be: =HA(A2<>"";MAX($B$11)+1;"") és ezt húzd le
  A oszlop: fejléc: EZEK KELLENEK: A2-be =HA(HIBÁS(FKERES(C2;$C$11;1;HAMIS));C2;"") és húzd le
  E oszlop: VÉGSŐ ADATOK SORSZÁMA: E2-vel kezdődően 1,2,3...... sorszámot lefelé a végtelenig
  F oszlop fejléc: VÉGEREDMÉNY : F2-be: =FKERES(E2;B;2;HAMIS) és lehúzni

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