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

• #50968 Fferi50 Topikgazda föccer #50967

  Új Válasz 2023-05-10 10:01:25 #50968

  Ú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 #50967 üzenetére

  Szia!
  Akkor próbáld ki még a következőt:
  Dim a() 'persze ezt csak egyszer kell  és a cikluson kívül
a = Sheets("Minta_NY").Range(Sheets("Minta_NY").Cells(5, 1), Sheets("Minta_NY").Cells(Mintak_szama + 4, 34)).Value
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 = a
  Vagyis a tartományt egy tömbbe olvassuk be és a tömböt írjuk ki.
  Üdv.

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