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

• föccer nagyúr

  #51007 2023-05-19 10:14:10

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  Sziasztok!

  Korábban itt nyújtott segítséget szeretném adaptálni.

  Egyik fájlból a másikba akarok másolni.

  A cél fájl futtatja a makrót, és a "Gyujtott_mintavetelek" munkalap-ra kell kirakni, soronként. Az aktuális sort a Gyujtott_minta_darab változó tartja számon. Nyilván ez léptetve van. 0-tól indul és a 2- sortül kell kiírtnom.

  A forrás fájl neve az Akt_file változó tárolja (egymás után több fájlt nyitok meg) A forrás fájl "Üzem" nevű munkalapjáról 1-20 oszlopok kellenek. Az, hogy a forrás munkalap melyik sora kell éppen, az pedig az Akt_sor változó hozza.

  Sheets("Gyujtott_mintavetelek").Range(Sheets("Gyujtott_mintavetelek").Cells(Gyujtott_minta_darab + 2, 1), Sheets("Gyujtott_mintavetelek").Cells(Gyujtott_minta_darab + 2, 20)).Value = Workbooks(Akt_file).Sheets("Üzem").Range(Workbooks(Akt_file).Sheets("Üzem").Cells(Akt_sor, 1), Workbooks(Akt_file).Sheets("Üzem").Cells(Akt_sor, 20)).Value

  Nem találom benne a hibát ellenben nem akar lefutni, out of range hibát dob. Az Akt_sor biztosan felveszi a megfelelő értéket, mielőtt ez a sor furna.

  MEg tudnátok mondani hogy hol a hiba?

  Köszi

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