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

• #31317 Delila_1 veterán tgumis #31316

  Új Válasz 2016-04-20 08:19:09 #31317

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

  Azt nem írtad, hogy a G15:G423 adatai melyik lapon vannak. Feltételezem, hogy az adat lapon.
  Tehát a nap a kezdőlap B1 cellája, a másolandó adatok az adat lap G15:G423 tartománya, és az összesítő lap megfelelő oszlopába, a 2. sortól kezdve kell bemásolni. Az összesítő lapon a H oszlop a hónap első napja.

  Sub Osszesites()
  Dim oszlop As Integer
  
  oszlop = Sheets("kezdőlap").Range("B1") + 7
  Sheets("adat").Range("G15:G423").Copy Sheets("összesítő").Cells(2, oszlop)
  End Sub

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