toplu checkbox işaretleme

[chakistes]

merhaba arkadaşlar 20 adet textbox kutusu var commandbutton içinde küçük bir döngü ile toplu seçebilirmiyiz

 

[Orion1]

Çekboxmı?Textboxmı?

 

[chakistes]

commandbutton ile 20 adet checkboxu döngü ile işaretlemek istiyorum

 

[Orion1]

commandbutton ile 20 adet checkboxu döngü ile işaretlemek istiyorum

İlk sorunuzda textbox demişsiniz.
Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 20
    Me.Controls("CheckBox" & i) = True
Next i
End Sub

Private Sub CommandButton2_Click()
Dim i As Byte
For i = 1 To 20
    Me.Controls("CheckBox" & i) = False
Next i
End Sub

 

[aliergin]

hücre birleştrimede otomatik enter tuşuna bastırmak

Private Sub CheckBox4_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "7832"
Range("B1010").Select
Selection.Merge
' buraya enter tuşunu kod ile bastırabilirmiyiz acaba?
Range("B1111").Select
Selection.Merge
' buraya enter tuşunu kod ile bastırabilirmiyiz acaba?

Range("B1212").Select
Selection.Merge
' buraya enter tuşunu kod ile bastırabilirmiyiz acaba?

Range("B1313").Select
Selection.Merge
' buraya enter tuşunu kod ile bastırabilirmiyiz acaba?

Range("B1414").Select
Selection.Merge
' buraya enter tuşunu kod ile bastırabilirmiyiz acaba?

ActiveSheet.Protect "7832"
Application.ScreenUpdating = True
End Sub

 

[chakistes]

çok teşekkür ederim yardımınız için

 

[metalog]

Yeni konu açmamak için buraya yazdım.

Benim istediğim yukarıdakinden biraz farklı.

Dosyamda 10 dan fazla checkbox var ve ben en başa bir tane daha ekleyip adını "tümünü seç" yapıp diğer checkbox hücre bağlantılarını toplu olarak bu checkboxa bağlamak istiyorum.
Yani hem tek tek işaretleyebileyim hem de duruma göre bir checkbox ile diğerlerine toplu olarak tik koyabileyim istiyorum.

Nasıl yaparım?

 

[metalog]

Yardımlarınızı rica ediyorum.

 

[EmrExcel16]

Yardımlarınızı rica ediyorum.

Örnek dosya var mı ?

 

[metalog]

Örnek dosyayı ekledim.

En baştaki "tümünü onayla" ya basınca hepsini onaylasın ama "onayla" işaretlerinden birini kaldırınca da "tümünü onayla"daki onay kalksın istiyorum.

Aynı zamanda teker teker onaylayabilmem gerekiyor ve mesela teker teker hepsini onaylayınca da "tümünü onayla" da otomatik işaretlensin istiyorum.

Ayrıca bunları makro kodu olmadan yapabilmemin bir yolu var mı? Önceliğim bu çünkü.

Hücre bağlantısı yoluyla vs. denedim sadece bir hücreye bağlantı verebiliyorum.

 

[Mahmut Bayram]

Aşağıdaki kodu bağlayıp deneyin.

Sub OnayKutusu92_Tıkla()
  Dim c As CheckBox
    For Each c In ActiveSheet.CheckBoxes
        If c.Name <> ActiveSheet.CheckBoxes("Onay Kutusu 92").Name Then
            c.Value = ActiveSheet.CheckBoxes("Onay Kutusu 92").Value
        End If
    Next
End Sub

 

[EmrExcel16]

Alternatif

Sub CheckBox()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)

    If xChk.Text = "TÜMÜNÜ ONAYLA" Then
git:
        For Each chki In ActiveSheet.CheckBoxes
            With chki
                If xChk.Value <> xlOff Then
                    .Value = True
                Else
                    .Value = False
                End If
            End With
        Next
    
    Else
    
        For Each chkx In ActiveSheet.CheckBoxes
            If chkx.Text <> "TÜMÜNÜ ONAYLA" Then
                With chkx
                    If chkx.Value <> xlOff Then
                        chk = True
                    Else
                    
                        For Each chky In ActiveSheet.CheckBoxes
                            If chky.Text = "TÜMÜNÜ ONAYLA" Then
                                chky.Value = False
                                Exit For
                            End If
                        Next
                        
                        chk = False
                        Exit For
                    End If
                End With
            End If
        Next
        If chk = True Then GoTo git
    End If
End Sub

 

[metalog]

Aşağıdaki kodu bağlayıp deneyin.

Sub OnayKutusu92_Tıkla()
  Dim c As CheckBox
    For Each c In ActiveSheet.CheckBoxes
        If c.Name <> ActiveSheet.CheckBoxes("Onay Kutusu 92").Name Then
            c.Value = ActiveSheet.CheckBoxes("Onay Kutusu 92").Value
        End If
    Next
End Sub

Mahmut Bey, teşekkür ederim kod çalışıyor ancak alttaki checkbox lardan birinden onayı kaldırınca tümünü onayladaki işaretin de kalkmasını sağlayabilirmiyiz?

 

[metalog]

Alternatif

Sub CheckBox()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)

    If xChk.Text = "TÜMÜNÜ ONAYLA" Then
git:
        For Each chki In ActiveSheet.CheckBoxes
            With chki
                If xChk.Value <> xlOff Then
                    .Value = True
                Else
                    .Value = False
                End If
            End With
        Next
   
    Else
   
        For Each chkx In ActiveSheet.CheckBoxes
            If chkx.Text <> "TÜMÜNÜ ONAYLA" Then
                With chkx
                    If chkx.Value <> xlOff Then
                        chk = True
                    Else
                   
                        For Each chky In ActiveSheet.CheckBoxes
                            If chky.Text = "TÜMÜNÜ ONAYLA" Then
                                chky.Value = False
                                Exit For
                            End If
                        Next
                       
                        chk = False
                        Exit For
                    End If
                End With
            End If
        Next
        If chk = True Then GoTo git
    End If
End Sub

Emre Bey, desteğiniz için teşekkür ederim ancak şu şekilde bir hata alıyorum.

 

[EmrExcel16]

Emre Bey, desteğiniz için teşekkür ederim ancak şu şekilde bir hata alıyorum.

Merhaba gönderdiğim kodlar da "Option Explicit" satırı yoktu o satırı silerseniz çalışır. yada aşağıdaki kodlar ile deneyiniz.

Option Explicit
 
Sub CheckBox()
Dim xChk As CheckBox, chki As CheckBox, chkx As CheckBox, chky As CheckBox, chk As String


Set xChk = ActiveSheet.CheckBoxes(Application.Caller)

    If xChk.Text = "TÜMÜNÜ ONAYLA" Then
git:
        For Each chki In ActiveSheet.CheckBoxes
            With chki
                If xChk.Value <> xlOff Then
                    .Value = True
                Else
                    .Value = False
                End If
            End With
        Next
    
    Else
    
        For Each chkx In ActiveSheet.CheckBoxes
            If chkx.Text <> "TÜMÜNÜ ONAYLA" Then
                With chkx
                    If chkx.Value <> xlOff Then
                        chk = True
                    Else
                    
                        For Each chky In ActiveSheet.CheckBoxes
                            If chky.Text = "TÜMÜNÜ ONAYLA" Then
                                chky.Value = False
                                Exit For
                            End If
                        Next
                        
                        chk = False
                        Exit For
                    End If
                End With
            End If
        Next
        If chk = True Then GoTo git
    End If
End Sub

 

[metalog]

Emre Bey,

Bunda da şöyle bir hata çıkıyor.

İlk gönderdiğiniz kodu "Option Explicit" olmadan denedim çalıştı. Teşekkür ederim. Ama kendi dosyama uyguladığımda işlemiyor.

Ayrıca diğer kutulardan işareti kaldırınca "Tümünü Onayla" daki işaretin de kalkmasını sağlayabilir miyiz?

 

[EmrExcel16]

12 numaralı mesajda gönderdiğim dosyayı denediniz mi , dosyada bu söyledikleriniz oluyor mu ?

 

[metalog]

12 numaralı mesajda gönderdiğiniz dosyayı denedim, oradaki kodu aynı şekilde kendi dosyama eklediğimde şöyle bir durum var

Benim orjinal dosyamda "TÜMÜNÜ ONAYLA" yazan kısımda kısaca "TÜMÜ" yazıyor.
Bu şekilde kodu uyguladığımda kodda yazan kısmı düzeltsem de çalışmıyor.

Kendi dosyamdakini de "TÜMÜNÜ ONAYLA" ya çevirince çalıştı ancak o zaman da şöyle bir sorun ile karşılaştım;
Benim dosyamda size gönderdiğim örnekteki gibi 3 farklı sütun var ve hepsinin başında "TÜMÜ" diye bir kısım var. Bu kodu bir tanesine uyguladığımda normalde tek sütun için işlemesi gerekirken o sayfada mevcut tüm checkbox'lar işaretleniyor.

Kendi dosyamdakiyle eş değer bir dosyayı aşağıya ekledim tekrar bir inceler misiniz?

 

[EmrExcel16]

Tam denemesini yapamadım deneyiniz.

 

[metalog]

Emre bey elinize sağlık gönderdiğiniz dosya tam istediğim gibi ama kendi dosyama uyarlarken her şey aynı olmasına rağmen hata veriyor. Debug yapınca bu satıra yönlendiriyor

Set xChk = ActiveSheet.CheckBoxes(Application.Caller)

Benim dosyamda aynı sayfa ocak, şubat, mart... gibi farklı sekmelerde de mevcut ondan olabilir mi? Ama pek sanmıyorum önceki kodlar çalışmıştı çünkü.