• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ToggleButton

N

nurluali

Katılım
19 Ocak 2012
Mesajlar
175
Excel Vers. ve Dili
Ağırlıklı olara 2003,2007,2010
Öncelikle tüm formdaşlara iyi akşamlar diliyorum. Aşağıdaki gibi bir kod mevcut Private Sub ToggleButton1_Click() ile birinci butonda kot çalışıyor fakat bir başka Private Sub ToggleButton2_Click() de kod çakışıyor. Sorum şu : Bir UserForm Üzerinde birden fazla ToggleButton buton kullanılmıyor mu? veya Aşağıdaki ikinci kodu nasıl düzenleyebiliriz? Sub kapat2() şeklinde denedim çakışmıyor fakat 2. kod çalışmıyor.


If ToggleButton1 Then
kapat
Else
aç
End If
End Sub

Sub kapat()
Worksheets("Telefon").Visible = xlSheetHidden
ToggleButton1.Caption = "Veli Telfonları Göster"
End Sub
Sub aç()
Worksheets("Telefon").Visible = xlSheetVisible
ToggleButton1.Caption = "Veli Telefonları Gizle"
Sheets("Telefon").Select
Range("d3").Select
End Sub

Private Sub ToggleButton2_Click()
If ToggleButton1 Then
kapat
Else
aç
End If
End Sub
Sub kapat()
Worksheets("Dal Seçim Formu").Visible = xlSheetHidden
ToggleButton1.Caption = "Dal Seçim Formu Göster"
End Sub
Sub aç()
Worksheets("Telefon").Visible = xlSheetVisible
ToggleButton1.Caption = "Dal Seçim Formu Gizle"
Sheets("Dal Seçim Formu").Select
Range("O2").Select
End Sub
 
İlk başta göze çarpan,ayni modülde 2 tane ayni isimli prosedür olamaz.Aç ve kapa diye 2 şer tane prosedür var.
Önce bunu düzenlemeniz lazım.:cool:
 
Öncelikle Orion1 bey teşekkürlerimi sunuyorum. Kodu bu formdan bulmuştum ve biraz ilaveler yapabiliyorum o kadar.
Zaten çakışma da orada 2 ekleyerek denedim çakışma yok fakat 2. kod çalışmıyor. Şöyle mi anlamalıyım. bir userform üzerinde birden fazla ToggleButton kullanmıyoruz.
 
Kullanabilirsiniz.Ama neyin olmayacağını önceki mesajımda belirttim.
 
Kısmen Çözüldü fakat, tam olmadı gibi. Bir takım deneme ile üç kod çalıştı fakat birbirinden bağımsız değil gibi sanki üçüncü kod ilk ikisini çalıştırdıktan sonra çalışıyor.
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
kapalı
Else
açık
End If
End Sub

Sub kapalı()
Worksheets("Telefon").Visible = xlSheetHidden
ToggleButton1.Caption = "Veli Telfonları Göster"
End Sub
Sub açık()
Worksheets("Telefon").Visible = xlSheetVisible
ToggleButton1.Caption = "Veli Telefonları Gizle"
Sheets("Telefon").Select
Range("d3").Select
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
kapa
Else
aç
End If
End Sub

Sub kapa()
Worksheets("Dal Seçim Formu").Visible = xlSheetHidden
ToggleButton2.Caption = "Dal Seçim Formu Göster"
End Sub
Sub aç()
Worksheets("Dal Seçim Formu").Visible = xlSheetVisible
ToggleButton2.Caption = "Dal Seçim Formu Gizle"
Sheets("Dal Seçim Formu").Select
Range("d3").Select
End Sub

Private Sub ToggleButton3_Click()
If ToggleButton1.Value = True Then
kapat
Else
ada
End If
End Sub

Sub kapat()
Worksheets("Seç Ders Çizelgesi").Visible = xlSheetHidden
ToggleButton3.Caption = "Seçmeli Ders Çizelgesi Göster"
End Sub
Sub ada()
Worksheets("Seç Ders Çizelgesi").Visible = xlSheetVisible
ToggleButton3.Caption = "Seçmeli Ders Çizelgesi Gizle"
Sheets("Seç Ders Çizelgesi").Select
Range("d3").Select
End Sub
 
İlgili yeri aşağıdaki ile değiştiriniz.:cool:
Rich (BB code): 
Private Sub ToggleButton3_Click()
If ToggleButton3.Value = True Then
 
Sayın Orion1 Bey Yukardaki kodlarda aşağıdaki şekliyle deneyerek kısmen çözmüştüm fakat ikinci tıklamada hepsi gizle veya göster şekline gelince çalışıyor. Yani Her ToggleButton bağımsız çalışmıyor. sonun burada ilginize tekrar teşekkür ediyorum.
Private Sub ToggleButton3_Click()
If ToggleButton3.Value = True Then
 
Kullandığım son şekli aşağıdaki gibidir.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
kapalı
Else
açık
End If
End Sub

Sub kapalı()
Worksheets("Telefon").Visible = xlSheetHidden
'ToggleButton2.ForeColor = &HFF&
ToggleButton1.Caption = "Veli Telfonları Göster"
End Sub
Sub açık()
Worksheets("Telefon").Visible = xlSheetVisible
'ToggleButton1.ForeColor = &H80000012
ToggleButton1.Caption = "Veli Telefonları Gizle"
Sheets("Telefon").Select
Range("d3").Select
ToggleButton3.Value = True
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
kapa
Else
aç
End If
End Sub

Sub kapa()
Worksheets("Dal Seçim Formu").Visible = xlSheetHidden
ToggleButton2.Caption = "Dal Seçim Formu Göster"
End Sub
Sub aç()
Worksheets("Dal Seçim Formu").Visible = xlSheetVisible
ToggleButton2.Caption = "Dal Seçim Formu Gizle"
Sheets("Dal Seçim Formu").Select
Range("d3").Select
ToggleButton1.Value = False
End Sub

Private Sub ToggleButton3_Click()
If ToggleButton1.Value = True Then
kapat
Else
ada
End If
End Sub

Sub kapat()
Worksheets("Seç Ders Çizelgesi").Visible = xlSheetHidden
ToggleButton3.Caption = "Seç. Ders Formu Göster"
End Sub
Sub ada()
Worksheets("Seç Ders Çizelgesi").Visible = xlSheetVisible
ToggleButton3.Caption = "Seç. Ders Formu Gizle"
Sheets("Seç Ders Çizelgesi").Select
Range("d3").Select
ToggleButton2.Value = False
End Sub

Private Sub ToggleButton4_Click()
If ToggleButton4.Value = True Then
Elif
Else
adam
End If
End Sub

Sub Elif()
Worksheets("Dilekçe Menü").Visible = xlSheetHidden
ToggleButton3.Caption = "Dilekçe Menü Göster"
End Sub
Sub adam()
Worksheets("Dilekçe Menü").Visible = xlSheetVisible
ToggleButton4.Caption = "Dilekçe Menü Gizle"
Sheets("Dilekçe Menü").Select
Range("b3").Select
ToggleButton3.Value = False
End Sub
 
Alamadım.
Örnek dosya ekleyiniz.:cool:
 
Menü sayfasında form butonu var ve userform üzerinde 4 buton aktif 20 30 sayfa var her sayfaya gizle göster butonu yerine çift işlevli buton kullanmak istedim. size de zahmet verdim kusura bakmayın dosye ekteidr. boyutu büyük olunca sayfaları sildim
 

Ekli dosyalar

İyi geceler diliyor ve çok teşekkür ediyorum elinize sağlık.
 
Rica ederim.
İyi çalışmalar.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst