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

Basma düğmesi

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

İleti#1)  mehmetbatili » 10 May 2012 08:41

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son Murat OSMA tarafından, 10 May 2012 09:58 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: İlgili başlık altına taşındı...
Kullanıcı avatarı
mehmetbatili
Yeni Başlamış
 
Adı Soyadı:Mehmet BATILI
Kayıt: 12 Eyl 2009 22:56
Konum: İzmir
Meslek: Asker
Yaş: 46
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Mavişehir

Cevap: ToggleButton Kullanımı

İleti#2)  Murat OSMA » 10 May 2012 09:08

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
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: ToggleButton Kullanımı

İleti#3)  mehmetbatili » 10 May 2012 09:55

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.
En son mehmetbatili tarafından, 10 May 2012 10:31 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Kullanıcı avatarı
mehmetbatili
Yeni Başlamış
 
Adı Soyadı:Mehmet BATILI
Kayıt: 12 Eyl 2009 22:56
Konum: İzmir
Meslek: Asker
Yaş: 46
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Mavişehir

Cevap: ToggleButton Kullanımı

İleti#4)  Murat OSMA » 10 May 2012 09:58

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.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

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

İleti#5)  mehmetbatili » 10 May 2012 10:33

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.
Kullanıcı avatarı
mehmetbatili
Yeni Başlamış
 
Adı Soyadı:Mehmet BATILI
Kayıt: 12 Eyl 2009 22:56
Konum: İzmir
Meslek: Asker
Yaş: 46
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Mavişehir

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

İleti#6)  Murat OSMA » 10 May 2012 11:14

Şö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
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

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

İleti#7)  mehmetbatili » 10 May 2012 12:24

Teşekkür ederim.
Kullanıcı avatarı
mehmetbatili
Yeni Başlamış
 
Adı Soyadı:Mehmet BATILI
Kayıt: 12 Eyl 2009 22:56
Konum: İzmir
Meslek: Asker
Yaş: 46
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Mavişehir

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

İleti#8)  Murat OSMA » 10 May 2012 12:25

Rica ederim.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL


Forum ToggleButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe