Gizle göster

[polis-53]

Merhabalar Tek butonla gizle göster nasıl yapılır mesela gizlediğim zaman buton göster olacak gösterdiğim zaman gizle olacak.

 

[hamitcan]

togglebutton ile yapabilirsiniz. Forumda örnekler mevcut.

 

[İhsan Tank]

Merhabalar Tek butonla gizle göster nasıl yapılır mesela gizlediğim zaman buton göster olacak gösterdiğim zaman gizle olacak.

bu işinizi görür sanırım

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Sayfa3.Visible = False
ToggleButton1.Caption = "Gizli"
MsgBox "Sayfa Gizlendi", vbInformation
Else
Sayfa3.Visible = True
ToggleButton1.Caption = "Göster"
MsgBox "Sayfa Gösteriliyor", vbInformation
End If
End Sub

 

[Emir Hüseyin Çoban]

Merhaba

Satır, sütun, çalışma sayfası hangisini gizleyip göstermek istediğinizi belirtirseniz daha net çözümler üretilebilir.

 

[İhsan Tank]

togglebutton ile yapabilirsiniz. Forumda örnekler mevcut.

hocam sizin mesaj yazdığınızı farketmedim.

 

[polis-53]

merhaba hüseyin Çoban örneğin f hücresindeki en son tarihler kalacak diğer tarihleri gizleyecek.

 

[polis-53]

Sayın ihsan TANIK Merhaba satırlar ve sütünlarda nasıl uygulanır

 

[hamitcan]

hocam sizin mesaj yazdığınızı farketmedim.

İhsan bey, böyle bir kuralımız yok. Ne kadar çok cevap olursa o kadar farklı bilgiye sahip oluruz. Bu yüzden içinizi ferah tutun.

 

[İhsan Tank]

Sayın ihsan TANIK Merhaba satırlar ve sütünlarda nasıl uygulanır

merhaba
satır için

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Rows("[COLOR="Red"]8:8[/COLOR]").EntireRow.Hidden = True
ToggleButton1.Caption = "Gizli"
MsgBox "Satır Gizlendi", vbInformation
Else
Rows("[COLOR="red"]8:8[/COLOR]").EntireRow.Hidden = False
ToggleButton1.Caption = "Göster"
MsgBox "Satır Gösteriliyor", vbInformation
End If
End Sub

bunu
sütün için

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Columns("[COLOR="red"]D:D[/COLOR]").EntireColumn.Hidden = True
ToggleButton1.Caption = "Gizli"
MsgBox "Sütun Gizlendi", vbInformation
Else
Columns("[COLOR="red"]D:D[/COLOR]").EntireColumn.Hidden = False
ToggleButton1.Caption = "Göster"
MsgBox "Sütun Gösteriliyor", vbInformation
End If
End Sub

bu kodu kullanın. kırmızı yerleri kendinize göre uyarlayınız

 

[polis-53]

son tarileri gizlemek

iyi geceler ihsan tanık çok teşekkür ederim sağolun bir sorum daha olacak örneğin H sütununda tarihleri yazıyorum en son tarihleri gizlemek ve göstermek için vermiş olduğunuz 9. mesajda ki kodu cevirirseniz çok sevineceğim şimdiden teşekkür ederim.

 

[gedavet]

Ihsan bey 9. Mesajınızdkai koda bir örnek dosya ekleye bilirmisiniz uygulama yamamadım bu kod banada lazım oldu

 

[İhsan Tank]

Ihsan bey 9. Mesajınızdkai koda bir örnek dosya ekleye bilirmisiniz uygulama yamamadım bu kod banada lazım oldu

ekleri inceler misiniz
sekmelerdeki adlara göre

 

[gedavet]

ihsan bey ilginiz için teşekkür ederim
bütonu ekleyim kodu nasıl ökliyoruz öncelikle sonrada ilk önce sütun veya satır gizlenmeden önce bütonda gizle yazması lazım değilmi gizle dediklten sonrada göster demesi gerekir diye düşünüyorum bu şekild enasıl uyarlarız

 

[İhsan Tank]

ihsan bey ilginiz için teşekkür ederim
bütonu ekleyim kodu nasıl ökliyoruz öncelikle sonrada ilk önce sütun veya satır gizlenmeden önce bütonda gizle yazması lazım değilmi gizle dediklten sonrada göster demesi gerekir diye düşünüyorum bu şekild enasıl uyarlarız

merhaba
öncelikle togglebutton eklemek için.
2007'ye göre anlatım.
geliştirici - ekle - diğer denetimler - microsoft forms 2.0 toggle button'a tıklayın ve sayfanın üzerinde istediğiniz yere çizin.
2003'e göre anlatım.
görünüm - araç çubukları - denetim araç kutusu - diğer denetimler - microsoft forms 2.0 toggle button'a tıklayın ve sayfanın üzerinde istedğiniz yere çizin.

kodları ise
satır için

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Rows("8:8").EntireRow.Hidden = True
ToggleButton1.Caption = "Göster"
MsgBox "Satır Gizlendi", vbInformation
Else
Rows("8:8").EntireRow.Hidden = False
ToggleButton1.Caption = "Gizle"
MsgBox "Satır Gösteriliyor", vbInformation
End If
End Sub

bu
sütun için

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Columns("D:D").EntireColumn.Hidden = True
ToggleButton1.Caption = "Göster"
MsgBox "Sütun Gizlendi", vbInformation
Else
Columns("D:D").EntireColumn.Hidden = False
ToggleButton1.Caption = "Gizle"
MsgBox "Sütun Gösteriliyor", vbInformation
End If
End Sub

bu kod'u kullanınız

 

[ahmett46]

Hocam Bu kodu UserForm üzerinde kullanabilirmiyiz

 

[hamitcan]

Evet kullanabilirsiniz.

 

[hasanoktem]

Göster / gizle

Hocam Selamlar.

Kodun bulunduğu sayfaya herhangi bir satır koruma vb. veya başka bir buton koyduığumuzda debug hatası veriyor. Gizlenmesini istediğimiz satırlar dışına koyarakta deniyorum. örnek dosya ekte olduğu gibi

 

[hamitcan]

ActiveSheet.Unprotect "4562"
...Kodlarınız
ActiveSheet.protect "4562"

 

[hasanoktem]

Hamitcan hocam çok teşekkür ederim. tam istediğim gibi.