Tüm sütunları göster

[abnur]

Merhaba,

Gizli olan tüm sütunları açacak tuşa atanmış makro rica ediyorum.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kod satırını kullanabilirsiniz.

Cells.EntireColumn.Hidden = False

 

[RBozkurt]

Merhaba,

Deneyiniz..

Sub rA_Göster()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    ws.Columns.Hidden = False
End Sub

Sub rA_Gizle()
    Dim ws As Worksheet
    Dim col As Range
    Dim colList As String
    Dim colInput As String
    Dim colArray() As String
    Dim i As Integer

    Set ws = ThisWorkbook.Sheets("Sayfa1")

    For Each col In ws.UsedRange.Columns
        colList = colList & col.Cells(1, 1).Column & ": " & Split(Cells(1, col.Column).Address, "$")(1) & " sütunu" & vbCrLf
    Next col

    colInput = InputBox("Gizlemek istediğiniz sütunların numaralarını virgül ile ayırarak girin:" & vbCrLf & vbCrLf & colList, "Sütun Seçimi")
    colArray = Split(colInput, ",")

    For i = LBound(colArray) To UBound(colArray)
        If IsNumeric(colArray(i)) Then
            ws.Columns(CInt(colArray(i))).Hidden = True
        End If
    Next i
End Sub

 

[abnur]

Yardımlarınız için çok teşekkür ederim.

 

[RBozkurt]

Yardımlarınız için çok teşekkür ederim.

Önemli değil, kolay gelsin.