Tema: Re: Rusiavimas pagal stulpelis Excelyje?
Autorius: Raimis
Data: 2009-09-10 14:22:07
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? :)