Keresés

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

  • Fferi50

    Topikgazda

    válasz spe88 #41519 üzenetére

    Szia!
    "Esély nincs arra, hogy ezt-azt ne kelljen futtatgatni manuálisan, amikor változik a cella?"
    Erre való az eseménykezelés:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("K1")) Is Nothing then
    Application.EnableEvents = False
    Range("A1").Formula="='c:\abc\def\[termeles" & Range("K1").Value & ".xls]" & Range("K1").Value  & "'!A10"
    Application.EnableEvents = True
    End If
    End Sub
    Ezt annak a munkalapnak a kódlapjára kell bemásolni, ahol változtatni szeretnéd az adatokat.
    Természetesen a többi cellára is meg kell ezt csinálni.
    Ha felteszel valahova egy mintát, akkor megnézem, hogyan lehetne egyszerűbben, mert ha ugyanazok a fájlok változnak, akkor egy Csere - képletben makróval is meg lehet tenni a változtatást, ha előtte már megvannak a képletek normálisan. Csak azt kell tudni, hogy mit - mire kell változtatni.

    Üdv.

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

Hirdetés