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

• #30761 Delila_1 veterán Delila_1 #30756

  Új Válasz 2016-02-25 15:15:24 #30761

  Ú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 Delila_1 #30756 üzenetére

  A soroknál addig futott az oldaltörések beszúrása, míg az A oszlop n-edik sorában volt adat. Kiegészítettem a függőleges oldaltörésekkel. Ennél azt figyeli, van-e valamilyen adat az oszlopban, és hogy rejtett-e az oszlop.

  Sub Oldaltores()
  Dim sor As Long, Sdarab As Integer, Sny As Long
  Dim oszlop As Integer, Odarab As Integer, Ony As Integer
  
  Sdarab = Application.InputBox("Hány soronként legyen oldaltörés?", "Szám bekérése", , , , , , 2)
  Odarab = Application.InputBox("Hány oszloponként legyen oldaltörés?", "Szám bekérése", , , , , , 2)
  sor = 1
  Do While Cells(sor, "A") <> ""
  If Rows(sor).Hidden = False Then Sny = Sny + 1
  If Sny Mod Sdarab = 0 Then
  Cells(sor + 1, 1).Select
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
  Sny = 0
  End If
  sor = sor + 1
  Loop
  
  oszlop = 1
  Do While Application.WorksheetFunction.CountA(Columns(oszlop)) <> 0
  If Columns(oszlop).Hidden = False Then Ony = Ony + 1
  If Ony Mod Odarab = 0 Then
  Cells(1, oszlop + 1).Select
  ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
  Ony = 0
  End If
  oszlop = oszlop + 1
  Loop
  End Sub

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