1 sayfadan 1. sayfa

[Çözüldü] ToggleButton Kullanımı

İletiTarih: 10 May 2012 08:41
mehmetbatili
Günaydın ve tekrar merhabalar,
Ek'teki dosyadan da göreceğiniz üzere "TooggleButton" kullanarak oluşturduğum 5x5' lik bir tabloda seçili olan butonların değerlerini sayfama yazdırmak istedim. Bunun için;

Private Sub CommandButton1_Click()
For t = 1 To 25
If Kayıt.ToggleButton(t).Value = True Then _
Sayfa1.Range("A65536").End(xlUp).Offset(1, 0).Value = t
Next t
End Sub


kodunu düşünmüştüm. ancak "ToggleButton(t)" ifadesini kullanamayacağımı gördüm. Bu konuda yardımlarınızı rica edebilir miyim? Bu örnekteki gibi başka bir çoklu seçim öneriniz var mı?

Şimdiden teşekkürler
Mehmet BATILI

Cevap: ToggleButton Kullanımı

İletiTarih: 10 May 2012 09:08
Murat OSMA
Merhaba Mehmet Bey,

Lütfen bu bağlantıyı (Yeni Konuların İlgili Başlık Altında Açılması) inceleyerek, konuları ilgili başlık altında açmaya özen gösteriniz... --)(

Kodu şu şekilde değiştirip bir deneyiniz;
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    For t = 1 To 25
        If Controls("ToggleButton" & t).Value = True Then _
            Sayfa1.Range("a65536").End(xlUp).Offset(1, 0).Value = t
    Next t
End Sub

Cevap: ToggleButton Kullanımı

İletiTarih: 10 May 2012 09:55
mehmetbatili
Hatamı farkettim. Sorumu "Forum ‹ VBA (Visual Basic for Application) ‹ UserForm ve Diğer Nesneler ‹ ToggleButton" konusu altında (yani şu an ki yerinde) dile getirmem gerkiyordu. Kusura bakmayın daha dikkatli davranmaya gayret edeceğim. Yardımınız için de ayrıca teşekkür ederim.

Cevap: ToggleButton Kullanımı

İletiTarih: 10 May 2012 09:58
Murat OSMA
Evet Mehmet Bey, ben konuyu zaten ilgili başlık altına taşıdım ama, sizler uygun başlık altında açarsanız: benim ikinci bir işlem yapmama gerek kalmaz ve üyelerimiz de aradığı konulara daha kolay erişebilirler.

Anlayışınız için teşekkür ederim... [evet]

İyi günler.

Cevap: [Çözüldü] ToggleButton Kullanımı

İletiTarih: 10 May 2012 10:33
mehmetbatili
Murat Bey, bu konuda bir sorum daha olacak. Bu seçimleri sınırlı sayıda tutmanın bir yolu var mı? Yani 5 seçimden fazlasına izin vermeme gibi bir düzenleme yapılabilir mi?

Teşekkürler.

Cevap: [Çözüldü] ToggleButton Kullanımı

İletiTarih: 10 May 2012 11:14
Murat OSMA
Şöyle bir deneyiniz;
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    Dim say As Integer, t As Integer
    Cells.ClearContents: say = 0
    For t = 1 To 25
        If Controls("ToggleButton" & t).Value = True Then
            say = say + 1
        If say > 5 Then MsgBox " ..::.. 5'den Fazla Seçemezsiniz ..::..", _
        vbInformation + vbMsgBoxRtlReading, "Www.ExcelVBA.Net": _
        Controls("ToggleButton" & t).Value = False: Exit Sub
            Sayfa1.Range("a65536").End(xlUp).Offset(1, 0).Value = t
        End If
    Next t
    t = Empty: say = Empty
End Sub

Şu şekilde de olabilir;
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    Dim Tog As Control
    Dim say As Integer
    Cells.ClearContents: say = 0
    For Each Tog In Me.Controls
        If VBA.TypeName(Tog) = "ToggleButton" Then
            If Tog.Value = True Then
                say = say + 1
            If say > 5 Then MsgBox " ..::.. 5'den Fazla Seçemezsiniz ..::..", _
            vbInformation + vbMsgBoxRtlReading, "Www.ExcelVBA.Net": Tog.Value = False: Exit Sub
                Sayfa1.Range("a65536").End(xlUp).Offset(1, 0).Value = Tog.Caption
            End If
        End If
    Next Tog
    say = Empty: Set Tog = Nothing
End Sub

Cevap: [Çözüldü] ToggleButton Kullanımı

İletiTarih: 10 May 2012 12:24
mehmetbatili
Teşekkür ederim.

Cevap: [Çözüldü] ToggleButton Kullanımı

İletiTarih: 10 May 2012 12:25
Murat OSMA
Rica ederim.