Soru Satır göster gizle

[Akif59]

Merhaba sütunları gösterip gizleyen bu kodu

C sütununda 18 satır 117 satır arasında satır gizleyip +3 göstercek şekilde çevirebilirmiyiz ben çeviremedim

If Target.Row = 12 And Target.Column >= 33 And Target.Column <= 110 Then
   Application.ScreenUpdating = False
    For sut = 33 To 110
        If Cells(12, sut) = "" Then Columns(sut + 3).EntireColumn.Hidden = True
        If Cells(12, sut) <> "" Then Columns(sut + 3).EntireColumn.Hidden = False
   Next
    Application.ScreenUpdating = True
End If