Gizle göster sütun genişliği [ÇÖZÜLDÜ]

[yalovam77]

Merhaba üstdalarım ekteki tabloda 5 haftalık bir izelge var gizle makrosu ile z:af sütunları gizleniyor 4 hafta oluyor ancak 5 hafta yada 4 hafta olunca sütun genişlikleri yüzünden sayfaya sığmakta sorun oluyor. isteğim çizelge göster makrosu ile 5 hafta olunca E:AK sütun genişliği 3,25 olmalı gizlemkrosu ile 4 fahta olunca E:Ak aralığında sürun genişliği 4,57 olmalı o zaman sayfaya sığıyor iki türlüde tablo yardımcı olurmusunuz ilgilenirseniz mutlu olurum. teşekkürler

 

[Metin Karaağaç]

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
    ToggleButton1.Caption = "GİZLE"
        Columns("E:AK").Select
    Range("E2").Activate
    Selection.ColumnWidth = 4.57
    Range("Z:AF").EntireColumn.Hidden = True
       Range("AR12").Select
    Else
    ToggleButton1.Caption = "GÖSTER"
        Columns("E:AK").Select
    Range("E2").Activate
    Selection.ColumnWidth = 3.25
    Range("Z:AF").EntireColumn.Hidden = False
       Range("AR12").Select
End If

End Sub

 

[yalovam77]

Gizle göster sütun genişliği

sayın karaağaç ilginize teşekkür ederim. ancak gizle yada gösterde sütun enişlikleri tablonun tamamında dediğim ölçülerde oluyor yani a:ao aralığını ölçülendiriyor ölçülendirme e:ak aralığında olması gerekiyor yani gizle denildiğinde sütun genişliği e:ak aralığında 4.57 göster denildiğinde sütun genişliği e:ak aralığında 3,25 olacak çekilde ayarlayabilirmiyiz teşekkürler

 

[Metin Karaağaç]

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
    ToggleButton1.Caption = "GİZLE"
    [color=red]Columns("E:AK").Select[/color]
    Range("E2").Activate
    Selection.ColumnWidth = 4.57
    Range("Z:AF").EntireColumn.Hidden = True
       Range("AR12").Select
    Else
    ToggleButton1.Caption = "GÖSTER"
    [color=red]Columns("E:AK").Select[/color]
    Range("E2").Activate
    Selection.ColumnWidth = 3.25
    Range("Z:AF").EntireColumn.Hidden = False
       Range("AR12").Select
End If

End Sub

İstediğiniz sınırlama mevcut zaten..

 

[Metin Karaağaç]

Evet ben de şimdi farkettim. Ama kodlarda herhangi bir sorun yok. Başka bir durum var sanırım.

 

[yalovam77]

Gizle göster sütun genişliği

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "5 HAFTA"
Range("E:AK").ColumnWidth = 4.57
Range("Z:AF").EntireColumn.Hidden = True

Else
ToggleButton1.Caption = "4 HAFTA"
Range("E:AK").ColumnWidth = 3.25
Range("Z:AF").EntireColumn.Hidden = False

End If

End Sub


kodu yukarıdaki şekilde yapınca çalıştı. teşekkürler

 

[yalovam77]

gizle göster sütun genişliği

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "5 HAFTA"
Range("E:AK").ColumnWidth = 4.57
Range("Z:AF").EntireColumn.Hidden = True

Else
ToggleButton1.Caption = "4 HAFTA"
Range("E:AK").ColumnWidth = 3.25
Range("Z:AF").EntireColumn.Hidden = False

End If

End Sub



merheba üsdatlarım konu çözüldü dedim ama bir şeye daha ihtiyacım oldu. yukarıdaki kodda "4 HAFTA" nın altındaki koda aşağıdaki kodları nasıl eklerim. yani tabloda z:af aralığınındaki sütunları gizlerken aşağıda belirtilen hücreleride temizleyecek. teşekkür ederim ilginize şimdide.

Range("z7:Af34").ClearContents
Range("z53:Af80").ClearContents
Range("z98:Af125").ClearContents
Range("z143:A170").ClearContents
Range("z188:Af215").ClearContents

 

[yalovam77]

gizle göster sütun genişliği

Merhaba

yukarıda sorduğum soruya çözüm ürettim makroyu aşağıya yazdım üsdatlarım teşekkür ederim.

Private Sub ToggleButton1_Click()
On Error Resume Next
Range("z6:Af34").ClearContents
Range("z51:Af51").ClearContents
Range("z53:Af80").ClearContents
Range("z96:Af96").ClearContents
Range("z98:Af125").ClearContents
Range("z141:Af141").ClearContents
Range("z143:Af170").ClearContents
Range("z186:Af186").ClearContents
Range("z188:Af215").ClearContents
If ToggleButton1 = True Then
ToggleButton1.Caption = "4 HAFTA"
Range("E:AK").ColumnWidth = 3.4
Range("Z:AF").EntireColumn.Hidden = False

Else
ToggleButton1.Caption = "5 HAFTA"
Range("E:AK").ColumnWidth = 4.57
Range("Z:AF").EntireColumn.Hidden = True

End If

End Sub