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

  • Pakliman

    tag

    válasz Zola007 #43075 üzenetére

    Szia!

    Először is kell egy másolat az "eredeti" kiválasztható értékekről. Célszerű az eredeti lista mellett létrehozni. Ezt el is rejtheted.
    A listaelem átírásakor az alábbiakat kell tenni a makróban (Worksheet_Change):
    - Letiltod az eseménykezelőt: Application.Enabelevents=False
    - a Target objektum tartalmazza az átírt elem sorának számát (Target.Row), ez lesz majd használva
    - megkeresed az EREDETI szöveget a "másolatban" ( Cells(Target.Row, a_másolat_oszlopa) )
    - sorra veszed a munkafüzet munkalapjait (For Each ws In Worksheets), ha kell szűrést is berakhatsz, vigyázz,
    hogy az aktuális (a listát tartalmazó) munkalapot teljesen külön kezeld!
    - a munkalapon megkeresed az EREDETI szöveget és átírod az újra.
    - végül a listát tartalmazó munkalapon az EREDETI szöveget is átírod
    - Engedélyezed az eseménykezelőt: Application.Enabelevents=True

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