Sub RemoveFilteredPageBreak() ' ' Makro zaznamenané 23.3.2010 , autor PaloPa pc-prog.sk Dim xRng As Range, c As Range, x x = Sheets("Sheet1").Range("D65536").End(xlUp).Offset(1, 0).Address Set xRng = Range("D1:" & Replace(x, "$", "", 1, -1, 1)) Application.ScreenUpdating = False ActiveSheet.ResetAllPageBreaks For Each c In xRng If (c.Value = "CELKOM S DPH") Then If (c.Offset(0, 1).Value <> 0) Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c.Offset(1, 0) End If End If Next c Application.ScreenUpdating = True End Sub
Užitočné (4) | 2009, IvetaH, Marína, Kabaka123 |
Užitočné (2) | Marína, Kabaka123 |