Sütun Göster/Gizle

[mmk]

Merhabalar,

Tek buton ile tıklamada aktif sayfadaki "UA" stunu açıp, "L" stununu gizlemek. ikinci tıklamada "L" stununu açıp, "UA" stununu gizleyebilecek bir koda ihtiyacım var bunu tek buton ile yapabilirsem harika olur. Daha önce açılmış konulara baktım fakat entegre edemedim yardımlarınız için şimdiden teşekkürler

 

[dEdE]

Merhaba,
Buraya baktınız mı?

 

[mmk]

Merhaba,
Buraya baktınız mı?

Option Explicit Sub Columns_Hidden_Unhidden() Columns("E:G").Hidden = Not Columns("E:G").Hidden ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = _ IIf(Not Columns("E:G").Hidden = False, "GÖSTER", "GİZLE") End Sub

Bu kod ile tek stunu açıp kapatabiliyor yalnız bir stunu açarken diğer stunu aynı anda kapatması lazım bunu isteğimi entegre edemedim koda

 

[dEdE]

Merhaba,
Sayfaya bir ToggleButton (Değiştirme Düğmesi) ekleyip, butonun kod bölümüne aşağıdaki kodu yapıştırarak dener misiniz?

Private Sub ToggleButton1_Click()
 If ToggleButton1.Value = True Then
        Columns("L").EntireColumn.Hidden = True
        Columns("UA").EntireColumn.Hidden = False
      Else
        Columns("L").EntireColumn.Hidden = False
        Columns("UA").EntireColumn.Hidden = True
    End If
End Sub

 

[mmk]

Merhaba,
Sayfaya bir ToggleButton (Değiştirme Düğmesi) ekleyip, butonun kod bölümüne aşağıdaki kodu yapıştırarak dener misiniz?

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
        Columns("L").EntireColumn.Hidden = True
        Columns("UA").EntireColumn.Hidden = False
      Else
        Columns("L").EntireColumn.Hidden = False
        Columns("UA").EntireColumn.Hidden = True
    End If
End Sub

hocam bunu forumdaki eski konulara bakarken denemiştim
If ToggleButton1.Value = True Then satırda hata veriyor.

yukarda alıntı olarak verdiğim kod suanda çalışıyor yalnız tek stunu acıp kapatabiliyorum. birini stunu açarken diğerini aynı anda kapatması için gereken kodu malesef yazamadım

 

[dEdE]

Merhaba,

hocam bunu forumdaki eski konulara bakarken denemiştim

Denediğiniz kodu revize ederek 4 numaralı mesaja ekledim. Bu kod istediğinizi yapıyor.

If ToggleButton1.Value = True Then satırda hata ver

Hangi hatayı veriyor?

 

[mmk]

Merhaba,

Denediğiniz kodu revize ederek 4 numaralı mesaja ekledim. Bu kod istediğinizi yapıyor.

Hangi hatayı veriyor?

Object required

 

[dEdE]

Sayfaya eklediğiniz butonun ToggleButton1 olduğundan emin misiniz?

 

[mmk]

Sayfaya eklediğiniz butonun ToggleButton1 olduğundan emin misiniz?

Yanlış buton eklemişim dediğiniz gibi ondan çalışmamış çok teşekkürler yardım için

 

[Korhan Ayhan]

Tek buton için alternatif...

Option Explicit

Sub Columns_Hidden_Unhidden()
    If Columns("L").Hidden = True Then
        Columns("L").Hidden = False
        Columns("UA").Hidden = True
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "UA SÜTUNUNU GÖSTER"
    Else
        Columns("L").Hidden = True
        Columns("UA").Hidden = False
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "L SÜTUNUNU GÖSTER"
    End If
End Sub

 

[mmk]

Tek buton için alternatif...

Option Explicit

Sub Columns_Hidden_Unhidden()
    If Columns("L").Hidden = True Then
        Columns("L").Hidden = False
        Columns("UA").Hidden = True
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "UA SÜTUNUNU GÖSTER"
    Else
        Columns("L").Hidden = True
        Columns("UA").Hidden = False
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "L SÜTUNUNU GÖSTER"
    End If
End Sub

hocam çok teşekkürler toggle butondan ziyade bunu kullanmam daha iyi olacak. Yardımcı olan herkese teşekkürler

 

[mmk]

Tek buton için alternatif...

Option Explicit

Sub Columns_Hidden_Unhidden()
    If Columns("L").Hidden = True Then
        Columns("L").Hidden = False
        Columns("UA").Hidden = True
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "UA SÜTUNUNU GÖSTER"
    Else
        Columns("L").Hidden = True
        Columns("UA").Hidden = False
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "L SÜTUNUNU GÖSTER"
    End If
End Sub

hocam tam istediğim gibi çalışıyor fakat sayfa korumayı aktifleştirdiğimde buton hata veriyor sayfa stünları biçimlendirmeyi serbest bırakmam gerekiyor kodun çalışması için. stun biçimlendirme kapalıyken acaba macroyu çalıştıracağım bir kod varmı?

 

[Korhan Ayhan]

Deneyiniz.

Koruma şifresi olarak 12345 kullandım. Siz kendinize göre revize edersiniz.

Option Explicit

Sub Columns_Hidden_Unhidden()
    ActiveSheet.Unprotect 12345
    If Columns("L").Hidden = True Then
        Columns("L").Hidden = False
        Columns("UA").Hidden = True
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "UA SÜTUNUNU GÖSTER"
    Else
        Columns("L").Hidden = True
        Columns("UA").Hidden = False
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "L SÜTUNUNU GÖSTER"
    End If
    ActiveSheet.Protect 12345
End Sub

 

[mmk]

Deneyiniz.

Koruma şifresi olarak 12345 kullandım. Siz kendinize göre revize edersiniz.

Option Explicit

Sub Columns_Hidden_Unhidden()
    ActiveSheet.Unprotect 12345
    If Columns("L").Hidden = True Then
        Columns("L").Hidden = False
        Columns("UA").Hidden = True
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "UA SÜTUNUNU GÖSTER"
    Else
        Columns("L").Hidden = True
        Columns("UA").Hidden = False
        ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "L SÜTUNUNU GÖSTER"
    End If
    ActiveSheet.Protect 12345
End Sub

Çok teşekkürler hocam emeğinze sağlık. şifre için şifremde nokta olduğu hata veriyordu "123.45" olarak girdim hata çözüldü. Hatayı alan arkadaşlar için paylaşmak istedim.