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

• #23660 mr.nagy tag

  Új Válasz 2014-10-12 09:11:19 #23660

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  Azt meg lehet oldani, hogy egy makró csak az autószűrővel leszűrt eredményen fusson végig?

  A makró oldaltöréseket csinál megadott kritériumok szerint. Mivel max. 1000 körül lehet a manuális oldaltörések száma, ha a teljes táblázaton fut végig leáll hibaüzenettel (kb. 50000 soros a táblázat), ezért kellene, hogy csak a szűrések után kapott eredményen fusson végig.

  Ez a makró ami az oldaltöréseket csinálja:
  Sub PrintFormat()
  Dim SBar As Boolean
  Dim RowCount As Long
  Dim Percent As Integer
  Dim i As Long, Col As Integer
  SBar = Application.DisplayStatusBar
  Application.DisplayStatusBar = True
  Application.ScreenUpdating = False
  With ActiveSheet
  Col = Range("D1").Value
  RowCount = .UsedRange.Rows.Count
  .ResetAllPageBreaks
  For i = 5 To RowCount
  If UCase(.Cells(i, Col).Value) <> UCase(.Cells(i - 1, Col).Value) Then _
  .Cells(i, Col).PageBreak = xlPageBreakManual
  If Int(i / RowCount * 100 + 0.5) = Percent + 1 Then
  Percent = Percent + 1
  Application.StatusBar = Percent & "% kész"
  End If
  Next
  End With
  Application.StatusBar = False
  Application.DisplayStatusBar = SBar
  Application.ScreenUpdating = True
  End Sub

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