Sadece istenilen sütunların gözükmesi

[akmes]

Selamlar;

Ekteki excel dosyasında D sütunun dan sonra istenilen sütunların gözükmesi için bir makro çalışmam var ama istediğimi yapamadım.F,G,H,,J,L,N,P,R,T,V,X,Z,
AB,AD,AF,... yani mesai sütunlarının gözükmesini istiyorum.Yardımınız için şimdiden çok teşekkür ederim.

Benim makrom aşağıdaki gibidir.

Sub Fazla_Mesai()
Dim X As Byte
Application.ScreenUpdating = False
Cells.EntireColumn.Hidden = False
For X = 5 To Cells(3, 66).End(1).Column + 2 Step 4
Range(Cells(1, X), Cells(1, X + 2)).EntireColumn.Hidden = True
Next
Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[usubaykan]

Merhaba;

Aşağıdaki kodu dener misiniz?

Sub mesai_göster()
Dim U As Long
For U = 5 To Cells(4, 66).End(1).Column
If Cells(9, U) = "mes" Then
    Columns(U).Hidden = False
End If
Next
End Sub

 

[akmes]

Sn. usubaykan

Denedim.Sayfada hiçbir değişiklik olmadı.

 

[usubaykan]

Merhaba;

Aşağıdaki kodu dener misiniz?

Sub mesai_göster()
Dim U As Long
For U = 5 To Cells(4, 66).End(1).Column
If Cells(9, U) <> "mes" Then
    Columns(U).Hidden = True
End If
Next
End Sub

 

[akmes]

Sn. usubaykan çok teşekkür ederim.Tam istediğim gibi oldu.
Emeğinize sağlık.

 

[usubaykan]

Rica ederim ;-)