Iki farklı sütunu silme

[kemalist]

Gizle tuşuna bastığımda (b:h) sütunlarını gizliyor göster olarak bastığımda (b:h ) sütunlarını gösteriyor. Benim istediğim (b:h) sütunları gizlenirken (u:v)sütunlarınıda (arada ( ı:t ) sütunları kalacak şekilde) gizlemek.

Makroda nasıl bir değişiklik yapabiliriz.yardımlarınız için şimdiden teşekkür ederim. örnek dosya ektedir.

 

[Orion1]

Aslında bu işlemi elinizdeki mevcut kodlara bakarak yapabilmeniz lazımdı.

Private Sub ToggleButton1_Click() 'GÖSTER
If ToggleButton1 = True Then
    ToggleButton1.Caption = "GÖSTER"
    Range("B:H,U:V").EntireColumn.Hidden = True
    Else
    ToggleButton1.Caption = "GİZLE"
    Range("B:H,U:V").EntireColumn.Hidden = False
End If
End Sub

 

[rahmi06]

Private Sub ToggleButton1_Click() 'GÖSTER
If ToggleButton1 = True Then
    ToggleButton1.Caption = "GÖSTER"
    Range("B:H").EntireColumn.Hidden = True
    Range("u:v").EntireColumn.Hidden = True

    Else
    ToggleButton1.Caption = "GİZLE"
    Range("B:H").EntireColumn.Hidden = False
    Range("u:v").EntireColumn.Hidden = False

End If
End Sub

 

[kemalist]

Private Sub ToggleButton1_Click() 'GÖSTER
If ToggleButton1 = True Then
    ToggleButton1.Caption = "GÖSTER"
    Range("B:H").EntireColumn.Hidden = True
    Range("u:v").EntireColumn.Hidden = True

    Else
    ToggleButton1.Caption = "GİZLE"
    Range("B:H").EntireColumn.Hidden = False
    Range("u:v").EntireColumn.Hidden = False

End If
End Sub

sayın rahmi ilginiz için teşekkür ederim.

 

[Orion1]

Bize niye teşekkür yok anlamdım.Biz cevap yazmadıkmı?
Kodlar sorunsuzda çalışıyor.
Dosya ekte.

 

[Orion1]

Aslında bu işlemi elinizdeki mevcut kodlara bakarak yapabilmeniz lazımdı.

Anladım.
Sanırım yukarıdaki önermemden dolayı teşekkür etmediniz.
Ama doğru söylüyordum.Çok basit bir şeydi.Örnekte vardı.
Tamam bundan sonra bende sizin sorularınıza cevap vermem olur biter.

 

[kemalist]

anladım.
Sanırım yukarıdaki önermemden dolayı teşekkür etmediniz.
Ama doğru söylüyordum.çok basit bir şeydi.örnekte vardı.
Tamam bundan sonra bende sizin sorularınıza cevap vermem olur biter.

sayın evren sizede ayrıca teşekkür ederim. Yalnız fark etmediğniz bir şey rahmi06 ya teşekkür ettikten hemen sonra çıkış yaptım sizin cevabınızı daha yeni gördüğümden teşekkür etme fırsatım olmadı.özür dilerim.

 

[Orion1]

sayın evren sizede ayrıca teşekkür ederim. Yalnız fark etmediğniz bir şey rahmi06 ya teşekkür ettikten hemen sonra çıkış yaptım sizin cevabınızı daha yeni gördüğümden teşekkür etme fırsatım olmadı.özür dilerim.

Estafurullah.
Kolay gelsin.

 

[kemalist]

estafurullah.
Kolay gelsin.

bimukabele