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

• #41520 Fferi50 Topikgazda spe88 #41519

  Új Válasz 2019-08-06 13:13:00 #41520

  Ú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

  

  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