toplu checkbox işaretleme

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Gönderdiğim dosyda hiç sikinti yaşamiyorsunuz , ama kodları kendi dosyaniza kopyaladığinizda sikinti yaşiyorsunuz doğrumudur.

Eğer özel bilğiler içermiyorsa orjinal dosyanizi ekleyin bakalim .
 
Katılım
4 Temmuz 2019
Mesajlar
46
Excel Vers. ve Dili
2010 Türkçe
Evet formatlar tamamen aynı ancak kodları kopyalayıp makro ataması yaptığım halde olmadı.

Gönderdiğiniz dosyadaki kodu biraz kurcaladım, bu sefer de biri oldu diğeri yine olmadı.

Orjinal dosya gönderme konusu ile ilgili size özelden yazdım. Çözebilirsek çözümü buradan paylaşacağım.
 
Katılım
4 Temmuz 2019
Mesajlar
46
Excel Vers. ve Dili
2010 Türkçe
Sorun çözüldü.

Emre Bey'e desteğinde dolayı teşekkür ediyorum.

Aynı sorunu yaşayabilecek arkadaşlar için kodu aşağıya ekliyorum.

Kod:
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 Left(xChk.Text, 6) = "TÜMÜNÜ" Then
        
        
        HngChk = Mid(xChk.Text, 8, Len(xChk.Text))
        
git:
        For Each chki In ActiveSheet.CheckBoxes
            If Left(chki.Text, Len(HngChk)) = HngChk Or chki.Text = "TÜMÜNÜ " & HngChk Then
                With chki
                    If xChk.Value <> xlOff Then
                        .Value = True
                    Else
                        .Value = False
                    End If
                End With
            End If
        Next
        Exit Sub
    End If
    
    HngChk = xChk.Text
    
    For Each chkx In ActiveSheet.CheckBoxes
        If chkx.Text = HngChk Or chkx.Text = "TÜMÜNÜ " & HngChk Then
            If chkx.Text <> "TÜMÜNÜ " & HngChk Then
                With chkx
                    If chkx.Value <> xlOff Then
                        chk = True
                    Else
                    
                        For Each chky In ActiveSheet.CheckBoxes
                            If chky.Text = "TÜMÜNÜ " & HngChk Then
                                chky.Value = False
                                Exit For
                            End If
                        Next
                        
                        chk = False
                        Exit For
                    End If
                End With
            End If
            
            
        End If
    
    
    Next
    If chk = True Then GoTo git
    
End Sub
 

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Sorun çözüldü.

Emre Bey'e desteğinde dolayı teşekkür ediyorum.

Aynı sorunu yaşayabilecek arkadaşlar için kodu aşağıya ekliyorum.

Kod:
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 Left(xChk.Text, 6) = "TÜMÜNÜ" Then
       
       
        HngChk = Mid(xChk.Text, 8, Len(xChk.Text))
       
git:
        For Each chki In ActiveSheet.CheckBoxes
            If Left(chki.Text, Len(HngChk)) = HngChk Or chki.Text = "TÜMÜNÜ " & HngChk Then
                With chki
                    If xChk.Value <> xlOff Then
                        .Value = True
                    Else
                        .Value = False
                    End If
                End With
            End If
        Next
        Exit Sub
    End If
   
    HngChk = xChk.Text
   
    For Each chkx In ActiveSheet.CheckBoxes
        If chkx.Text = HngChk Or chkx.Text = "TÜMÜNÜ " & HngChk Then
            If chkx.Text <> "TÜMÜNÜ " & HngChk Then
                With chkx
                    If chkx.Value <> xlOff Then
                        chk = True
                    Else
                   
                        For Each chky In ActiveSheet.CheckBoxes
                            If chky.Text = "TÜMÜNÜ " & HngChk Then
                                chky.Value = False
                                Exit For
                            End If
                        Next
                       
                        chk = False
                        Exit For
                    End If
                End With
            End If
           
           
        End If
   
   
    Next
    If chk = True Then GoTo git
   
End Sub
Rica ederim , iyi çalışmalar.
 
Katılım
12 Mart 2023
Mesajlar
1
Excel Vers. ve Dili
33333
Aşağıdaki kodu bağlayıp deneyin.
Kod:
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
PEKİ BİR KUTUYU SEÇİNCE BİRKAÇ KUTU AYNI ANDA OTOMATİK SEÇİLMESİ İÇİN NE YAPILABİLİR?
 
Katılım
25 Haziran 2018
Mesajlar
12
Excel Vers. ve Dili
p.plus 2010 TR
Merhaba;
Benim sorum şu olacak,
yan yana 2 onay kutucuğu biri tklanınca diğerinin tıkı kalkacak
Böyle birşey olurmu
şimdiden teşekürler
 

RBozkurt

Altın Üye
Katılım
10 Ocak 2018
Mesajlar
569
Excel Vers. ve Dili
Microsoft Office 2016
Microsoft Office 2021
Google Sheets
Optionbuton araştırınız. Aynı frame içinde olması lazım.
 
Katılım
25 Haziran 2018
Mesajlar
12
Excel Vers. ve Dili
p.plus 2010 TR
Cevap için teşekkürler elimde çeklist listem var D sütunu Evet E sütunu Hayır
Onay kutucuğunda evet'i işaretlemişsem hayırın tiki kalkması lazım Hayri işaretlemişsem evetinki kalkması lazım
Böyle bir şey yapabilir miyim
 
Üst