Kolonları otomatik gizleme?

[breathe_]

Merhaba arkadaşlar;

Ben kolon ismi "fiili" yazan kolonları otomatik olarak saklayacak bir makroya ihtiyacım var. Yardımcı olacaklara şimdiden teşekkürler..

 

[Ömer]

Merhaba,

Kolon isimleri hangi satırda ?

.

 

[halit3]

Merhaba arkadaşlar;

Ben kolon ismi "fiili" yazan kolonları otomatik olarak saklayacak bir makroya ihtiyacım var. Yardımcı olacaklara şimdiden teşekkürler..

asıl dosyanızdan rasgele bilgilerle örnek dosya eklermisiniz. hangi hücre ve kolon nereye kadar.? olacak

 

[breathe_]

Basit olabileceğini düşündüğüm için yollama gereği duymamıştım ama sonradan düşündüğümde bi örnek yollamam doğru olanı. Öncelikle kusura bakmayın

Yolladığım dosya dinamik bir dosya bir software kullanıyorum. Bu software excel arayüzünü kullanarak bütçe raporları oluşturuyor. Dinamik olduğundan dolayı "fiili" yazanları otomatik olarak saklamasını istediğim bir makroya ihtiyacım var.

teşekkürler

 

[halit3]

bunları denermisiniz.

Sub gizle()
For i = 11 To 47
Columns(i).EntireColumn.Hidden = False
If Cells(44, i).Value = "FİİLİ" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
End Sub
Sub göster()
For i = 11 To 47
Columns(i).EntireColumn.Hidden = False
Next
End Sub

 

[Ömer]

Alternatif olsun..

Sub SütunGizle()
Dim c As Range, ilkadres As Variant
Application.ScreenUpdating = False
Cells.EntireColumn.Hidden = False
With Rows([COLOR=red]44[/COLOR])[COLOR=green] 'verinin arandığı satır numarası[/COLOR]
    Set c = .Find("fiili", lookat:=xlWhole)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            c.EntireColumn.Hidden = True
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
End With
Application.ScreenUpdating = True
End Sub

.

 

[breathe_]

biraz değişiklik yaparak çalıştırdım.. Çok teşekkürler...

 

[breathe_]

Alternatif için de teşekkürler anca bir sorum daha olacak:

Yollamış olduğum dosyada "fiili" yazan satırın değişme olabilitesi varmış. Bu nedenle "C47" hücresinde nerede yazacağı hedef olarak belirtiliyor. Bunu makro içine nasıl entegre edebiliriz?

 

[breathe_]

konu günceldir yardımcı olacaklara şimdiden teşekkürler...

 

[halit3]

konu günceldir yardımcı olacaklara şimdiden teşekkürler...

sorunuza iki kişi cevap vermiş eğer verilen cevaplarda değişiklik istiyorsanız alıntı yaparak sorunuzu sorun

 

[Ömer]

Alternatif için de teşekkürler anca bir sorum daha olacak:

Yollamış olduğum dosyada "fiili" yazan satırın değişme olabilitesi varmış. Bu nedenle "C47" hücresinde nerede yazacağı hedef olarak belirtiliyor. Bunu makro içine nasıl entegre edebiliriz?

With Rows(44) 'verinin arandığı satır numarası

satırını aşağıdaki gibi değiştiriniz..

With Range("" & [C47] & "") 'verinin arandığı satır numarası

Yalnız C47 hücresinde;

Report!$K$43:$AU$43 yazıyor. Halbuki,

Report!$K$44:$AU$44 olması gerekiyordu.

.

 

[emraha]

sizden aldığım bilgileri harmanlayarak kendime göre kodu revize ettim. Ekteki kod 7.satırdaki "P" harfi yazan sütunları gizliyor ve gösteriyor. screenupdating özelliğinden dolayı kod çok daha hızlı çalışıyor. 16000 sütun için işlemi gerçekleştirmesi 5 saniye civarı sürüyor.

Kod:
Sub pasifgizle()
Application.ScreenUpdating = False
For i = 6 To 300
Columns(i).EntireColumn.Hidden = False
If Cells(7, i).Value = "P" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub


Kod:
Sub pasifgöster()
Columns("F:XFD").EntireColumn.Hidden = False
End Sub