sütün gizleme

[KAZUTE]

bir toplam satırında boş olan hücrelere ait sutunları nasıl gizleyebeilirim. Yani Sütünda yapılabilen filtre satırda yapabilirmiyiz

 

[snx111]

uğraşırsan yaparsın

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Küçük bir örnek dosya ekleyin, üzerinde çalışalım.

. . .

 

[KAZUTE]

satırda süzme yapmak

dosyayı ek te gönderiyorum.teşekkürler

. . .

Merhaba.
Küçük bir örnek dosya ekleyin, üzerinde çalışalım.

. . .

 

[Emir Hüseyin Çoban]

. . .

VBA ekranı parola korumalı!

. . .

 

[KAZUTE]

hayır dosyada koruma yok

 

[Emir Hüseyin Çoban]

. . .

Dosya korumasından bahsetmiyorum, VBA penceresindeki şifreden bahsediyorum.

Aşağıdaki kodlar işinizi görecektir.

Gizle

Sub kod_gizle()
Application.ScreenUpdating = False

For i = 16 To 184
If Cells(18, i) = "" Or Cells(18, i) = "0" Then
Columns(i).EntireColumn.Hidden = True
Else
End If
Next i

Application.ScreenUpdating = True
End Sub

Göster

Sub kod_göster()
Application.ScreenUpdating = False

For i = 16 To 184
Columns(i).EntireColumn.Hidden = False
Next i

Application.ScreenUpdating = True
End Sub

Benden bu kadar.

. . .

 

[KAZUTE]

Sütün gizleme 3

hüseyin by size zahmet ekte gönderdiğim dosyada iki hücre dolgu rengi yaptım orada bu formulü yaparmısın

. . .

Dosya korumasından bahsetmiyorum, VBA penceresindeki şifreden bahsediyorum.

Aşağıdaki kodlar işinizi görecektir.

Gizle

Sub kod_gizle()
Application.ScreenUpdating = False

For i = 16 To 184
If Cells(18, i) = "" Or Cells(18, i) = "0" Then
Columns(i).EntireColumn.Hidden = True
Else
End If
Next i

Application.ScreenUpdating = True
End Sub

Göster

Sub kod_göster()
Application.ScreenUpdating = False

For i = 16 To 184
Columns(i).EntireColumn.Hidden = False
Next i

Application.ScreenUpdating = True
End Sub

Benden bu kadar.

. . .

 

[Emir Hüseyin Çoban]

. . .

32. satıra göremi revize edeceğiz ?

. . .

 

[KAZUTE]

EVET bi zahmet 32.satır toplam satırı

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.
İsteğe göre sütunları gizle, yazdır. Daha sonra tekrar göster şeklinde de kod yazılabilir.

. . .

 

[KAZUTE]

çok teşekkür ediyorum vba tamam