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

• #51183 Delila_1 Topikgazda littleNorbi #51182

  Új Válasz 2023-07-14 07:43:45 #51183

  Ú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

  Topikgazda

  válasz littleNorbi #51182 üzenetére

  A két, *-gal jelölt sornál az 1-et írd át. A makró itt az első, A oszlopban keresi a megadott keresendő szót, ami fölé oldaltörést kell bevinni. Az 1 helyett azt az oszlopszámot add meg, ahol a keresendő szó szerepel.
  Az utolsó sor kikeresésénél most az A oszlop utolsó kitöltött cellájának a sorszáma szerepel.

  Sub Oldaltores()
    Dim sor As Long, usor As Long, szoveg As String
    
    usor = Cells(Rows.Count, 1).End(xlUp).Row
    szoveg = Application.InputBox("Melyik sorok fölött legyen oldaltörés?", Type:=2)
    For sor = usor To 1 Step -1
        If Cells(sor, 1) = szoveg Then  '*
            Cells(sor, 1).Select        '*
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        End If
    Next
End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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