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

• #12232 Delila_1 veterán csferke #12231

  Új Válasz 2011-12-03 08:06:11 #12232

  Ú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

  

  Delila_1

  veterán

  válasz csferke #12231 üzenetére

  Az If Not Intersect(Target, [D:E]) Is Nothing Then sorban a [D:E]-t írd át [B:C]-re.
  Az eseménykezelő makrókban azt kell figyeltetni, ami billentyűzetről változik.
  Nincs szükség egy külön oszlopra az összegzéshez a másik lapra történő átvitelhez, a Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, 5))) sor elvégzi az összeadást. A sok képlet lassítja a futást.

  Nem próbáltam ki!

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