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

• #12501 Delila_1 veterán WLDRK #12499

  Új Válasz 2012-01-08 07:42:09 #12501

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

  A makró:

  Sub Lapokra()
  Dim lap%, sor%, usor%, sor_lap%
  
  Sheets("Tábla").Select
  
  'Lapok eddigi adatainak törlése
  For lap% = 2 To 13
  Sheets(lap%).Rows("2:1000").Delete
  Next
  
  'Sorok a lapokra
  usor% = Range("A1").End(xlDown).Row
  For sor% = 2 To usor%
  lap% = Month(Cells(sor%, 1)) + 1
  sor_lap% = Sheets(lap%).Range("A10000").End(xlUp).Row + 1
  Rows(sor%).Copy Sheets(lap%).Cells(sor_lap%, 1)
  Next
  End Sub

  Az első lap a Tábla nevű, amit a Sheets("Tábla").Select sorban átírhatsz a saját lapod nevére. Ezután következik a 12 hónapot tartalmazó lapod.

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