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

• #1813 matekmatika tag Djatus #1797

  Új Válasz 2006-12-01 12:23:07 #1813

  Ú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

  

  matekmatika

  tag

  válasz Djatus #1797 üzenetére

  Esetleg így?:
  
  Private Sub Break()
  i = 1
  Range(''B : B'').Select
  Selection.Find(What:=''aaa'', After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Rows.Select
  Do While Cells(i, 2) <> Empty
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
  Cells.FindNext(After:=ActiveCell).Activate
  i = i + 1
  Loop
  End Sub
  
  Bár lehet nem a legtökéletesebb de nálam működik.
  
  [Szerkesztve]
  
  [Szerkesztve]

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