[Resolved] Private Sub Worksheet_Activate makró futtatása egy másik munkalapról

Szia!

Hát, nagyrészt értem, amit szeretnél. Nem biztos, hogy teljesen.
Kicsit olyan, mint a róka fogta csuka.
Addig értem, hogy egy listából kiválasztasz egy elemet, és az ugye az adott cellára Change esemény lesz, és erre egy másik lapon szeretnél egy vagy több listaforrást frissíteni makróval.
Ami ezután jön, az nem világos, hogy egy másik legördülő menü forrásást készíted elő ezzel vagy ugyanazét?

A kérdésedre:
– A munkalapok Activate eseménykezelőjét átrakhatod egy modulba (Sub bármi) és az Activate kezelőkben csak egy Call van erre a subra.
Ezáltal egy másik munkalap eseménykezelőjében is lehetne Call-al hívni.

Az kicsit nehezíti a dolgot, ha „majdnem” ugyanaz a makró fut le a többi munkalapon…

Imre

Ebben az esetben munkafüzet eseménykezelést kell használnod.
1. Projekt ablakban dupla klikk a „ThisWorbook” objektumon
2. Jobb oldalon felül bal oldalt General helyett Workbook
3. Jobb oldalon felül jobb oldalt lesznek a Workbook események.

Neked a SheetChange esemény kell. Paraméterben megkapod, hogy melyik lapon (Sh) melyik cella (Target) változott.

Ha az 1-es lapon tehát változik a lista értéke, akkor a futtathatsz bármit, ami a másik lapon csinál valamit. Ilyenkor célszerű a SELECT-eket kerülni, de az sem baj persze.

Imre

Eseménykezelő

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Munka1" And Target.Address = "$B$3" Then
        Call valami
    End If
End Sub

Modulban, hogy mit kel csinálni

Sub valami()
    Sheets("Munka2").Range("A2").Value = "hello"
End Sub

Hát egyedül nem könnyű.
Ajánlom figyelmedbe

https://videotanfolyam.pentaschool.hu/courses/excel-automatizalas-makrok-alapjai

Imre

• A hozzászólás módosításra került: 2 years, 8 months telt el-horvimi.

Bocsánat, hogy ezt írom, de anélkül nem lehet internetről sem tanulni, amíg az alapokkal valahogy tisztába nem kerülsz.

A kód, amit leírtam, a Munka1 és Munka2 munkalapokkal dolgozik, és kipróbáltam mielőtt elküldtem
Valószínűleg nálad nem ezek a lapok nevei, ekkor ad ilyen hibát.
Bele van írva fixen, idézőjelekbe foglalva a munkalap neve, és az address után az is látszik, hogy a Munka1-en a B3 cella értékét figyeli, és ha az változik, csak akkor hívja meg a másik munkalapot módosító valami rutint. Tehát oda kell tenni a legördülő listát.

imre