Sütun Süz

[veyselk]

Arkadaşlar ekteki dosya için yardımlarınızı bekliyorum.Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları sayfanın kod bölümüne ekleyip dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
    
    Columns("A:M").Select
    Selection.EntireColumn.Hidden = False
j = 2
For i = 2 To [A1].End(2).Column
    If [A2] = Cells(1, i) Then Exit For
Next i
For j = 2 To i - 1
        Columns(j).EntireColumn.Hidden = True
Next j
[A2].Select
Son:
End Sub

 

[veyselk]

Sayın Necdet Yesertener İlginize teşekkür ederim. Cevabınız tam istediğim gibi.