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

• #1797 Djatus csendes tag

  Új Válasz 2006-11-28 16:38:19 #1797

  Ú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

  

  Djatus

  csendes tag

  Sziasztok!
  Első marcomat készítem...elakadtam...
  Feladat: egy oszlop értékei között keresek egy értéket ''aaa'', majd egy sorral lejjebb ugorva beszúrnék egy töréspontot....ezt ismételni mindaddíg, még az utolsó sorra nem ér.
  Felvettem a lépéseket (2 ugyanolyan lépést):
  
  Selection.Find(What:=''aaa'', After:=ActiveCell, LookIn:=xlValues, LookAt _
  :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  False, SearchFormat:=False).Activate
  Rows(''11:11'').Select
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
  Range(''A11'').Select
  Cells.FindNext(After:=ActiveCell).Activate
  Rows(''19:19'').Select
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
  
  
  Hogyan tudnám kiolvasni az aktuális sor számát?
  Milyan ciklus kell hozzá?
  
  Előre is Köszönöm!

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