Sütunları butonla gizleme

[ASLAN7410]

Merhaba, herkese hayırlı geceler.

Ekte gönderdiğim excel dosyasındaki sayfa üzerindeki oluşturduğum butona bastığımda Application.InputBox ekrana geliyor, buraya istediğim sütunları yazdığımda o sütunları gizlemesini istiyorum.

Forumda araştırdım ancak böyle bir şey bulamadım.

Yardımcı olur musunuz?
.

 

[Korhan Ayhan]

Deneyiniz.

Sub Sütunları_Gizle()
    Sor = Application.InputBox("Hangi sütunları gizlemek istiyorsanız, aşağıya yazın !" & vbCrLf & _
    " ", "ASLAN", "B,C,D, gibi yazınız.")
    If Sor = False Then
        MsgBox "İşlemi iptal ettiniz.", vbInformation, "ASLAN"
        Exit Sub
    Else
        Cells.EntireColumn.Hidden = False
        Sütun = Split(Sor, ",")
        On Error Resume Next
        For X = 0 To UBound(Sütun)
            Range(Sütun(X) & "1").EntireColumn.Hidden = True
        Next
        On Error GoTo 0
    End If
End Sub

 

[ASLAN7410]

Sayın Korhan Bey, çok teşekkür ederim, tam istediğim gibi çalışıyor, Allah razı olsun.

Hayırlı geceler, hayırlı çalışmalar diliyorum.