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

• #17954 Delila_1 veterán Sprite75 #17953

  Új Válasz 2013-04-27 07:21:48 #17954

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

  Feltételezve, hogy minden lapon az első címsor, a lenti makró elvégzi a szortírozást.

  Sub Szortiroz()
  Dim lapnev$, sor As Long, usor As Long, usorLap As Long
  Application.ScreenUpdating = False
  Sheets("szerkeszt").Select
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = 2 To usor
  lapnev$ = Cells(sor, "A")
  usorLap = Sheets(lapnev$).Range("A" & Rows.Count).End(xlUp).Row + 1
  Range(Cells(sor, "A"), Cells(sor, "E")).Copy Sheets(lapnev$).Range("A" & usorLap)
  Next
  
  Application.ScreenUpdating = True
  End Sub

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