Audrius rašė:

> 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


Set rng = 
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"")

rng.SpecialCells(xlCellTypeVisible).Select

With Selection
     .Font.ColorIndex = 2
     .Interior.ColorIndex = 1
     .Interior.Pattern = xlSolid

     ActiveWindow.SelectedSheets.PrintOut Copies:=1

     .Font.ColorIndex = 0
     .Interior.ColorIndex = xlNone
End With