Butonla sütunları göster makrosu

[ASLAN7410]

Merhaba, herkese hayırlı günler diliyorum.

Ekte gönderdiğim excel dosyamda sütunları göster makrosu mevcut.

Benim yapmak istediğim bu butona bastığımda, hangi sütun veya sütunlar gizli ise örneğin Gizli olan B, C, D sütunları açıldı mesajının gelmesini istiyorum, butona tekrar bastığımda sütunlar açıksa Sütunlar zaten açık mesajını vermesini istiyorum.

Forumda ve internette araştırdım, ancak böyle bir çalışma bulamadım.

Yardımcı olur musunuz?
.

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Sub GizliSütunlarıGöster()

    With [B:D].EntireColumn
        If .Hidden = False Then
            MsgBox "B:D Sütunları Zaten Açık"
            Exit Sub
        End If
        .Hidden = False
        MsgBox "Gizli Olan B:D Sütunları Açıldı.", vbInformation, "ASLAN"
    End With
    
End Sub

.

 

[ASLAN7410]

Sayın Ömer Bey ilginiz için çok teşekkür ediyorum, kod gayet güzel çalışıyor, sadece B ve D sütunu için değil, kod sayfanın üzerindeki tüm sütunları kontrol etmesi gerekiyor.

Bu işlem kodu ağırlaştırırsa, aralığı daraltıp A ile AZ sütunları arası için olabilir.

Bu şekilde yapabilir misiniz?

 

[askm]

Sub GizliSütunlarıGöster()
For i = 1 To 52
    If Columns(i).Hidden = True Then
        Say = Say + 1
    End If
Next i
If Say > 0 Then
    For i = 1 To 52
        Columns(i).Hidden = False
    Next i
    MsgBox "Gizli Olan B:D Sütunları Açıldı.", vbInformation, "ASLAN"
Else
    MsgBox "B:D Sütunları Zaten Açık"
End If
End Sub

 

[ASLAN7410]

Sayın askm, ilginiz için çok teşekkür ederim.

Yazmış olduğunuz kod gayet güzel çalışıyor, ellerinize sağlık.

Ancak, hangi sütunları açtığını mesajda gösterebilir mi?

 

[askm]

Sub GizliSütunlarıGöster()
For i = 1 To 52
    If Columns(i).Hidden = True Then
        Say = Say + 1
    End If
Next i
If Say > 0 Then
    For i = 1 To 52
        If Columns(i).Hidden = True Then
            Columns(i).Hidden = False
            Değer = Değer & Left(Columns(i).Address(0, 0), 1) & " - "
        End If
    Next i
    MsgBox "Gizli Olan " & Değer & " Sütunları Açıldı.", vbInformation, "ASLAN"
Else
    MsgBox "B:D Sütunları Zaten Açık"
End If
End Sub

 

[ASLAN7410]

Sayın askm, ellerinize sağılık tam istediğim gibi çalışıyor, Allah razı olsun.

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

 

[askm]

Allah hepimizden razı olsun. Hayırlı geceler.