:)
Biski baisoka.
Nu mazdaug aisku. Meniu tokio punkto matyt ieskoti neverta.

"Raimis" <no@mail.com> wrote in message news:h8angv$q81$1@trimpas.omnitel.net...
> na pvz, kad ir taip (pasikoreguok stulpeliu ir eiluciu skaiciu pagal poreiki - pavyzdyje tikrinama 6000 eiluciu ir 200 stulpeliu):
> 
> Sub SleptiStulpelius()
> Dim st As Integer
> Dim eil As Integer
> Dim yra As Boolean
> 
> Application.ScreenUpdating = False
> 
> For st = 1 To 200     ' kiek stulpeliu tikrinti
>    yra = False
>    For eil = 1 To 6000    ' kiek eiluciu tikrinti
>        If Cells(eil, st).Value <> "" Then
>            yra = True
>            Exit For
>        End If
>        
>    Next eil
>    If yra = False Then
>        Columns(st).Select
>        Selection.EntireColumn.Hidden = True
>    End If
> Next st
>    
> Application.ScreenUpdating = True
>    
> End Sub
> 
> 
> 
> 
> "siGis" <s@s.s> wrote in message news:h8ag8f$eou$1@trimpas.omnitel.net...
>> 
>> 
>> "Raimis" <no@mail.com> wrote in message news:h8af70$d92$1@trimpas.omnitel.net...
>>> galima, su VBA
>> 
>> O kaip? :)