Sveiki,
Turiu tokį koduką, tačiau....................
kai kurios eilutės laikas nuo laiko būna paslėptos, todėl kodas meta klaidą.
Kaip padaryti jog paslėptas eilutes kodas ignoruotu?
DĖKUI
________________________________________________________________
  Range("O5,O48,O91,O134,O177,O220,O263,O306,O349,O392,O435,O478,O521,O564,O607,O650,O693,O736,O779,O822,O865,O908,O951,O994,O1037,O1080,O1123,O1166").Select
    With Selection.Interior
        .ColorIndex = 1
        .Pattern = xlSolid
    End With
    Selection.Font.ColorIndex = 2
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Range("O5,O48,O91,O134,O177,O220,O263,O306,O349,O392,O435,O478,O521,O564,O607,O650,O693,O736,O779,O822,O865,O908,O951,O994,O1037,O1080,O1123,O1166").Select
    Selection.Interior.ColorIndex = xlNone
    Selection.Font.ColorIndex = 0