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

• #50965 Fferi50 Topikgazda föccer #50963

  Új Válasz 2023-05-09 23:02:08 #50965

  Ú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 föccer #50963 üzenetére

  Szia!
  A két for ciklus helyett kipróbálhatnád ezt:
  Sheets("MINTA_OSSZES").Range(Sheets("MINTA_OSSZES").Cells(Sheets("Mintavetelek_segedszamitas").Range("G2").Value + 1, 1), Sheets("MINTA_OSSZES").Cells(Mintak_szama + 4, 34)).Value = Sheets("Minta_NY").Range(Sheets("Minta_NY").Cells(5, 1), Sheets("Minta_NY").Cells(Mintak_szama + 4, 34)).Value
  Persze a tartomány címeket azért ellenőrizd le légy szíves.
  Üdv.

• #50964 Fferi50 Topikgazda föccer #50963

  Új Válasz 2023-05-09 19:54:44 #50964

  Ú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 föccer #50963 üzenetére

  Szia!
  Nem írtad, hogy az Application.ScreenUpdating milyen állapotban van. Ez szabályozza ugyanis a cellák módosításának kiírását a képernyőre. Figyelembe véve a számítások mennyiségét, a képernyő frissítés biztosan elég sok időt vesz igénybe.
  Továbbá nem egészen értem miért kell - ráadásul kettő - ciklus az adatok átmásolásához, hiszen ismered a tartomány címét. (Sorok száma=minták száma, oszlopok száma 34). Tehát egyben is átmásolható szerintem.
  Üdv.

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