Makro sorunu

[akmes]

Selamlar;

Ekteki dosyamdan da anlaşılacağı üzere mesai süz makrom çalışmıyor.Kullanılan kod aşağıdaki gibidir.Konu ile ilgili yardımınızı rica ediyorum.
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

 

[zafer]

Merhaba

For U = 5 To Cells(4, 66).End(1).Column

bu satırda Cells(4, 66).End(1).Column değeri 4

onun için döngü çalışmaz

yapmak istediğiniz yazabilirmisiniz.

Eğer 4. sütundan 66.sütuna kadar olan yerlerde "mes" yazan sütunları gizlemek istiyorsanız

For U = 5 To 66

veya

Cells(4, 256).End(1).Column bunu kullanın

 

[akmes]

Merhaba

For U = 5 To Cells(4, 66).End(1).Column

bu satırda Cells(4, 66).End(1).Column değeri 4

onun için döngü çalışmaz

yapmak istediğiniz yazabilirmisiniz.

Eğer 4. sütundan 66.sütuna kadar olan yerlerde "mes" yazan sütunları gizlemek istiyorsanız

For U = 5 To 66

Merhaba;

9. satırda bulununan D sütunundan sonra sadece "mes" yazan sütunların görünmesini istiyorum.

 

[zafer]

Merhaba


For U = 5 To 66

veya

Cells(4, 256).End(1).Column bunu kullanın

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

 

[akmes]

Merhaba


For U = 5 To 66

veya

Cells(4, 256).End(1).Column bunu kullanın

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

Çok teşekkür ederim.Elinize, emeğinize sağlık.