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

• #3633 FehérHolló veterán Delila_1 #3632

  Új Válasz 2008-06-06 18:01:41 #3633

  Ú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

  

  FehérHolló

  veterán

  válasz Delila_1 #3632 üzenetére

  Köszönöm, de a H-ban is van adat, csak annak nem számít a módosítása.

  Különben a végén a Target.Row és Target.Column értékeivel vigyáznék, mert közben a copy miatt módosulnak.

  Rendezőset csak holnap tudom kipróbálni, mert most mennem kell egy találkozóra.

• #3628 FehérHolló veterán lapa #3627

  Új Válasz 2008-06-06 13:30:37 #3628

  Ú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

  

  FehérHolló

  veterán

  válasz lapa #3627 üzenetére

  Nem fogok egy 400x9-es táblát minden új sor beillesztésénél átmásolni valahova, rendezni, majd visszamásolni. Főleg úgy, hogy egymás után 4-5 sort szoktam általában hozzáadni.

  Egyébként erősen kétlem, hogy nincs rá egyetlen függvény (makróknál), amikor egy kijelöléssel és egy kattintással meg lehet csinálni, ha manuálisan akarja az ember.

• #3626 FehérHolló veterán Delila_1 #3620

  Új Válasz 2008-06-06 10:42:13 #3626

  Ú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

  

  FehérHolló

  veterán

  válasz Delila_1 #3620 üzenetére

  Viszonylag sokat keresgéltem tegnap, végül ez volt az a sok közül, ami némiképp megfelelne a célnak:

  Sub SortAllRangeData()
  ' Place column header for temporary sort area.
  Range("IV1").Value = "Numbers"
  
  ' Move numbers to temporary sort location.
  For Each cell In Selection
  Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
  Next cell
  
  ' Sort numbers in ascending order.
  Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"), _
  Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  
  ' Move sorted data back to original sheet location.
  
  Selection(1, 1).Activate ' Make sure the ActiveCell is the
  ' top left of Selection first.
  CCnt = Selection.Columns.Count
  RCnt = Selection.Rows.Count
  CellCnt = Selection.Cells.Count
  Tcell = 2
  For c = 1 To CCnt
  For r = 1 To RCnt
  Range(ActiveCell.Address).Offset(r - 1, c - 1).Value = _
  Range("iv" & Tcell).Value
  Tcell = Tcell + 1
  Next r
  Next c
  
  ' Clean up temporary sort location.
  Range("IV1", Range("IV1").End(xlDown)).Clear
  End Sub

  Ez viszont túl sok idő, mire lefut. A cél a kezelés kényelmesebbé tétele lenne, nem az, hogy akárhányszor hozzá van adva egy adat, mindig lefusson egy ilyen és rabolja az időt. Inkább a végén megcsinálom manuálisan a sorba rendezést mielőtt mentem.

• #3619 FehérHolló veterán FehérHolló #3617

  Új Válasz 2008-06-06 00:00:01 #3619

  Ú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

  

  FehérHolló

  veterán

  válasz FehérHolló #3617 üzenetére

  Megoldva. Cells(CurrRow, CurrCol).Select.
  (Változóknak van érték adva.)

  Sorba rendezés milyen függvénnyel megy? Kezdek belemelegedni.

• #3617 FehérHolló veterán Delila_1 #3616

  Új Válasz 2008-06-05 23:28:19 #3617

  Ú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

  

  FehérHolló

  veterán

  válasz Delila_1 #3616 üzenetére

  Ugyanaz a gép. Amíg nem zártam be, addig ment, amikor újra megnyitottam, már nem.
  Egyébként a megoldás: eszközök -> makró -> biztonság -> magasról közepesre. Közben rájöttem.

  Tudnál még esetleg valamiben segíteni, ha nem vagyok nagyon a terhedre?

  A fenti makróba mit kellene még beleírni a végére, hogy visszaugorjon abba a cellába, amit változtattam?

  Ezt próbáltam a végére (End If elé) írni, de kifagy:

  Range(Target.Column & Target.Row).Select

• #3614 FehérHolló veterán Delila_1 #3612

  Új Válasz 2008-06-05 20:50:39 #3614

  Ú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

  

  FehérHolló

  veterán

  válasz Delila_1 #3612 üzenetére

  Azért ezt is köszönöm szépen!

• #3611 FehérHolló veterán Delila_1 #3607

  Új Válasz 2008-06-05 15:45:22 #3611

  Ú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

  

  FehérHolló

  veterán

  válasz Delila_1 #3607 üzenetére

  Nem az a baj, hogy nem értelmezi a makrókat, hanem az, hogy a magas biztonsági szint miatt letiltja a futtatásukat, amikor megnyitom az adott excel filet.

  Hogy lehet a biztonsági szintet csökkenteni, vagy valami más megoldás van rá?

  (Bekapcsoltam az általad említett két bővítményt.)

• #3602 FehérHolló veterán Delila_1 #3601

  Új Válasz 2008-06-04 20:59:10 #3602

  Ú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

  

  FehérHolló

  veterán

  válasz Delila_1 #3601 üzenetére

  Lenne még egy kis gond.
  A magas biztonsági szint miatt nem futtatja megnyitásnál a makrókat. Mit lehet ez ennek érdekében csinálni?

  Vista és Office 2003.

• #3600 FehérHolló veterán Delila_1 #3599

  Új Válasz 2008-06-02 10:48:29 #3600

  Ú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

  

  FehérHolló

  veterán

  válasz Delila_1 #3599 üzenetére

  Ez így már tökéletes. Köszönöm szépen!

• #3597 FehérHolló veterán Delila_1 #3582

  Új Válasz 2008-06-02 10:34:45 #3597

  Ú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

  

  FehérHolló

  veterán

  válasz Delila_1 #3582 üzenetére

  Köszönöm szépen!

  Ennél viszont kicsit bonyolultabb a helyzet. Nekem valójában arra lenne szükségem, hogy ha B1:G1 tartományban módosul valami, akkor I1 cellába írja a dátumot, ha B2:G2-ben, akkor I2-be, satöbbi, az egész oszlopon keresztül.

  Azt hittem, hogy a kérdésemre van olyan megoldás, amit ha egyszerűen végighúzok az oszlopon, akkor működni fog, ezért fogalmaztam pongyolán.
  Ebben a komplexebb dologban is tudnál valami ötlettel szolgálni?

• #3579 FehérHolló veterán brd #3578

  Új Válasz 2008-05-27 21:05:43 #3579

  Ú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

  

  FehérHolló

  veterán

  válasz brd #3578 üzenetére

  $ jel az oszlopnév, illetve sorszám elé lenne a megoldás a problémára. Képletbe beírod a dollárt a megfelelő helyre (sor/oszlop elé), és remélhetőleg boldog leszel. (Utána copy/cut-paste és "lehúzás" megőrzi az oszlop-, illetve a sorszámot.)

• #3577 FehérHolló veterán

  Új Válasz 2008-05-27 20:27:57 #3577

  Ú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

  

  FehérHolló

  veterán

  Meg lehet valahogy csinálni, hogy egy cellában egy másik cellahalmaz utolsó módosítási dátumát tartalmazza?

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